※ 引述《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);
还请大家解答，谢谢