Re: [問題] 文字元素的合成

看板Perl作者時間5年前 (2019/04/27 14:58), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串6/7 (看更多)
重新想了一下 再有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://www.ptt.cc/bbs/Perl/M.1556348310.A.FA1.html
文章代碼(AID): #1Sm_sM-X (Perl)
文章代碼(AID): #1Sm_sM-X (Perl)