鍦≒erl涓紝鍙互浣跨敤open()鍑芥暟鏉ユ墦寮€鏂囦欢銆備互涓嬫槸鎵撳紑鏂囦欢鐨勫父瑙佹楠わ細

1. 浣跨敤open()鍑芥暟鏉ユ墦寮€鏂囦欢銆?code>open()鍑芥暟鎺ュ彈涓や釜鍙傛暟锛氭枃浠跺彞鏌勫拰鏂囦欢鍚嶃€傛枃浠跺彞鏌勬槸涓€涓爣璇嗙锛岀敤浜庡湪鍚庣画鐨勬搷浣滀腑寮曠敤璇ユ枃浠躲€?/li>

open(my $file_handle, '<', 'filename.txt') or die "鏃犳硶鎵撳紑鏂囦欢: $!";

涓婅堪浠ｇ爜涓紝$file_handle鏄枃浠跺彞鏌勶紝filename.txt鏄鎵撳紑鐨勬枃浠跺悕銆?code><琛ㄧず浠ュ彧璇绘ā寮忔墦寮€鏂囦欢銆傚鏋滄枃浠舵棤娉曟墦寮€锛?code>die浼氳緭鍑洪敊璇俊鎭苟閫€鍑虹▼搴忋€?/p>

2. 鍙互浣跨敤readline()鍑芥暟鎴栬€?code><FILE_HANDLE>璇硶鏉ラ€愯璇诲彇鏂囦欢鍐呭銆?/li>

while (my $line = <$file_handle>) {
  # 澶勭悊姣忎竴琛岀殑鍐呭
  print $line;
}

涓婅堪浠ｇ爜涓紝<$file_handle>鐢ㄤ簬璇诲彇鏂囦欢鍙ユ焺鎵€鍏宠仈鏂囦欢鐨勪笅涓€琛屽唴瀹广€傚皢璇诲彇鐨勫唴瀹硅祴鍊肩粰鍙橀噺$line锛岀劧鍚庡湪寰幆浣撲腑澶勭悊姣忎竴琛岀殑鍐呭銆?/p>

3. 鍦ㄦ枃浠朵娇鐢ㄧ粨鏉熷悗锛屼娇鐢?code>close()鍑芥暟鍏抽棴鏂囦欢銆?/li>

close $file_handle;

涓婅堪浠ｇ爜涓紝$file_handle鏄鍏抽棴鐨勬枃浠跺彞鏌勩€?/p>

瀹屾暣绀轰緥浠ｇ爜锛?/p>

open(my $file_handle, '<', 'filename.txt') or die "鏃犳硶鎵撳紑鏂囦欢: $!";
while (my $line = <$file_handle>) {
  print $line;
}
close $file_handle;

涓婅堪浠ｇ爜浼氭墦寮€鏂囦欢filename.txt锛岄€愯璇诲彇鏂囦欢鍐呭骞惰緭鍑猴紝鐒跺悗鍏抽棴鏂囦欢銆?/p>