|
|
Complex Script
10-05-2010
10-05-2010
perl -wle '
open(IN , "<in.txt") or die "can not open$!\n" ;
open(OUT , "<out.txt") or die "can not open$!\n" ;
open(HIS , "<history.txt") or die "can not open$!\n" ;
@in = <IN> ;
@out = <OUT> ;
@his = <HIS> ;
close(IN) ;close(OUT) ;close(HIS) ;
chomp @in; chomp @out; chomp @his ;
%his=@his ;
for ($i=0 ; $i<=$#in ; $i++) {
if ($in[$i] == $out[$i]) {
print $in[$i]," ",$out[$i]; next;
}
map {
if ( $_ > $in[$i] && $_ < $out[$i] && $his{$_}) {
print $in[$i]," ",$out[$i] if ( ! $flag ) ;
print $_," ",$his{$_} ;
undef $his{$_} ;
$flag=1 ;
}
} keys %his ;
$flag=0 ;
}
'
for ($i=0 ; $i<=$#in ; $i++) {
if ($in[$i] == $out[$i]) {
print $in[$i]," ",$out[$i]; next;
}
map {
if ( $_ > $in[$i] && $_ < $out[$i] ) {
print $in[$i]," ",$out[$i] if ( ! $flag ) ;
print $_," ",$his{$_} ;
delete $his{$_} ;
$flag=1 ;
}
} keys %his ;
$flag=0 ;
}|
|
|
|