討論串(共6篇) - [問題] print 特定段落 - 看板Perl

看板 [ Perl ]

討論串[問題] print 特定段落

共 6 篇文章

排序：最新先 | 最舊先 | 留言數 | 推文總分

內容預覽：開啟 | 關閉 | 只限未讀

首頁

尾頁

Re: [問題] print 特定段落

推噓3(3推 )留言3則，0人參與作者abliou (Art of Life)時間18年前 (2007/08/15 15:42)資訊

內容預覽:

原來如此!!!!!這真是個聰明的寫法!!.... 看到後面的e算符查了一下原來還有這種功能..... 所以剛剛我想了一下...也綜合上面的問題... 大概想出如果要算出字串中某字出現個數的方法..除了用split切完後用迴圈. 還有用tr(上面文章975篇開始)之外..也能用這個方法... $a="

Re: [問題] print 特定段落

推噓0(0推 )留言0則，0人參與作者LiloHuang (相見不如懷念)時間18年前 (2007/08/15 14:14)資訊

內容預覽:

#!/usr/bin/perl. open FH, "test.txt";. $_ = join('',<FH>);. close FH;. s/(sage \d+ P)\s+{\s+?([ ]+(?:name "[^"]+"\s+?){2})/print $1.$\/.$2/eg;. # 測資如同

Re: [問題] print 特定段落

推噓0(0推 )留言0則，0人參與作者abreaction (回不去)時間18年前 (2007/08/15 12:18)資訊

內容預覽:

#!/usr/bin/perl -w. use strict;. my $txtflag=0;. open FH, "test.txt";. while (<FH>){. $txtflag=1 if /^sage\s\d+\sP/i;. print "$_" if (/^\s*name/ || /^

(還有690個字)

Re: [問題] print 特定段落

推噓0(0推 )留言0則，0人參與作者roy8130 (reputation)時間18年前 (2007/08/15 01:49)資訊

內容預覽:

print unless /stage\s\d+/; 就可以獲得以上結果. 如果檔案結構變成, 如下. open file "<test.txt"; -------> output results. sage 1 g sage 2 P. {. name "..............." name

(還有608個字)

Re: [問題] print 特定段落

推噓4(4推 )留言4則，0人參與作者LiloHuang (相見不如懷念)時間18年前 (2007/08/14 08:55)資訊

內容預覽:

#!/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]

首頁

尾頁