作者Austin9 (奥斯丁)
看板Perl
标题[问题] 同一行某个符号的计数累加
时间Fri Oct 24 15:20:09 2008
请问一下，如何在同一行的某个符号做计数累加呢？
例:有很多行像 $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