推 jacobliu:把其他要顯示的存進其他變數就好了，謝謝提點! 04/18 09:00
: #!/usr/bin/perl -w
: ### run "perl run.pl file_name"
: if ( @ARGV != 1 )
: {
: print "Usage : $0 <original netlist>\n";
: exit;
: }
: open( IN, "$ARGV[0].nl" );
: open( OUT, "> $ARGV[0]_modify.nl" );
: while ( $line = <IN> )
: {
: $line =~ s/A1$/\/ A1/g;
: $line =~ s/B1$/\/ B1/g;
: if ($line =~ m#^\.AAAAA\s+\S+\s+([^/]+)/\s+(.+)$#)
if ($line =~ m#(^\.AAAAA\s+\S+\s+)([^/]+)/\s+(.+)$#) {
print OUT "$1$3 $2\n";
}
: # {這邊不曉得怎麼寫}
: # print OUT $line;
: #}
: close (IN);
: close (OUT);
: 還請大家解答，謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 207.151.230.226