作者LiloHuang (相见不如怀念)
看板perl
标题Re: [问题] print 特定段落
时间Tue Aug 14 08:55:22 2007
#!/usr/bin/perl
$str=qq~
sage 1
1
2
3
sage 2
4
5
6
sage 3
7
8
sage 4
.
.
.
~;
my @data = split(/sage\s\d+$\//,$str);
print $data[1]; # assume [1] is portion 1
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.114.71.152
1F：推 abliou:前辈的程式码是不是有点问题? 08/14 18:37
2F：推 LiloHuang:楼上所指的是? 程式本身可以运作我有跑过... 08/14 19:46
3F：推 LiloHuang:我发现问题了=_+ 我把输出也贴出来了...改一下 08/14 19:49
※ 编辑: LiloHuang 来自: 140.114.71.152 (08/14 19:50)
4F：推 abliou:原来还有这招....... 08/14 20:01