作者AntaresStar ()
看板Perl
标题Re: [问题] 文字元素的合成
时间Sat Apr 27 14:58:28 2019
重新想了一下 再有bug就不写了 XDD
my $str = 'A, B, C[1], C[0], D, P[3], P[2], P[1],';
my @arr = split /, */, $str;
my @out;
my @bus = ' ';
sub bus_out {
return if $bus[0] eq ' ';
push @out, ($#bus ? "[$bus[1]:$bus[2]] " : '').$bus[0];
}
for (@arr) {
my @curr = /(\w+)\[(\d+)\]/ ? ($1, $2, $2) : $_;
if ($curr[0] ne $bus[0]) {
bus_out;
@bus = @curr;
} else {
$bus[2] = $2;
}
}
bus_out;
print "$_;\n" for (@out);
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.162.120.71
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1556348310.A.FA1.html