作者abliou (Art of Life)
看板perl
标题Re: [问题] print 特定段落
时间Wed Aug 15 15:42:35 2007
※ 引述《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
1F：推 LiloHuang:624篇我先前有用过噜 不过q兄说用tr比较好 XD 08/15 15:44
2F：推 abliou:已经用过啦??那就当我骗骗p币好啦..XD..感谢前辈.. 08/15 15:50
3F：推 LiloHuang:呵呵 没啦 大家互相交流咩:P Perl板最近有比较热闹 08/15 15:56