看输入的形式 我假设同pin一定排在一起 而且里面的数字一定降幂
如果不是 也可以写个sort排一下 应该没几行
然后就照前面c大的说法来写 写成这样
my $str = 'A, B, C[1], C[0], D, P[3], P[2], P[1],';
my @arr = split /, */, $str;
my (@out, @bus);
sub bus_out {
return unless @bus;
push @out, "[$bus[1]:$bus[2]] $bus[0]";
@bus = ();
}
for (@arr) {
if (/(\w+)\[(\d+)\]/) {
@bus ? ($bus[2] = $2) : (@bus = ($1, $2, $2));
} else {
bus_out;
push @out, $_;
}
}
bus_out;
print "$_;\n" for (@out);
要写得干净比我想像中还难 没几行却写了好久 orz