Perl的檔案處理

Perl的檔案處理

很多朋友一定有這樣的經驗，當需要剪貼大量資料的時候，

Ctrl+C (複製) 以及 Ctrl+V (貼上) 一筆一筆剪貼，

很費時，但又想不到別的方法，

別懷疑，一有重複的動作，直覺就是用程式幫忙吧！

---

首先，先簡單講一下檔案存取，

在perl裡，我們要讓作業系統知道，要對哪個檔案進行處理，

需要使用到的就是檔案代號 (FileHandle)。

檔案代號是由使用者自行命名，並且用來跟實體檔案進行連結的名稱，

一般來說，我們習慣用全部大寫來作為檔案代號。

---

現在很多資料都以Excel檔為主，阿逸處理資料上，

習慣上是先另存新檔成.txt(純文字檔)再做處理，

而檔案轉成.txt後，每個欄位都會以Tab分隔，如下圖：

接著再用程式來進行操作。(範例檔案: 點我下載)

---

用perl進行開檔、關檔也很直覺，只要這麼一行就可以：

open FILE, "File_sample_1.txt"; # FILE 即是使用者自行定義的檔案代號

不過阿逸習慣加上大於(>)、小於(<)符號，表示方向，

有方向性的觀念會幫助你很容易記清楚檔案，

所以上面的式子可以多加入小於(<)符號，

open FILE, "; # FILE 即是使用者自行定義的檔案代號

表示我要讀取檔案。反之：

open FILE, ">File_sample_2.txt"; # FILE 即是使用者自行定義的檔案代號

則表示我要寫入檔案。注意：每次執行都會把原有檔案覆蓋。

如果希望不覆蓋檔案，而想把資料繼續寫進去，就要使用遠大於(>>)符號：

open FILE, ">>File_sample_2.txt"; # FILE 即是使用者自行定義的檔案代號

如此一來資料就會繼續加在檔案的結尾。

---

用幾個例子來試試看吧！首先是寫入檔案：

open FILE, ">File_sample_2.txt"; # FILE 即是使用者自行定義的檔案代號

{

print FILE "Hello World!";# 表示我要印出字串到FILE所對照的檔案內

}

執行後，可以看到同路徑下，產生了一個檔案 File_sample_2.txt

點開File_sample_2.txt後，剛剛打的Hello World! 就在裡面。

同樣要記住：每次執行都會把原有檔案覆蓋。

再來試試看這個吧！

open FILE, ">>File_sample_2.txt"; # FILE 即是使用者自行定義的檔案代號

{

print FILE "Hello World!";# 表示我要印出字串到FILE所對照的檔案內

}

多執行個幾次，你會看到檔案裡面，Hello World! 多了好幾行！

最後講檔案讀取吧！

讀取檔案這部分我們多著墨來討論，

為了解說方便，請下載剛剛的範例檔案。

---

下載好後，把範例跟你的練習程式放在同個資料夾下。

用while開檔時，檔案內容會一行一行讀取，

只有讀取資料不夠，在這裡，我們要加上一點變化！

即是把資料再作進一步的處理：

openFILE,"<File_sample_1.txt";

while($line=<FILE>)

{

# 檔案是一次讀一行進來

chomp $line; #把換行符號拿掉

@split = split ("\t",$line); #每一行以Tab字元分割 存入陣列

foreach (@split) # 對每一個陣列

{

if ($_ =~ /\D/) # 如果陣列裡面是 非數字 (\D)

{

push @array, $_; # 則放入新的陣列

}

}

}

print $array[0]; # 印出第一個處理後的陣列

執行結果會看到，保留在陣列第一個元素的即是 I

最後，把整個鎮列印出來試試看吧！

看數字是不是都消失了！

print @array; # 把每個陣列印出來

---

熟悉Perl的檔案處理之後，接下來就要介紹，

Perl的模組實際應用。