$path = "/main/lvs/";<br />
open(CELLFILE,"./instList.in") || die "Can't open cell list file: $!";
+<br />
while (<CELLFILE>) {<br />
$cell = $_;<br />
chomp($cell);<br />
system("rm ./instLvsOut/passfail.tmp");<br />
open(PASSFAIL,">>./instLvsOut/passfail.tmp");<br />
system("ls $path | grep $cell.>./instLvsOut/passfail.tmp");<br />
print "$cell:\n";<br />
@fp0 =<PASSFAIL>;<br />
$fp = $fp0[0];<br />
chomp($fp);<br />
system("cat ./instLvsOut/passfail.tmp");<br />
print "fp is $fp\n";<br />
}
I have already defined $fp by commands "@fp0 =<PASSFAIL>;" and "$fp = $fp0[0];". The command "system("cat ./instLvsOut/passfail.tmp");" properly prints out the content of <PASSFAIL>. Any idea why still I get this error? Please help.