Perl 文件讀取與數組操作實戰：三種打開模式與異常處理模式

Perl 文件操作基礎

Perl 通過 open 函數打開文件句柄，支持多種模式組合。理解模式標記含義是正確處理文件 IO 的前提。

文件打開模式速查表

三種異常處理模式

模式一：失敗即異常終止（適用關鍵配置文件）

use strict;
use warnings;

my $filename = 'data.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
    or die "Could not open file '$filename': $!";

while (my $row = <$fh>) {
    chomp $row;
    print "$row\n";
}
close($fh);

特點：die 立即終止程序，輸出錯誤信息含行號，適合「必須存在」的文件。

模式二：失敗警告但繼續執行（適用可選文件）

use strict;
use warnings;

my $filename = 'data.txt';
if (open(my $fh, '<:encoding(UTF-8)', $filename)) {
    while (my $row = <$fh>) {
        chomp $row;
        print "$row\n";
    }
    close($fh);
} else {
    warn "Could not open file '$filename': $!";
}

特點：warn 輸出警告到 STDERR，程序繼續運行，適合「可選」的文件。

模式三：整文件讀入數組（適用小文件全量處理）

use strict;
use warnings;

my $filename = 'data.txt';
open(my $fh, '<', $filename)
    or die "Could not open file '$filename': $!";

my @file_contents = <$fh>;  # 列表上下文：每行成一個元素
close($fh);

for my $line (@file_contents) {
    print $line;  # 保留換行符
}

特點：一次性讀入內存，適合小文件；大文件會耗盡內存。

進階技巧

1. 三參數 open（推薦）

open(my $fh, '<:encoding(UTF-8)', $filename)  # 明確模式、編碼、變量分離
# 避免雙參數 open 的安全隱患：open FH, "< $filename" 可能被注入管道命令

2. 自動關閉（語法糖）

# Perl 5.14+ 支持
open(my $fh, '<', $filename) or die $!;
# 隱式作用域結束自動 close，或显式
close $fh;

3. 逐行處理 vs 數組讀入

4. 編碼層處理

:encoding(UTF-8)      # 標準 UTF-8
:encoding(UTF-16LE)   # UTF-16 小端
:raw                  # 二進制模式，無轉換
:crlf                 # Windows 換行符轉換

常見錯誤與排查

最佳實踐清單

1. 始終使用三參數 open、詞法文件句柄（my $fh）
2. 明確指定編碼層（:encoding(UTF-8)）
3. 根據文件重要性選擇 die/warn/if-else
4. 大文件逐行處理，小文件可讀入數組
5. 顯式 close 或依賴作用域自動關閉
6. 錯誤信息包含文件名、$! 系統錯誤碼

總結

Perl 文件操作靈活強大，關鍵在於：正確選擇打開模式、明確編碼層、合理的異常處理策略、內存效率考量。掌握三種核心模式（die、warn、數組讀入）與進階技巧，能應對 95% 的文本處理場景。