推 LiloHuang:624篇我先前有用過嚕 不過q兄說用tr比較好 XD 08/15 15:44
推 abliou:已經用過啦??那就當我騙騙p幣好啦..XD..感謝前輩.. 08/15 15:50
推 LiloHuang:呵呵 沒啦 大家互相交流咩:P Perl板最近有比較熱鬧 08/15 15:56
※ 引述《LiloHuang (相見不如懷念)》之銘言：
: #!/usr/bin/perl
: open FH, "test.txt";
: $_ = join('',<FH>);
: close FH;
: s/(sage \d+ P)\s+{\s+?([ ]+(?:name "[^"]+"\s+?){2})/print $1.$\/.$2/eg;
: # 測資如同原本的 test.txt
原來如此!!!!!這真是個聰明的寫法!!...
看到後面的e算符查了一下原來還有這種功能....
所以剛剛我想了一下...也綜合上面的問題..
大概想出如果要算出字串中某字出現個數的方法..除了用split切完後用迴圈
還有用tr(上面文章975篇開始)之外..也能用這個方法..
$a="aaabbbccc";
print $b if $a=~s/a/$c++/eg ;
這樣就能算出a出現的次數...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.4.234