|
perl script wont open the lib !
from some reason perl dont want to open the lib
( the first one). any idea?
#!/usr/intel/pkgs/perl/5.6.1/bin/perl
use strict;
use warnings;
my($element);
my($filename);
my($filename1);
my($filename2);
my(@lines);
my(@lines1);
my($intline);
my($aa);
my($indf)=0 ;
my($indff)=0;
my($indfff)=0;
open (FILE, "/nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/dir.list");
open(FINALREPORT, ">/nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/finalREport.list");
@lines = <FILE>;
close FILE;
foreach $element (@lines) {
$element="/nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/xor_results/$element" ;
# open the directory for reading
opendir(REP, $element) || die "Cannot open the directory $element" ;
while( $filename = readdir(REP)){
print("$filename\n");
if($filename =~ /xor/) {
print "found a xor lib on: $filename\n";
opendir(REPP,"/nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/xor_results/$element/$filename") || die "Cannot open the directory /nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/xor_results/$element/$filename \n" ;
while( $filename1 = readdir(REPP)){
print("$filename1\n");
if($filename1 =~ /rpt/) {
print FINALREPORT "cell name: $filename1\n";
print "found a report file on: $filename1\n";
open (FILEE, "/nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/xor_results/$element/$filename/$filename1");
print "open file: /nfs/iil/proj/ccd/wa/mlea/skl_tbt_4c/analog/skl_tbt_4c/User_libs/xor_results/$element/$filename/$filename1\n" ;
@lines1 = <FILEE>;
close FILEE;
$indf=0;
foreach $intline (@lines1) {
if($intline =~ /TOTAL Original Geometry Count = 1 \(1\)/ ) {
$indff=1;
print FINALREPORT " $intline \n";
$indf=1;
} #if
}#foreach
if($indf==0){ print FINALREPORT "cell name: $filename2 is clean!!! \n"}
}#if rpt
}#while
closedir(REPP);
}#if xor
}#while
closedir(REP);
}#foreach
close FINALREPORT;
Last edited by menylea; 02-05-2014 at 11:26 AM.
|
