子函数与main代码有什么区别

kggg

不知道哪里出错了， 把下面可以正常运行的代码段,

1. my $tempfile = 'test.txt';
   
2. 
   
3. unless(open (IN, '>>', $tempfile)) {
   
4.            print "\nError: unable to open file $tempfile: $! \n";
   
5.            exit -1;
   
6.      }
   
7.      my %test = map { (split, $_)[1]=> undef }  <IN>;
   
8.      for  (@lease){
   
9.          /(\S+)\s+(\S+)\s+(\S+)$/;
   
10.          next if  exists $test{$2};
    
11.          print  "$1\t$2\t$3\n";
    
12.      }
    
13. close IN;
    
14. 
    

复制代码

放在子函数中, 这时语句next if  exists $test{$2};就不起作用了

1. my $tempfile = 'test.txt';
   
2. &getData($tempfile);
   
3. 
   
4. sub getData {
   
5.      my $temp = $_[0];
   
6.      unless(open (IN, '>>', $temp)) {
   
7.            print "\nError: unable to open file $temp: $! \n";
   
8.            exit -1;
   
9.      }
   
10.      my %test= map { (split, $_)[1]=> undef }  <IN>;
    
11.      for  (@lease){
    
12.          /(\S+)\s+(\S+)\s+(\S+)$/;
    
13.          next if  exists $test{$2};
    
14.          print  "$1\t$2\t$3\n";
    
15.      }
    
16.      close IN;
    
17. }
    

复制代码

里面的列表@lease是和test.txt一样的数据格式, 脚本是想找出@lease里有, 文件test.txt中没有项.

#cat test.txt
2013/08/30          192.168.1.35        ok
2013/08/31          192.168.2.48        not ok
.....
.....

stanley_tam

这不科学啊{:3_194:}，确定2次测试中文件test.txt里的内容一样？

rubyish

%test is empty
line 6:

1.      unless(open (IN, '<', $temp)) {
   

复制代码

yybmsrs

符号错了      

kggg

谢谢各位 , 已经解决.