[Perl] 第一個 Perl 程式

學習 Perl 對於文字處理極有幫助。Perl 在文字處理方面是很強的語言。
以前用 C 處理文字，寫的程式碼較冗長。學會 Perl 並結合正規語言之後，可以縮短撰寫 Parser 的時間。

這是我練習寫的第 1 個 Perl 程式碼，它的功能是搜尋檔案中特定字串，將包含這些字串的那幾行輸出到另一檔案內：

open (INPUT, "<input.txt") or die " [Err] Reading input file error.\n $!";
open (OUTPUT, ">result.txt");
while(<INPUT>)
{
      if($_ =~ /([Aa]pple)|([Oo]range)/ )
      {
           print OUTPUT $_;
      }
}
close(INPUT);
close(OUTPUT);

若用 C 寫同樣功能的程式，會發現 Perl 真的簡潔很多。