推 abliou:前輩的程式碼是不是有點問題? 08/14 18:37
推 LiloHuang:樓上所指的是? 程式本身可以運作我有跑過... 08/14 19:46
推 LiloHuang:我發現問題了=_+ 我把輸出也貼出來了...改一下 08/14 19:49
※ 編輯: LiloHuang 來自: 140.114.71.152 (08/14 19:50)
推 abliou:原來還有這招....... 08/14 20:01
#!/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