[問題] 同一行某個符號的計數累加
請問一下，如何在同一行的某個符號做計數累加呢？
例:有很多行像 $test = "TEST!TEST!TEST!";
想要變成 TEST!1TEST!2TEST!3
試過用split加join，發現不行，它們都是一次到位
也就是變成TEST!1TEST!1TEST!1後面的數字無法累加。
想試REG的方法，但試來試去都無法累加，可能方法不
對？目前想到的方式如下，但是覺得好像還有更快的
方法才是？所以想請教板上的高手，看看是否有更簡
潔的方式，謝謝。
#!/usr/bin/perl -w
my $test = "TEST!TEST!TEST!";
my $ECounter = 1;
my @string = split /;/, $test;
foreach (@string) {
print $_,"!",$ECounter;
$ECounter++;
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.160.246.25
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
