Re: [問題] print 特定段落
※ 引述《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
推
08/15 15:44, , 1F
08/15 15:44, 1F
推
08/15 15:50, , 2F
08/15 15:50, 2F
推
08/15 15:56, , 3F
08/15 15:56, 3F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
