[已解决][map][循环]一个莫明错误：Use of uninitialized value

ehu4ever

先说一下情况：
我的目的是下载两个包含很多下载链接的页面：patches.html、packages.html，用一个perl脚本get_list.pl提取页面中的下载链接，形成一个链接表lnks_uclibc.txt。
之后用wget下载：wget -N -i lnks_uclibc.txt。


相关代码如下：
1. 先是运行脚本：

1. 
   
2. wget http://www.linuxfromscratch.org/hlfs/view/unstable/uclibc/chapter04/patches.html
   
3. wget http://www.linuxfromscratch.org/hlfs/view/unstable/uclibc/chapter04/packages.html
   
4. 
   
5. cat patches.html packages.html > uclibc.htm
   
6. 
   
7. perl get_list.pl
   
8. 
   
9. rm -v patches.html packages.html
   

复制代码

2. 以下是get_list.pl的代码，注释中是之前的版本。最后那个Solution 6是出现warn的版本：

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. 
   
7. open (FILE, "uclibc.htm") or die "the chapter of packages and patches ready?";
   
8. open (FILE2, ">lnks_uclibc.txt") or die "the output file ready?";
   
9. 
   
10. # Solution 5:
    
11. # while (<FILE>) {
    
12. #     if ($_ =~ /"((http|ftp):.*(bz2|gz|patch))".*(\n)/) {
    
13. #         print FILE2 $1."\n";
    
14. #     }
    
15. # }
    
16. 
    
17. 
    
18. # Solution 6:
    
19. print FILE2 map { /"((http|ftp):.*(bz2|gz|patch))".*(\n)/; $1.$4 } <FILE>;
    
20. 
    
21. close FILE;
    
22. close FILE2;
    

复制代码

另外，如果不加

1. 
   
2. use strict;
   
3. use warnings;
   

复制代码

就不会有错误提示，但我觉得因为加上。

难道是说我$1和$4没有初始化？可是Solution 5不是没warn吗？郁闷中……

[ 本帖最后由 ehu4ever 于 2006-2-3 19:18 编辑 ]

flw

print FILE2 map { /"((http|ftp):.*(bz2|gz|patch))".*(\n)/; $1.$4 } <FILE>;
>>
print FILE2 map { /"((http|ftp):.*(bz2|gz|patch))".*(\n)/ && $1.$4 } <FILE>;

ehu4ever

[code]
# Solution 5:
# while (<FILE>) {
#     if ($_ =~ /"((http|ftp):.*(bz2|gz|patch))".*(\n)/) {
#         print FILE2 $1."\n";
#     }
# }
[/code]
这里$_是if过滤之后的。



[code]
# Solution 6:
print FILE2 map { /"((http|ftp):.*(bz2|gz|patch))".*(\n)/; $1.$4 } <FILE>;
[/code]
而map里的各个语句对<FILE>每一项都有效，而<FILE>里不是每一项都被正则表达式匹配的，所以有时候$_是空的。



我修改后的版本是：
[code]
# Solution 6:
print FILE2 map { /"((http|ftp):.*(bz2|gz|patch))".*(\n)/; $1?$1.$4:"" } <FILE>;
[/code]


道理是和flw提供的版本是一样的，flw用的是&&，我用?。