mandrake00 has asked for the wisdom of the Perl Monks concerning the following question:
$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 /> }
|
|---|