亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費注冊 查看新帖 |

Chinaunix

  平臺 論壇 博客 文庫
最近訪問板塊 發(fā)新帖
查看: 5460 | 回復: 5
打印 上一主題 下一主題

請教:關(guān)于"Use of uninitialized value" [復制鏈接]

論壇徽章:
1
操作系統(tǒng)版塊每日發(fā)帖之星
日期:2015-11-20 06:20:00
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報告]
發(fā)表于 2011-05-28 11:18 |只看該作者 |倒序瀏覽
大家好,我最近在寫Perl程序的時候遇到一個問題。這里寫了一小段代碼用來驗證,麻煩請教一下,謝謝!
  1. #!/usr/bin/perl -w
  2. use strict;
  3. my @array = qw/ file1 file2 /;  #定義兩個文件
  4. foreach (@array) {
  5.         open FILE, "< $_" or die $!;  #使用默認控制變量"$_"
  6.         while (<FILE>) {
  7.                 print;  #輸出文件的每一行
  8.         }
  9. }
  10. print "@array\n";  #打印文件列表
復制代碼
執(zhí)行程序,運行到最后提示:"Use of uninitialized value in join or string at a.pl line 10, <FILE> line 2."
根據(jù)提示是@array數(shù)組沒定義,后來嘗試換一種寫法就可以通過。
  1. #!/usr/bin/perl -w
  2. use strict;
  3. my @array = qw/ file1 file2 /;  #定義兩個文件
  4. my $file;  #定義控制變量
  5. foreach $file (@array) {
  6.         open FILE, "< $file" or die $!;  #使用自定義控制變量"$file"
  7.         while (<FILE>) {
  8.                 print;  #輸出文件的每一行
  9.         }
  10. }
  11. print "@array\n";  #打印文件列表
復制代碼
我個人的理解是,執(zhí)行while循環(huán)的時候,Perl會保留foreach循環(huán)的"$_"變量的值,當while結(jié)束的時候還原"$_"變量。
為什么提示"Use of uninitialized value",麻煩請教一下,謝謝!

論壇徽章:
78
雙子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06獅子座
日期:2013-10-18 13:40:31雙子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年紀念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56處女座
日期:2013-10-24 17:15:30雙子座
日期:2013-10-25 13:49:39午馬
日期:2013-10-28 15:02:15
2 [報告]
發(fā)表于 2011-05-28 11:40 |只看該作者
$_是全局變量,最后@array = ( undef, undef );

論壇徽章:
1
操作系統(tǒng)版塊每日發(fā)帖之星
日期:2015-11-20 06:20:00
3 [報告]
發(fā)表于 2011-05-28 11:52 |只看該作者
$_是全局變量,最后@array = ( undef, undef );
yybmsrs 發(fā)表于 2011-05-28 11:40


"$_"雖說是全局變量,但Perl不是會保留其原先的值,然后再還原么?
@array為何到最后變成undef了呢?

論壇徽章:
78
雙子座
日期:2013-10-15 08:50:09天秤座
日期:2013-10-16 18:02:08白羊座
日期:2013-10-18 13:35:33天蝎座
日期:2013-10-18 13:37:06獅子座
日期:2013-10-18 13:40:31雙子座
日期:2013-10-22 13:58:42戌狗
日期:2013-10-22 18:50:04CU十二周年紀念徽章
日期:2013-10-24 15:41:34巨蟹座
日期:2013-10-24 17:14:56處女座
日期:2013-10-24 17:15:30雙子座
日期:2013-10-25 13:49:39午馬
日期:2013-10-28 15:02:15
4 [報告]
發(fā)表于 2011-05-28 12:07 |只看該作者
foreach里面有$_,while里面也有$_,都是同一個$_,怎么保留和還原呢?

while讀文件時讀到eof后,會繼續(xù)讀直到失敗退出,這個值就是undef

論壇徽章:
46
15-16賽季CBA聯(lián)賽之四川
日期:2018-03-27 11:59:132015年亞洲杯之沙特阿拉伯
日期:2015-04-11 17:31:45天蝎座
日期:2015-03-25 16:56:49雙魚座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015亞冠之布里斯班獅吼
日期:2015-07-13 10:44:56
5 [報告]
發(fā)表于 2011-05-28 12:56 |只看該作者
我記得前幾天有個一模一樣的問題

論壇徽章:
1
操作系統(tǒng)版塊每日發(fā)帖之星
日期:2015-11-20 06:20:00
6 [報告]
發(fā)表于 2011-05-31 17:44 |只看該作者
本帖最后由 hrbeu06ws 于 2011-05-31 17:45 編輯
foreach里面有$_,while里面也有$_,都是同一個$_,怎么保留和還原呢?

while讀文件時讀到eof后,會繼續(xù)讀直 ...
yybmsrs 發(fā)表于 2011-05-28 12:07


while讀取文件到最后,然后退出。為什么會影響最后一句print @array的結(jié)果呢?第二種寫法為什么就可以通過呢?
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報專區(qū)
中國互聯(lián)網(wǎng)協(xié)會會員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP