技術小秘訣: Perl模仿指令grep,找出搜尋字串的上五行及下五行?

#!/usr/bin/perl

open(FILE, "檔案名稱" ) or die "Can't open file\n";

@lines = <FILE>;

@hit_line = map { $lnum++; /關鍵字/?$lnum-1:() } @lines;

foreach $hit_line ( @hit_line )
{
print "\n\nHit line number is : $hit_line+1\n\n";
for( ( $hit_line - 5 ) .. ($hit_line + 5 ) )
{
print "$lines[$_]";
}
}

文章標籤

創作者介紹
創作者 台灣 富捷IT培訓 的頭像
台灣 富捷IT培訓

台灣 富捷 IT 培訓

台灣 富捷IT培訓 發表在 痞客邦 留言(0) 人氣()