Re: [問題] 搜尋結果後，將上下幾行輸出
※ 引述《Davin (Davin)》之銘言：
: 請教一下, 如果想輸出搜尋的結果的前後幾行,
: While (<FILE>) {
: print $_ if( $_ =~ /$a.*$b/s);
: }
: 如果我想輸出包括目標字串該行的前後三行，
: 該如何做比較好呢??
: 已經查過之前的文章也在網路上找過了，不過沒有滿意的答案，
: 謝謝各位的解答~
應該可以吧~你試試看
@FILE=<FILE>;
for($i=0;$i<$#FILE;$i++)
{
($FILE[$i] =~ /$a.*$b/s)?print $FILE[$i+$_-3]:last for (0..6);
}
很努力縮減了,還是得寫四行=.=
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.15.20
※ 編輯: imce 來自: 140.120.15.20 (02/07 20:54)
推
02/08 04:01, , 1F
02/08 04:01, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
