※ 引述《jacobliu (DDDDD)》之銘言：
: 目前有一筆資料格式為
: .AAAAA U98D A1 B1 C1 / ZZ
: UUUU 333
: .AAAAA T86S A1 B / Z
: TTTT 222
: .AAAAA 7UUSA A B C D / DD FF
: DDDD 111
: 我想把資料中黃色跟紫色資料的位置對調後輸出
: 請問要如何做到?
: 有上網google了很多關鍵字，但是對perl只了解皮毛，很難改寫出我要的需求
: 初步的概念是只處理有.AAAAA的行，該行的前第二個空格到/間存成第一筆資料
: 該行的/到結尾存成第二筆，然後兩筆資料交換後輸出檔案
: 麻煩大家解答了，謝謝
大家好，
現在卡在最後的問題就是我要怎麼把$1和$2的變數換位置後寫回到我的資料之中
附上我目前的code
#!/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+(.+)$#)
{這邊不曉得怎麼寫}
print OUT $line;
}
close (IN);
close (OUT);
還請大家解答，謝謝