台灣富捷 IT 培訓

富捷 IT 培訓不斷的在市場調查”人才需求”及為學員尋求”最佳工作機會”的前提下提供了一系列的教育課程；不僅著重於科技與知識上的養成，更強調科技人的邏輯思考、分析能力與創造力。由旅美學人著眼於美國教育的優點，再融合台灣教育的方式，創造出與市場上獨一無二的教學方式；所有教師均受過嚴格的測試及教育以確保客戶的權益及奇科的高教學品質，我們本著良心及高度的熱忱，希望我們的客戶不僅能學到所需的知識，更能學到書本以外的觀念及找到未來發展的方向。

部落格全站分類：數位生活

Oct 10 Mon 2011 15:02
技術小秘訣: Perl模仿指令grep，找出搜尋字串的上五行及下五行?

技術小秘訣: 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[$_]";
}
}