|
发表于 2011-9-7 12:52:03
|
显示全部楼层
太简单了吧,
#!/usr/bin/perl -w
use strict;
use warnings ;
use Fatal qw/ open close / ;
open my $F1, '<' , 'total_timing.rpt' ;
my @data ; # store all violation items ,
while ( <$F1> ) {
if ( /^\s*VIOLATION\s+\(S+)\s*$/ ) {
push @data , $1 ;
}
}
close $F1 ;
open my $F2 ,'>' , 'temp.rpt'
print {$F2} join "\n" , sort @data ;
close $F2 ; |
|