求助：Use of uninitialized value问题

skyheight

先说一下脚本的用途。
①通过字符串匹配找到红框所示的字符串所在的行数。
②得到篮框所示的数组。
③得到数组第一列的数据，为最终数据。并进行后续的数据判断等。。。
尝试写了一个脚本，但是在第②步的时候，出现报错信息：“Use of uninitialized value $array[0] in join or string at C:\Users\61068\Desktop\test\ring_test.pl line 33, <FH> line 7684.”
请问应该如何解决？
另外第②步得到的两列数据，如何处理得到第一列的数据呢？

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use File::Spec::Functions;
   
4. use File::Copy;
   
5. 
   
6. $searchdir="C:/Users/61068/Desktop/test"; #指定源文件夹路径
   
7. $str1=" Average Ring size"; #指定欲匹配的字符串1
   
8. $str2=" Ring size   Number"; #指定欲匹配的字符串2
   
9. opendir(DIRHANDLE,$searchdir) || die "Cann't open $searchdir !";
   
10. while($file=readdir DIRHANDLE) {
    
11.         if (-d "$searchdir/$file") { #寻找字符串对应的行数
    
12.                 print "$searchdir/$file is a directory!\n";
    
13.         } else {
    
14.                 open(FH, "$searchdir/$file") || die "cann't open $searchdir/$file !\n";
    
15.                 $lines1=0;
    
16.                 $lines2=0;
    
17.                 my @data_raw=\*FH;
    
18.                 while ($LINE=<FH>) {
    
19.                         $back1=rindex($LINE,$str1);
    
20.                         $back2=rindex($LINE,$str2);
    
21.                         if ( $back1 != -1 ) {
    
22.                                 $lineB=$lines1-3;
    
23.                         }
    
24.                         if ($back2 != -1){
    
25.                                 $lineA=$lines2+1;
    
26.                         }
    
27.                        $lines1+=1;
    
28.                        $lines2+=1;
    
29.                                                 }
    
30.                                                 print "Ring size data of $file lies between line$lineA and line$lineB.\n"; #输出数据所在的行数
    
31.                                                 my @array=@data_raw[$lineA..$lineB]; #获得数据
    
32.                                                 print "@array\n";
    
33.                                         }
    
34.                                 }
    
35.                                 close(FH);
    
36. closedir(DIRHANDLE);
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $flag = 0;
   
6. my @aData = ();
   
7. while(<DATA>){
   
8.         next if(/\A\s*\z/);
   
9.         if(/\A\s*Ring\s+size\s+Number/){
   
10.                 $flag++;
    
11.                 next;
    
12.         }
    
13.         next if($flag < 1);
    
14.         if(/\A\s*Average\s+Ring\s+size:/){
    
15.                 print("@aData\n");
    
16.                 $flag = @aData = ();
    
17.                 next;
    
18.         }
    
19.         push(@aData, (split)[0]);
    
20. }
    
21. 
    
22. __DATA__
    
23.         41        014        6        2
    
24.         41        014        7        2
    
25.         
    
26.         42        015        4        1
    
27.         42        015        16        1
    
28.         
    
29.         Overall Ring        count:
    
30.         Ring size Number
    
31.                 3        2
    
32.                 4        3
    
33.                 5        2
    
34.                 6        10
    
35.                 7        4
    
36.                 16        1
    
37.                
    
38.         Average Ring size:        6.00
    
39.         
    
40.                 Other lines

复制代码

zero_BX

回复 2# sunzhiguolu

大神好！学习了，有些地方没弄明白，请问您脚本中  next if(!$flag); 什么意思呢？判断flag的值为0吗？另外可否简单指导一下 flag 的逻辑？谢谢大神！

sunzhiguolu

回复 3# zero_BX
将代码的 14~19 行注释起来，加入一行 print 观察下输出结果。

skyheight

回复 2# sunzhiguolu

太感谢啦，这个问题困扰我好几天了，大神分分钟搞定，服！

Windows19

服