看板 [ Perl ]
討論串[問題] 搜尋結果後，將上下幾行輸出
共 2 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#2
Re: [問題] 搜尋結果後，將上下幾行輸出
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者imce (蜥蜴)時間18年前 (2007/02/07 20:52), 編輯資訊
0
0
0
內容預覽:
應該可以吧~你試試看. @FILE=<FILE>;. for($i=0;$i<$#FILE;$i++). {. ($FILE[$i] =~ /$a.*$b/s)?print $FILE[$i+$_-3]:last for (0..6);. }. 很努力縮減了,還是得寫四行=.=. --. ※ 發信站
#1
[問題] 搜尋結果後，將上下幾行輸出
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者Davin (Davin)時間18年前 (2007/02/07 16:55), 編輯資訊
0
0
0
內容預覽:
請教一下, 如果想輸出搜尋的結果的前後幾行,. While (<FILE>) {. print $_ if( $_ =~ /$a.*$b/s);. }. 如果我想輸出包括目標字串該行的前後三行，. 該如何做比較好呢??. 已經查過之前的文章也在網路上找過了，不過沒有滿意的答案，. 謝謝各位的解答~.
首頁
上一頁
1
下一頁
尾頁