Re: [問題] 資料處理
: #!/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
推
04/18 09:00, , 1F
04/18 09:00, 1F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
