Perlでファイルを開く方法

1年 ago
芽依, 雨夜
1 minute

Perlではopen()関数を利用してファイルを開くことができます。ファイルを開く手順を以下に示します。

  1. オープン（する）
  2. openする
open(my $file_handle, '<', 'filename.txt') or die "无法打开文件: $!";

上記コードでは、$file_handleはファイルハンドルで、filename.txtは開きたいファイル名です。<はリードオンリーのモードでファイルを開きます。もしファイルが開けなかった場合は、dieはエラーメッセージを出力してプログラムを終了します。

  1. readline()
  2. ファイルハンドル
while (my $line = <$file_handle>) {
  # 处理每一行的内容
  print $line;
}

上記のコードでは、<$file_handle>を使用して、ファイルハンドルに関連付けられているファイルの次の行の内容を読み取ります。読み取った内容は変数$lineに格納され、ループ本体内で各行の内容が処理されます。

  1. 閉じる
close $file_handle;

上記のコードでは、$file_handleはcloseするべきファイルハンドルです。

完全なサンプル コード:

open(my $file_handle, '<', 'filename.txt') or die "无法打开文件: $!";
while (my $line = <$file_handle>) {
  print $line;
}
close $file_handle;

上記のコードは、ファイルfilename.txtを開き、1行ずつ内容を読み取って出力し、その後ファイルを閉じます。

bannerAds