继续请教perl的问题，谢谢

290702500

下面这段程序读一个文件，匹配lefcellname，
我之前已经判断是否defined，如果没有defined就die，
为什么还会有380行的这个warning呢，要是没有uninitialized value应该前面就die了啊？ 谢谢。


                    if ( not defined ($lefcellname) )  {
                        die "lef cell name is empty\n" ;
                    }

                    /\s*END\s+$lefcellname\s*/ and do  {              ----->> 380 line
                        last;
                    } ;

      print "lefcellname = $lefcellname\n" ;

lefcellname = NROSTAHA1
lefcellname = oaTaper
lefcellname = oaTaper
lefcellname = oaTaper
lefcellname = oaTaper
Use of uninitialized value in pattern match (m//) at /home/bz/somescript_NEW/usrForDef.pl line 380, <LEF> line 465.
lefcellname = PERFROTAHA1
Use of uninitialized value in pattern match (m//) at /home/bz/somescript_NEW/usrForDef.pl line 380, <LEF> line 3955.
lefcellname = TS3N28HPA2048X73M8FBS
Use of uninitialized value in pattern match (m//) at /home/bz/somescript_NEW/usrForDef.pl line 380, <LEF> line 4103.
lefcellname = TS3N28HPA8192X73M8FBS
Use of uninitialized value in pattern match (m//) at /home/bz/somescript_NEW/usrForDef.pl line 380, <LEF> line 23509.

jason680

回复 1# 290702500

would you like to try...

use strict;
use warnings;

my $test;    # or    #my $test
if(not defined($test)){
  print "not defined \$test\n";
}
print "$test\n";

   

290702500

回复 2# jason680

Hi jason680,

在我的环境中测试是ok的，直接print没有定义变量test


   

jason680

回复 1# 290702500

Use of uninitialized value in pattern match (m//) at /home/bz/somescript_NEW/usrForDef.pl line 380, <LEF> line 465.

$_    <==== uninitialized (for your code)
or other variable uninitialized