: #!/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);
: 還請大家解答，謝謝