推 Davin:喔喔!!原來是這樣, 謝謝你囉~ :) 02/08 04:01
※ 引述《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)