[求助]为啥我这个函数要报警告？

brantc

1. sub Create_ID_File {
   
2. 
   
3.   my ($id, $TL_File, $TL_H_File) = @_;
   
4.   my $Input_Line;
   
5.   my $Iterator_I=0;
   
6.   my $Iterator_J=0;
   
7.   my @Id_Array = ();
   
8.   
   
9.   # Get id
   
10.   @Id_Array=split(",",$id);
    
11.   @Id_Array=sort { $a <=> $b } @Id_Array;
    
12.   
    
13.   unless(open(TL_H_File, "< $TL_H_File")) {
    
14.     print STDERR "Failed to open $TL_H_File";
    
15.     return API_FAIL;
    
16.   }  
    
17.   
    
18.   if (-e $TL_File) {
    
19.       unlink $TL_File;
    
20.   }
    
21.   
    
22.   unless(open(TL, "> $TL_File")) {
    
23.     print STDERR "Failed to open $TL_File";
    
24.     return API_FAIL;
    
25.   }  
    
26.   
    
27.   $Iterator_I=0;
    
28.   $Iterator_J=0;
    
29. 
    
30.   while ( $Input_Line = <TL_H_File> ) {
    
31.     chomp $Input_Line;   
    
32.     if ($Input_Line =~ m/\s*\'cmdline\'\s*=>\s*\'(.*)\',$/) {
    
33.       if ($Iterator_I == $Id_Array[$Iterator_J]) {
    
34.         print TL "TEST = $1\n";
    
35.         # 如果我有下面这行，那就会有警告，如果注销下面这行，就没有。。。
    
36.         $Iterator_J++;
    
37.       }  
    
38.       $Iterator_I++;        
    
39.     }   
    
40.   }   
    
41.    
    
42.   close(TL_H_File);
    
43.   close(TL);
    
44.    
    
45.   return API_SUCCESS;  
    
46. }
    

复制代码

警告就是：
Use of uninitialized value in numeric eq (==) at log.pl line 381, <TL_H_File> line 79.
Use of uninitialized value in numeric eq (==) at log.pl line 381, <TL_H_File> line 87.
Use of uninitialized value in numeric eq (==) at log.pl line 381, <TL_H_File> line 95.
Use of uninitialized value in numeric eq (==) at log.pl line 381, <TL_H_File> line 103.
.... (很多很多，每个匹配 m/\s*\'cmdline\'\s*=>\s*\'(.*)\',$/到行都会报这个警告)

381行是： if ($Iterator_I == $Id_Array[$Iterator_J]) {

请大家帮忙，谢谢！

zhlong8

推下自己的帖子
http://bbs.chinaunix.net/thread-1803023-1-1.html

brantc

回复 2# zhlong8


    斑竹，帖子我看了，收益良多，但是我上面帖子到问题，好像仍然无法对你到帖子讲到情况对号入座。
    我上面到函数，每个变量都是初始化了到呀～～～怎么还是报错了？
    请帮忙，谢谢！

lfy91

回复  zhlong8


    斑竹，帖子我看了，收益良多，但是我上面帖子到问题，好像仍然无法对你到帖子讲到 ...
brantc 发表于 2011-07-14 10:59

    如果你确定你初始化了用到的变量值，就打印一下贴出来看看咯

zhlong8

回复  zhlong8


    斑竹，帖子我看了，收益良多，但是我上面帖子到问题，好像仍然无法对你到帖子讲到 ...
brantc 发表于 2011-07-14 10:59

    像4楼说的，这个主要是让你能明白这个警告的设计原因和什么情况下会触发，最终目的是方便 debug 简称教你打渔

jason680

回复  zhlong8


    斑竹，帖子我看了，收益良多，但是我上面帖子到问题，好像仍然无法对你到帖子讲到 ...
brantc 发表于 2011-07-14 10:59

          if ($Iterator_I == $Id_Array[$Iterator_J])   <=== issue here


=================
# cat t.pl

use strict;
use warnings;

my @name=();
my $val = $name[1];   #真正问题.....
print $val;

# perl t.pl
Use of uninitialized value in print at t.pl line 7.