Perlでテキストファイルを読み込む簡単ステップ：詳細解説とサンプルコード集

はじめに：Perlとファイル処理の重要性

Perlは、特にテキスト処理とシステム管理の分野で長年にわたり活躍している強力なスクリプト言語です。その設計思想の一つに「やりたいことを簡単に、しかし強力に実現できる」という点があり、テキストファイルからのデータの読み込みは、Perlが最も得意とする処理の一つです。ログファイルの解析、設定ファイルの読み込み、データ処理パイプラインの構築など、多くのタスクでファイルからの入力は不可欠となります。

この記事では、Perlを使ってテキストファイルを読み込むための基本的なステップから、様々な応用テクニック、さらには効率的な処理やエラーハンドリングの方法までを、詳細な解説と豊富なサンプルコードとともにご紹介します。Perl初心者の方でも理解できるよう、各ステップを丁寧に説明していきます。

ファイル処理の基本的な流れ

Perlでテキストファイルを扱う際の基本的な流れは、以下の3つのステップに集約されます。

ファイルを開く (Open the file): 処理対象のファイルと、どのような操作（読み込み、書き込み、追記など）を行うかを指定します。このとき、「ファイルハンドル」という、開いたファイルを参照するための特殊な名前（または変数）を取得します。
ファイルを読み込む/書き込む (Read/Write the file): 取得したファイルハンドルを使って、ファイルの内容を読み込んだり、ファイルにデータを書き込んだりします。この記事では読み込みに焦点を当てます。読み込みの単位（一行ずつ、ファイル全体など）を選び、必要に応じてデータを処理します。
ファイルを閉じる (Close the file): ファイルへの操作が終わったら、開いたファイルを閉じます。これはシステムのリソースを解放し、予期せぬデータの消失を防ぐために非常に重要です。

この3つのステップを理解することが、Perlにおけるファイル処理の基礎となります。

ステップ1：ファイルを「開く」 – `open` 関数

Perlでファイルを開くには、組み込み関数である open を使用します。open 関数は、通常、以下の形式で使用します。

perl open FILEHANDLE, MODE, FILENAME;

または、より現代的で推奨される形式として、3引数形式とレキシカルファイルハンドルを使用します。

perl open my $fh, MODE, FILENAME;

ここで、それぞれの要素について詳しく見ていきましょう。

FILEHANDLE または my $fh: これはファイルを開いたときにそのファイルを参照するために使用する名前です。伝統的には大文字の単語（例: INFILE, DATA）が使われてきましたが、現代のPerlでは my $fh のようにスカラ変数に格納する「レキシカルファイルハンドル」を使用することが強く推奨されます。これは、スコープ管理が容易になり、名前の衝突を防げるためです。この記事でも、特別な理由がない限りレキシカルファイルハンドルを使用します。
MODE: ファイルをどのような目的で開くかを指定する文字列です。テキストファイルの読み込みにおいては、主に以下のモードを使用します。
- <: 読み込みモード。ファイルが存在しない場合はエラーとなります。最も一般的なテキストファイル読み込みモードです。
- >: 書き込みモード。ファイルが存在する場合は内容が全て消去されます。ファイルが存在しない場合は新しく作成されます。
- >>: 追記モード。ファイルが存在する場合は末尾に追記されます。ファイルが存在しない場合は新しく作成されます。
- +<: 読み書き両用モード。ファイルが存在する必要があります。
- +>: 読み書き両用モード。ファイルが存在する場合は内容が全て消去されます。ファイルが存在しない場合は新しく作成されます。
- +>>: 読み書き両用モード。ファイルが存在する場合は末尾に追記されます。ファイルが存在しない場合は新しく作成されます。
この記事では、読み込みに焦点を当てるため、主に < モードを使用します。
* FILENAME: 開きたいファイルのパスを指定します。これは相対パスでも絶対パスでも構いません。例えば、カレントディレクトリにある data.txt なら "data.txt"、特定のディレクトリにあるファイルなら "/home/user/docs/report.txt" のように指定します。

open 関数は、ファイルを開くことに成功した場合は真（通常は1）、失敗した場合は偽（通常はundef）を返します。この戻り値を利用して、ファイルを開く際にエラーが発生したかどうかを確認することが、堅牢なスクリプトを作成する上で非常に重要です。

ステップ1.5：エラーハンドリング – `or die` と `$!`

ファイルを開く処理は、様々な理由で失敗する可能性があります。例えば、指定したファイルが存在しない、読み取り権限がない、ファイル名に不正な文字が含まれている、などのケースです。ファイルを開くことに失敗したにも関わらず、その後の読み込み処理に進んでしまうと、スクリプトは予期せぬエラーを起こしたり、間違った結果を出力したりします。

これを防ぐために、open の結果を必ず確認し、失敗した場合はエラーメッセージを出力してスクリプトを終了させるようにします。Perlでは、これを簡潔に記述するためのイディオムとして or die をよく使用します。

perl open my $fh, '<', $filename or die "ファイルをオープンできません: $!";

or: これはPerlの論理演算子ですが、スカラコンテキストでは短絡評価を行います。open が成功した場合（真を返す）は or の右側は評価されません。open が失敗した場合（偽を返す）は or の右側が評価されます。
die: 引数に指定された文字列を標準エラー出力に表示し、スクリプトを終了させる組み込み関数です。エラーが発生したことを知らせるために使用します。デフォルトでは、エラーメッセージの最後にスクリプトのファイル名と行番号が付加されます。
$!: これはPerlの特殊変数で、システムコール（ファイル操作なども含まれます）によって設定された直近のシステムエラーメッセージを保持しています。ファイルを開くのに失敗した場合、なぜ失敗したのか（例: “No such file or directory”）という情報が $! に格納されるため、エラーメッセージに $! の値を含めることで、より具体的な原因をユーザーに伝えることができます。

この or die "$!" という組み合わせは、Perlでファイルやその他のシステムリソースを扱う際のエラー処理の基本中の基本です。必ず使用するようにしましょう。

エラーハンドリングを含めたファイルオープンのサンプルコード:

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “my_data.txt”; # 読み込みたいファイル名

ファイルを読み込みモードで開く

失敗したらエラーメッセージを出力して終了

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

print “ファイル ‘$filename’ は正常に開かれました。\n”;

この後、ファイルを読み込む処理が続きます…

処理が終わったらファイルを閉じる（後述）

close $fh;

exit; # スクリプトの正常終了
“`

このコードを実行する前に、例えば my_data.txt という名前でいくつかの行を含むテキストファイルを作成しておいてください。ファイルが存在すれば「正常に開かれました。」と表示され、ファイルが存在しない場合は「エラー: ファイル ‘my_data.txt’ を開けません (No such file or directory)」のようなメッセージが表示されてスクリプトが終了するはずです。

ステップ2：ファイルを「読み込む」 – 行単位の読み込み

ファイルが開けたら、次はその内容を読み込みます。テキストファイルを読み込む最も一般的で基本的な方法は、「一行ずつ」読み込む方法です。これは、Perlのダイヤモンド演算子 (<> または <FILEHANDLE>) を利用して行います。

開いたファイルハンドル（例: my $fh）を使って一行ずつ読み込むには、以下のように記述します。

perl my $line = <$fh>;

このコードを実行するたびに、ファイルから次の一行が読み込まれ、$line 変数に代入されます。ファイルの終わりに達すると、<$fh> は undef を返します。

通常、ファイル全体を一行ずつ処理したい場合は、この読み込み操作をループの中で行います。Perlでは、while ループと組み合わせるのが最も一般的です。

perl while (my $line = <$fh>) { # $line には読み込んだ一行の内容が入っています # ここで、$line を使った処理を行います print $line; # 例えば、読み込んだ行を表示する }

さらに、Perlには「デフォルト変数」という便利な機能があり、while ループの中で my $line = <$fh> のように変数を明示的に指定しない場合、読み込まれた一行は自動的に特殊変数 $_ に代入されます。多くの組み込み関数は引数を省略すると $_ を対象とするため、コードをより短く記述できます。

perl while (<$fh>) { # 読み込んだ一行は自動的に $_ に入る # $_ には読み込んだ一行の内容が入っています # ここで、$_ を使った処理を行います print $_; # $_ の内容を表示する }

この while (<$fh>) { ... } という構造は、Perlでテキストファイルを一行ずつ処理する際の非常に基本的なイディオムです。

`chomp` 関数の重要性

テキストファイルを読み込む際、各行の末尾には通常、改行コード（Unix系では \n、Windowsでは \r\n）が含まれています。多くの場合、行の内容だけを処理したいので、この改行コードは不要です。改行コードが付いたまま文字列操作を行ったり、画面に表示したりすると、予期せぬ結果になったり、余分な空白行が表示されたりします。

この改行コードを取り除くために、Perlには chomp という便利な組み込み関数があります。chomp 関数は、文字列の末尾から現在の入力レコードセパレータ ($/ という特殊変数に格納されている値、デフォルトは \n) に一致する部分を取り除きます。取り除いた文字数を返します。

“`perl
my $line = <$fh>;
chomp $line; # $line の末尾にある改行コードを取り除く

$line には改行コードが取り除かれた行の内容が入る

“`

chomp もまた、引数を省略するとデフォルト変数 $_ を対象とするため、while (<$fh>) ループと組み合わせて使う場合は、以下のように記述することが多いです。

perl while (<$fh>) { # $_ に一行が読み込まれる chomp; # $_ の末尾の改行コードを取り除く # $_ は改行コードが取り除かれた状態 print $_; # $_ を使った処理 }

ファイル読み込みとセットで chomp を使うことは非常に一般的であり、ほとんどの場合、読み込んだ行に対して最初に chomp を適用することを推奨します。

行単位読み込みの基本的なサンプルコード:

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “sample.txt”;

読み込み対象のサンプルファイルを作成 (実行前にファイルがない場合)

この部分は実際のファイル読み込み時には不要です

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “これが1行目です。\n”;
print $tmp_fh “これが2行目です。\n”;
print $tmp_fh “これが3行目です。\n”;
print $tmp_fh “最終行です。\n”;
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

print “ファイル ‘$filename’ の内容を読み込みます:\n”;

ファイルを読み込みモードで開く（エラーハンドリング付き）

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

ファイルを一行ずつ読み込み、処理する

while (my $line = <$fh>) {
# 読み込んだ行の末尾から改行コードを取り除く
chomp $line;

# 読み込んだ行を表示する（今回はただ表示するだけ）
print ">> ", $line, "\n";

}

print “ファイルの読み込みが完了しました。\n”;

ファイルを閉じる

close $fh;

exit;
“`

このコードを実行すると、sample.txt というファイルが作成（または既にあればそれを使用）され、その内容が一行ずつ読み込まれて、先頭に >> が付加されて表示されるはずです。chomp のおかげで、各行の表示後に余分な空行は挿入されません。

use strict; と use warnings; について: これらはPerlスクリプトの先頭によく記述されるプラグマです。use strict; は変数の宣言（my, our, state）を強制するなど、記述ミスによるバグを防ぐための制限を有効にします。use warnings; は潜在的な問題点（未初期化の変数、不適切なコンテキストでの関数使用など）について警告メッセージを表示します。これらを使用することは、より安全で保守性の高いコードを書く上で強く推奨されます。

ステップ3：ファイルを「閉じる」 – `close` 関数

ファイルへのすべての読み込みまたは書き込み操作が完了したら、そのファイルを閉じる必要があります。ファイルを閉じるには、組み込み関数 close を使用します。

perl close FILEHANDLE;

または、レキシカルファイルハンドルの場合:

perl close $fh;

ファイルを閉じることは、以下の理由から重要です。

リソースの解放: オペレーティングシステムは、開かれたファイルごとにリソース（ファイルディスクリプタなど）を割り当てます。これらのリソースには限りがあるため、不要になったファイルは速やかに閉じ、解放する必要があります。特に多くのファイルを扱う場合や、長期間実行されるスクリプトでは重要です。
バッファリングされたデータのフラッシュ: 書き込みモードでファイルを開いた場合、データは通常、すぐにディスクに書き込まれるのではなく、一時的にメモリ上のバッファに蓄えられます。close 関数が呼び出されると、このバッファに残っているデータが全てディスクに書き込まれます（フラッシュされます）。ファイルを閉じずにスクリプトが終了したり、クラッシュしたりすると、バッファ中のデータが失われる可能性があります。読み込みモードでも内部的なバッファリングが行われることがありますが、閉じないことによるデータ損失のリスクは書き込みほど高くないです。
ファイルの完全性の確保: ファイルを閉じることで、オペレーティングシステムはファイルに関するメタデータ（最終更新日時など）を更新し、ファイルが完全な状態であることを保証します。

ただし、Perlではスクリプトが正常に終了すると、開いていたファイルは自動的に閉じられます。また、レキシカルファイルハンドル（my $fh）を使用した場合、そのファイルハンドルを含むスコープから抜けると、ファイルは自動的に閉じられます。この自動クローズ機能があるため、短いスクリプトや単純な処理であれば明示的に close を書かなくても問題なく動作する場合が多いです。しかし、明示的に close を呼び出すことは良い習慣であり、特に以下のような場合には推奨されます。

エラー発生時など、スクリプトの途中でファイルを閉じる必要がある場合。
同じスクリプト内で同じファイルを再度開く場合（特に書き込みモードで）。
スクリプトが長時間実行される場合や、大量のファイルを順次処理する場合。
コードの可読性を高め、ファイル処理の完了を明確に示したい場合。

明示的に close を書いたとしても、自動クローズが機能しなくなるわけではありません。両方が存在しても問題ありません。一般的には、open と対になる形で close を記述するのが最も分かりやすいスタイルと言えるでしょう。

基本ステップまとめコード:

ここまでの「開く」「読み込む」「閉じる」の3ステップとエラーハンドリングを組み合わせた、最も基本的なテキストファイル読み込みコードを再掲します。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “my_document.txt”;

1. ファイルを開く（読み込みモード ‘<‘）+ エラーハンドリング

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

print “ファイル ‘$filename’ を開きました。内容を読み込みます。\n”;

2. ファイルを読み込む（一行ずつ）+ chompで改行を除去

while (my $line = <$fh>) {
chomp $line; # 改行コードを除去

# ここで $line を使って必要な処理を行う
# 例: 画面に表示する
print "--> ", $line, "\n";

# 例: 特定のキーワードが含まれているかチェックする
# if ($line =~ /important/) {
#     print "重要な行が見つかりました: ", $line, "\n";
# }

}

print “ファイルの読み込みが完了しました。\n”;

3. ファイルを閉じる

close $fh;

print “ファイル ‘$filename’ を閉じました。\n”;

exit;
“`

このコードは、Perlでテキストファイルを読み込む際の最も基本的なパターンです。まずはこのパターンをしっかりと理解し、使えるようになることが重要です。

様々なファイル読み込み方法

Perlでは、前述の「一行ずつ読み込む」方法以外にも、いくつかの異なる方法でファイルの内容を読み込むことができます。ファイルのサイズや、データの構造に応じて最適な方法を選択します。

1. ファイル全体を一括で読み込む

時には、ファイルを一行ずつ処理するのではなく、ファイル全体の内容を一つの大きな文字列として一度に読み込みたい場合があります。例えば、小さな設定ファイルを読み込む場合や、ファイル全体に対して正規表現マッチングを行いたい場合などです。

これを実現するには、特殊変数 $/ (入力レコードセパレータ) の値を変更します。デフォルトでは $/ は \n に設定されており、これが <FILEHANDLE> 演算子が行を区切る基準となっています。$/ を undef に設定すると、<FILEHANDLE> はファイルの終わりに達するまで読み込み続け、ファイル全体の内容を一度に返します。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “whole_file_example.txt”;

サンプルファイルを作成 (実行前にファイルがない場合)

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “これはファイル全体の読み込みテストです。\n”;
print $tmp_fh “複数行にわたる内容を含んでいます。\n”;
print $tmp_fh “最後の行です。\n”;
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

ファイルを読み込みモードで開く

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

* ファイル全体を一括で読み込むための準備 *

入力レコードセパレータ $/ を undef に設定する

local を使うことで、このブロック内でのみ $/ の設定を変更する

local $/ = undef;

ファイルの内容を全て読み込む

<$fh> がファイル全体を返すようになる

my $file_content = <$fh>;

$/ の設定を元に戻す（local があるのでブロックを抜ければ自動だが、明示的に知っておくのは良い）

$/ = “\n”; # local があれば不要

ファイルを閉じる

close $fh;

print “ファイル ‘$filename’ の内容を一括で読み込みました。\n”;

読み込んだ内容を表示する

print “— ファイルの内容 —\n”;
print $file_content; # 改行コードもそのまま含まれる
print “———————\n”;

読み込んだ内容を使って処理を行う

例: 特定の文字列が含まれているかチェック

if ($file_content =~ /テスト/) {
print “‘テスト’という単語が見つかりました。\n”;
}

exit;
“`

注意点: ファイル全体を一括で読み込む方法は非常に便利ですが、ファイルのサイズが大きい場合は大量のメモリを消費する可能性があります。ファイルサイズがコンピュータのメモリ容量を超える場合、この方法は使用できません。数ギガバイトを超えるような巨大なファイルを扱う場合は、必ず一行ずつ処理する方法を選択してください。

local $/ = undef; のように local キーワードを使うのは、$/ の変更をそのスコープ内だけに限定するためです。これにより、もし関数内で $/ を変更しても、その関数を抜ければ元の設定に戻るため、他の部分のコードに影響を与えません。これはPerlにおけるグローバル変数的な特殊変数を一時的に変更する際の定石です。

2. 特定の区切り文字で区切られた「レコード」を読み込む

テキストファイルは、必ずしも一行が独立したレコードであるとは限りません。例えば、ブログ記事のファイルが記事ごとに複数の段落やヘッダー、フッターで構成されていて、各記事が特定の文字列（例: ### END OF ARTICLE ###）で区切られているようなケースです。このような場合、一行ずつではなく、特定の区切り文字が出現するまでのまとまりを一つのレコードとして読み込みたいことがあります。

これも $/ 変数を変更することで実現できます。$/ に区切りたい文字列を設定すると、<FILEHANDLE> はその文字列が出現するまでの内容を一つの塊として読み込むようになります。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “record_example.txt”;
my $record_separator = “###”; # ここでレコードの区切り文字を指定

サンプルファイルを作成 (実行前にファイルがない場合)

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “レコード 1: 最初の部分\n”;
print $tmp_fh “レコード 1: 続きの部分\n”;
print $tmp_fh “$record_separator\n”; # 区切り文字を行の末尾に含めることが多い
print $tmp_fh “レコード 2: 最初の部分\n”;
print $tmp_fh “レコード 2: 別の行\n”;
print $tmp_fh “$record_separator\n”;
print $tmp_fh “レコード 3: これが最後のレコードです。\n”;
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

ファイルを読み込みモードで開く

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

* レコード単位で読み込むための準備 *

入力レコードセパレータ $/ を指定した文字列に設定する

local $/ = $record_separator . “\n”; # 区切り文字とそれに続く改行をセパレータとする場合

ファイルをレコード単位で読み込み、処理する

print “ファイル ‘$filename’ をレコード単位で読み込みます (区切り: ‘$record_separator’):\n”;
my $record_num = 1;
while (my $record = <$fh>) {
# 読み込んだレコードの末尾には区切り文字が含まれる
# 必要に応じて chomp や文字列操作で区切り文字を取り除く
# chomp $record; # chomp は $/ の値を対象とするため、ここでは区切り文字を取り除くのに使える

print "--- レコード $record_num ---\n";
print $record; # レコードの内容を表示
print "------------------\n";

$record_num++;

}

$/ の設定を元に戻す (local があるのでブロックを抜ければ自動)

ファイルを閉じる

close $fh;

print “ファイルの読み込みが完了しました。\n”;

exit;
“`

この方法も、ファイル全体を一括で読み込む場合と同様に、レコードが非常に大きい場合はメモリを消費する可能性があります。しかし、適切に区切られた構造を持つファイルを扱う際には非常に便利なテクニックです。

デフォルトの $/ (\n) に加えて、$/ = undef (ファイル全体)、そして特定の文字列による区切りという3つの主要なモードを知っておくと、様々な形式のテキストファイルを効率的に処理できます。

3. 固定長レコードの読み込み – `read` 関数

テキストファイルの中には、各レコードが固定のバイト数で構成されている形式のものも存在します。例えば、古いデータ形式や特定のシステムからの出力などです。このような固定長レコードを扱う場合、一行ずつや区切り文字での読み込みは適していません。ファイルから指定したバイト数を正確に読み込みたい場合は、組み込み関数 read を使用します。

read 関数の基本的な形式は以下の通りです。

perl read FILEHANDLE, SCALAR, LENGTH, [OFFSET];

FILEHANDLE: 読み込み元のファイルハンドルです。
SCALAR: 読み込んだデータを格納するスカラ変数です。read 関数はこの変数に直接データを追加します。
LENGTH: 読み込みたいバイト数です。
OFFSET: （省略可能）読み込みを開始するスカラ変数内の位置（バイト単位）です。指定しない場合は、スカラ変数の現在の内容の末尾から追加されます。

read 関数は、実際に読み込んだバイト数を返します。ファイルの終わりに達した場合は 0 を返します。エラーが発生した場合は undef を返します。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “fixed_length_example.bin”; # テキストファイルでも使えるが、バイト単位なので.binとする

サンプルファイルを作成 (実行前にファイルがない場合)

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “AAAAABBBBBCCCCC”; # 各5バイトのレコードを3つ
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

my $record_length = 5; # 1レコードのバイト数

ファイルを読み込みモードで開く

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

print “ファイル ‘$filename’ を固定長レコード ($record_length バイト) で読み込みます:\n”;

my $buffer; # 読み込んだデータを格納する変数
my $record_num = 1;

EOF (End Of File) に達するまで $record_length バイトずつ読み込む

while (read $fh, $buffer, $record_length) {
# $buffer に $record_length バイト分のデータが読み込まれている
print “— レコード $record_num —\n”;
print $buffer, “\n”; # 読み込んだレコードを表示
print “——————\n”;

$record_num++;
$buffer = ""; # 次の読み込みのためにバッファをクリア（またはOFFSETを指定）

}

ファイルを閉じる

close $fh;

print “ファイルの読み込みが完了しました。\n”;

exit;
“`

この例では、読み込みごとに $buffer をクリアしていますが、read 関数の第4引数（OFFSET）を使用すれば、バッファ変数に次々とデータを追記していくことも可能です。しかし、固定長レコード処理の場合は、通常はレコードごとに独立したバッファを使うか、読み込んだらすぐに処理して次のレコードを読み込む形が多いでしょう。

read 関数はバイト単位で動作するため、バイナリファイルを扱う際にも使用されます。ただし、エンコーディングを考慮しないバイト列として扱われることに注意が必要です。テキストファイルとして扱う場合は、文字エンコーディングを正しく考慮する必要があります（これについては後述の「効率的なファイル処理のためのヒント」で少し触れます）。

ファイル読み込み時の応用テクニック

ファイル読み込みの基本を押さえた上で、さらに便利な応用テクニックをいくつか紹介します。

行番号の取得 – 特殊変数 `$.`

Perlは、ファイルから一行読み込むたびに、そのファイルハンドルに関連付けられた行番号を自動的にカウントしています。この現在の行番号は、特殊変数 $. (または $NR) に格納されています。

$. は最後に読み込みが行われたファイルハンドルに関連付けられた行番号を示します。複数のファイルを読み込む場合、どのファイルハンドルに関連付けられているかは、最後に select(FILEHANDLE) で選択されたファイルハンドルになります。デフォルトでは、標準入力ファイルハンドル STDIN が選択されています。しかし、while (<$fh>) のように特定のファイルハンドルを指定して読み込む場合、そのファイルハンドルの行番号カウンタが自動的に更新され、$. もその値を示します。

$. は、例えばログファイルの特定の行を参照したい場合や、エラーメッセージに行番号を含めたい場合などに非常に役立ちます。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “numbered_lines.txt”;

サンプルファイルを作成 (実行前にファイルがない場合)

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “Line one\n”;
print $tmp_fh “Line two\n”;
print $tmp_fh “Line three\n”;
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

print “ファイル ‘$filename’ を読み込みます。行番号付き:\n”;

行番号を表示しながら読み込む

while (my $line = <$fh>) {
chomp $line;

# 特殊変数 $. で現在の行番号を取得
print "行 ", $., ": ", $line, "\n";

# 特定の行番号の場合に特別な処理を行う例
if ($. == 2) {
    print "  -- これは2行目です！\n";
}

}

close $fh;

print “ファイルの読み込みが完了しました。\n”;
print “最終行番号は: “, $., “\n”; # 最後のファイルの総行数+1 (EOF後) または最後の行の行番号（最後のreadが成功した場合）になることがある

exit;
“`

$. の値は、ファイルの読み込みが始まると 1 からカウントが開始されます。ファイルを閉じると、そのファイルハンドルに関連付けられていた $. の値はリセットされます。複数のファイルハンドルを順番に読み込む場合、$. は最後に読み込んだファイルハンドルの行番号を示します。

特定の行だけを処理する

$. を使うと、特定の行番号に基づいて処理を分岐させることができます。例えば、ファイルの最初の数行だけを読み込みたい場合や、ヘッダー行をスキップしてデータ行だけを処理したい場合などです。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “process_specific_lines.txt”;

サンプルファイル作成

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “Header Line 1\n”;
print $tmp_fh “Header Line 2\n”;
print $tmp_fh “Data Line 3\n”;
print $tmp_fh “Data Line 4\n”;
print $tmp_fh “Data Line 5\n”;
print $tmp_fh “Footer Line 6\n”;
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

print “ファイル ‘$filename’ を読み込みます。特定行のみ処理:\n”;

while (my $line = <$fh>) {
chomp $line;

# 最初の2行（ヘッダー）をスキップする
if ($. <= 2) {
    print "  (スキップ) 行 ", $., ": ", $line, "\n";
    next; # 次のループへ
}

# 3行目から5行目までのデータ行を処理する
if ($. >= 3 && $. <= 5) {
    print "  (処理) 行 ", $., ": ", $line, "\n";
    # ここでデータ行に対する処理を記述
    # 例: データをパースしたり、集計したり
}

# 6行目以降（フッターなど）を無視してループを終了する
if ($. > 5) {
    print "  (終了) 6行目に到達したので読み込みを中断します。\n";
    last; # ループを終了
}

# 上記の条件に合わない行（この例では6行目以降）は処理されないままループを継続

}

close $fh;

print “ファイルの読み込みが完了しました。\n”;
exit;
“`

この例では、next を使ってスキップしたり、last を使って途中でループを中断したりしています。これにより、ファイルの特定の部分だけを効率的に処理することが可能です。

また、Perlの「範囲演算子 (..)」を使うと、特定の行番号の範囲を簡潔に表現できます。スカラコンテキストで使われた場合、左側の式が真になった時点から右側の式が真になるまで真を返し、右側の式が真になった次の行で偽に戻ります。

“`perl

例: 3行目から5行目までを処理

while (my $line = <$fh>) {
chomp $line;

# 3行目から5行目までが真になる
if ($. == 3 .. $. == 5) {
    print "  (処理) 行 ", $., ": ", $line, "\n";
}

}
“`

これは非常にPerlらしい書き方で、特にフィルタリング処理などで威力を発揮します。

正規表現を使った行のフィルタリング

テキストファイル処理において、特定のパターンに一致する行だけを抽出したり、加工したりすることはよくあります。Perlは正規表現の扱いに非常に長けており、ファイル読み込みと正規表現を組み合わせることで、強力なテキストフィルタリングツールとなります。

while (<$fh>) ループ内で読み込まれた各行 ($_) に対して正規表現マッチングを行うことで、条件に一致する行だけを処理できます。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $filename = “log_file.txt”;

サンプルファイル作成

unless (-e $filename) {
open my $tmp_fh, ‘>’, $filename or die “Cannot create sample file: $!”;
print $tmp_fh “INFO: System started.\n”;
print $tmp_fh “WARNING: Disk space low.\n”;
print $tmp_fh “INFO: User logged in.\n”;
print $tmp_fh “ERROR: Database connection failed.\n”;
print $tmp_fh “INFO: Operation completed.\n”;
close $tmp_fh;
print “サンプルファイル ‘$filename’ を作成しました。\n”;
}

open my $fh, ‘<‘, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

print “ファイル ‘$filename’ を読み込み、’ERROR’または’WARNING’を含む行を抽出:\n”;

while (<$fh>) { # $_ に一行ずつ読み込まれる
chomp; # 改行コードを除去

# $_ に対して正規表現マッチングを行う
# 'ERROR' または 'WARNING' という単語を含む行にマッチ
if ($_ =~ /ERROR|WARNING/) {
    print "検出 (行 ", $., "): ", $_, "\n";
    # ここで、マッチした行に対する処理を行う
}

}

close $fh;

print “ファイルの読み込みが完了しました。\n”;
exit;
“`

この例では、$_ =~ /ERROR|WARNING/ という条件式で、現在の行 ($_) が正規表現 /ERROR|WARNING/ にマッチするかどうかを判定しています。マッチした場合に、その行と行番号を表示しています。

正規表現を活用することで、特定のキーワードを含む行、特定の形式を持つ行、特定のフィールドの値が条件を満たす行など、様々な条件でファイルをフィルタリングできます。これはPerlがログ解析やデータ抽出で広く使われる理由の一つです。

効率的なファイル処理のためのヒント

大規模なファイルを扱う場合や、パフォーマンスが重要な場面では、いくつかの点を考慮することでファイル処理をより効率的に行うことができます。

メモリ効率

ファイル全体を一括で読み込む方法は小さなファイルには便利ですが、大きなファイルではメモリを大量に消費し、システムの動作を遅くしたり、スクリプトがクラッシュしたりする原因となります。数メガバイトを超えるようなファイルの場合は、基本的に一行ずつ処理する方法 (while (<$fh>)) を使うべきです。この方法は、一度にメモリ上に保持するのは一行分（または指定したレコードセパレータ分のデータ）だけで済むため、非常にメモリ効率が良いです。

バッファリング

Perlの標準的なIO関数（open, <>, print, close など）は、内部的にバッファリングを行っています。これは、ディスクへのアクセスはコストが高いため、少量のデータを何度も書き込むのではなく、ある程度まとまったデータを一度に書き込むことで効率を高めるためです。通常、これによりパフォーマンスが向上しますが、リアルタイム性が求められる場合（例: ログを書き込みながら別のプロセスがそれをすぐに読みたい場合）などでは、バッファリングが邪魔になることもあります。

バッファリングの挙動を制御したい場合は、$| 特殊変数を 0 以外の値に設定することで、現在選択されているファイルハンドルのバッファリングを無効にし、即時フラッシュ（autoflush）を有効にできます。または、$OUTPUT_AUTOFLUSH 変数を使用することもできます（use English; または use IO::Handle; が必要）。

“`perl

例: 標準出力のバッファリングを無効化し、printした内容を即座に表示させる

$| = 1;

または

use IO::Handle;

$stdout->autoflush(1);

“`
ファイルハンドルに対してautoflushを有効にすることも可能です。

“`perl
use strict;
use warnings;

use IO::Handle; # autoflush メソッドを使う場合に必要

my $filename = “output.log”;
open my $fh, ‘>’, $filename or die “Cannot open $filename: $!”;

ファイルハンドル $fh のバッファリングを無効化

$fh->autoflush(1); # IO::Handle を使った場合

select $fh; $| = 1; select STDOUT; # こちらでも可能

print $fh “これはすぐに書き込まれるはずの行です。\n”;

close $fh;
“`
読み込みモードにおいては、通常はバッファリングを気にする必要はほとんどありません。

文字エンコーディング

テキストファイルを扱う上で非常に重要なのが文字エンコーディングです。ファイルがUTF-8、Shift_JIS、EUC-JPなど、どのエンコーディングで保存されているかによって、バイト列の解釈が変わってきます。Perlのバージョン5.8以降では、IOレイヤーという仕組みを使って、ファイルを開く際にエンコーディングを指定し、Perlの内部表現（通常はUTF-8）との間の変換を自動で行わせることができます。

これは open 関数の第2引数（モード）に :encoding(...) レイヤーを指定することで行います。

“`perl

!/usr/bin/perl

use strict;
use warnings;
use utf8; # ソースコード自身がUTF-8の場合

ファイルをUTF-8として読み込む

open my $fh, ‘<:encoding(UTF-8)’, $filename
or die “エラー: ファイル ‘$filename’ を開けません ($!)”;

これで $fh から読み込まれるデータは、Perl内部でUTF-8として扱われる

while (my $line = <$fh>) {
chomp $line;
print $line, “\n”; # 正しく文字が表示される
}
close $fh;
“`

:encoding(UTF-8) を指定することで、ファイルからのバイト列が読み込まれる際にUTF-8として解釈され、Perlの内部表現に変換されます。これにより、日本語などのマルチバイト文字を含むファイルを正しく扱えるようになります。特に指定しない場合、Perlはシステムのデフォルトエンコーディングやロケール設定に依存してバイト列を解釈するため、文字化けの原因となります。

テキストファイルを扱う場合は、ファイルがどのようなエンコーディングで保存されているかを確認し、適切な :encoding レイヤーを指定することを強く推奨します。一般的なWebサイトからダウンロードしたファイルや、最近のシステムで作成されたファイルはUTF-8であることが多いです。

`$|` と `select`

先に少し触れた $| (autoflush) は、現在選択されているファイルハンドルに対して作用します。select 関数は、その「現在選択されているファイルハンドル」を変更するために使用されます。

“`perl

標準出力 (STDOUT) が選択されている状態で $| を設定

select STDOUT; # STDOUT を選択 (これがデフォルト)
$| = 1; # STDOUT のバッファリングを無効化

別ファイルハンドル $fh を選択して $| を設定

select $fh; # $fh を選択
$| = 1; # $fh のバッファリングを無効化

再び標準出力を選択に戻す

select STDOUT;
“`

select は引数を省略すると現在の選択ファイルハンドルを返すので、よく以下のように使われます。

“`perl

現在の選択ファイルハンドルを一時変数に保存し、STDOUT を選択

my $old_fh = select STDOUT;
$| = 1; # STDOUT のバッファリング無効化
select $old_fh; # 元のファイルハンドルを選択に戻す
`` ファイル読み込みにおいては、通常selectを意識する必要はほとんどありません。しかし、$.がどのファイルハンドルの行番号を示すかを理解する上で、selectの概念を知っておくことは役立ちます。$.はselectで現在選択されているファイルハンドルの行番号を参照します。ただし、while (<$fh>)のように明示的にファイルハンドルを指定して読み込んだ場合は、その操作によって$fhの行番号カウンタが更新され、$.` もその値を一時的に参照するようになります。

ファイルハンドルの管理

ファイルを扱う上で、ファイルハンドルを適切に管理することは重要です。特に、レキシカルファイルハンドル (my $fh) を使うことには多くの利点があります。

グローバルファイルハンドル vs レキシカルファイルハンドル

伝統的なPerlでは、ファイルハンドルはグローバルな名前空間に存在しました。

perl open INFILE, '<', $filename; # グローバルファイルハンドル

この形式のファイルハンドルは、スクリプト中のどこからでも参照できてしまうため、特に複数のサブルーチンやモジュールがファイル処理を行うような複雑なプログラムでは、名前の衝突や意図しないファイルハンドルの使用といった問題を引き起こす可能性があります。

一方、レキシカルファイルハンドルは my を使って宣言されたスカラ変数にファイルハンドルリファレンスとして格納されます。

perl open my $fh, '<', $filename; # レキシカルファイルハンドル

my 変数は宣言されたスコープ内でのみ有効であるため、レキシカルファイルハンドルもそのスコープを抜けると自動的に解放されます。これは、close を明示的に書かなかった場合でもファイルが自動的に閉じられることを意味し、リソースリークを防ぐのに役立ちます。また、変数名（例: $fh, $infile_fh）はスコープローカルなので、名前の衝突を心配する必要もありません。

現代のPerlでは、特別な理由がない限り、常にレキシカルファイルハンドルを使用することが強く推奨されます。これは use strict; use warnings; と同様に、より安全で保守性の高いコードを書くための基本的なプラクティスです。

標準入力からの読み込み

Perlは、ファイルだけでなく、標準入力 (STDIN) からもデータを読み込むことができます。標準入力は、キーボードからの入力や、パイプ (|) やリダイレクト (<) を通じて他のプログラムから渡されるデータを扱う際に使用されます。

標準入力から一行ずつ読み込むには、ファイルハンドルとして STDIN を指定して、ファイル読み込みと同様に <STDIN> または <> 演算子を使用します。

“`perl

!/usr/bin/perl

use strict;
use warnings;

print “何か入力してください (入力後Enter、終了はCtrl+DまたはCtrl+Z):\n”;

標準入力から一行ずつ読み込む

while (my $line = ) {
chomp $line; # 入力の改行コードを除去

print "あなたが入力したのは: ", $line, "\n";

}

print “入力の読み込みを終了します。\n”;

exit;
“`

このスクリプトを実行すると、入力を促され、何か入力してEnterを押すたびに、入力した内容が表示されます。Unix系のシステムでは Ctrl+D、Windowsでは Ctrl+Z を入力することで、標準入力の終わりに達し、ループが終了します。

ダイヤモンド演算子 `<>`

実は、ファイル読み込みでよく使われる while (<>) { ... } という形式は、特別な挙動をします。これは「ダイヤモンド演算子」と呼ばれ、引数なしで使用された場合、以下の動作を行います。

コマンドライン引数にファイル名が指定されている場合、それらのファイルを順番に open し、各ファイルを一行ずつ読み込みます。全てのファイルが終了するまでループが継続します。
コマンドライン引数が指定されていない場合、標準入力 (STDIN) から一行ずつ読み込みます。

これにより、コマンドライン引数としてファイル名を渡すことで複数のファイルを処理できる汎用的なスクリプトを簡単に作成できます。

“`perl

!/usr/bin/perl

use strict;
use warnings;

コマンドライン引数でファイル名を指定するか、標準入力から読み込む

print “入力されたファイル/標準入力の内容を表示します:\n”;

<> は引数なしでファイル名が与えられたらそのファイルを、

なければ STDIN を読み込む

while (<>) {
# $_ に一行ずつ読み込まれる
chomp; # 改行コードを除去

# ファイル名が表示される特殊変数 $ARGV と行番号 $. を使用
# $ARGV は現在処理中のファイル名
print "$ARGV:$.: ", $_, "\n";

}

print “全ての読み込みが完了しました。\n”;

exit;
“`

このスクリプトを read_input.pl という名前で保存したとします。

ファイル名を指定せずに実行 (perl read_input.pl) すると、標準入力からの入力を処理します。
ファイル名を指定して実行 (perl read_input.pl file1.txt file2.txt) すると、file1.txt の内容を読み終えたら、次に file2.txt を読み込みます。

ダイヤモンド演算子 <> は、特にUnixのフィルターコマンドのようなツールを作成する際に非常に強力で便利です。

より高度なトピック (簡単に触れる)

この記事では基本的な読み込み方法を中心に解説しましたが、Perlにはさらに高度なファイル操作機能や関連モジュールが存在します。簡単にいくつか紹介します。

sysopen, sysread: 標準的な open, read はPerlのIOレイヤーを通じてバッファリングされたIOを行いますが、sysopen, sysread, syswrite はオペレーティングシステムの低レベルなシステムコールに直接アクセスする機能を提供します。これにより、より細かな制御や、バイナリファイルの正確なバイト操作が可能になります。通常は標準IOで十分ですが、特定のニーズ（例: 非ブロッキングIO, 特定のフラグ指定）がある場合に利用されます。
flock: ファイルを複数のプロセスから同時にアクセスする場合、データの破壊を防ぐためにファイルロックが必要になることがあります。flock 関数は、ファイルハンドルに対して共有ロック（読み込み用）または排他ロック（書き込み用）をかける機能を提供します。
バイナリファイルの扱い: テキストファイルとは異なり、バイナリファイルは改行コードやエンコーディングといった概念を持ちません。read 関数を使ってバイト単位で読み込むのが基本ですが、pack や unpack 関数を使ってバイト列を数値や文字列に変換したり、その逆を行ったりすることがよく行われます。また、IOレイヤーの :raw を使うと、エンコーディング変換や改行変換を行わないバイト列としてファイルを扱うことができます。
ファイル操作モジュール: CPAN (Comprehensive Perl Archive Network) には、ファイル処理をより簡単かつ強力に行うための多くのモジュールが公開されています。
- IO::File: オブジェクト指向スタイルでファイルハンドルを扱えます。
- Path::Tiny: ファイルパスの操作や、ファイルの読み書きを非常に簡潔なコードで行える高機能なモジュールです。ファイルの全内容読み込みや行単位読み込みなども簡単に行えます。例: Path::Tiny->new('my_data.txt')->slurp (ファイル全体読み込み)、Path::Tiny->new('my_data.txt')->lines (行リスト読み込み)。
- File::Slurp: ファイル全体を一括で読み込むことに特化したモジュールです。
- File::ReadBackwards: ファイルの末尾から逆方向に一行ずつ読み込むためのモジュールです。

これらの高度な機能やモジュールは、特定の要件がある場合に検討すると良いでしょう。しかし、ほとんどのテキストファイル読み込みタスクは、この記事で解説した基本的な open, while (<$fh>), chomp, close、そしてエラーハンドリングで十分対応可能です。

まとめ

この記事では、Perlでテキストファイルを読み込むための基本的なステップと様々なテクニックを詳細に解説しました。重要なポイントを改めてまとめます。

ファイルを開く: open 関数を使います。現代的なPerlでは open my $fh, MODE, FILENAME; というレキシカルファイルハンドルを使う形式が推奨されます。読み込みモードは通常 < です。
エラーハンドリング: ファイルを開く際に失敗する可能性を考慮し、必ず or die "$!" のようにエラー処理を記述します。$! にはシステムエラーメッセージが格納されます。
ファイルを読み込む:
- 最も一般的でメモリ効率が良いのは、while (my $line = <$fh>) { ... } または while (<$fh>) { ... } を使った行単位読み込みです。
- 読み込んだ行から改行コードを除去するために、chomp 関数をよく使用します。
- 小さなファイルであれば、local $/ = undef; my $content = <$fh>; としてファイル全体を一括で読み込むことも可能です。
- 特定の区切り文字で区切られたデータを読むには、$/ にその区切り文字を設定します。
- 固定長データやバイナリデータをバイト単位で読むには、read 関数を使用します。
ファイルを閉じる: close $fh; を使ってファイルハンドルを閉じます。これはリソース解放やデータのフラッシュのために重要ですが、レキシカルファイルハンドルはスコープを抜けると自動的に閉じられます。
応用テクニック: $. 特殊変数で行番号を取得したり、正規表現を使って特定の行をフィルタリングしたりできます。
効率化: 大容量ファイルには一行ずつ処理する方法を選び、必要に応じてバッファリングや文字エンコーディング（:encoding レイヤー）を適切に扱います。
標準入力とダイヤモンド演算子 <>: ファイル読み込みと同様の方法で標準入力から読むことができ、<> 演算子を使えばコマンドライン引数のファイルを自動的に処理できます。

Perlを使ったテキスト処理は、これらの基本を組み合わせることで非常に柔軟かつ強力に行えます。まずは基本的な「開く、一行読む、閉じる」のパターンをマスターし、必要に応じて他の読み込み方法や応用テクニック、そしてエラーハンドリングを取り入れていくのが習得への近道です。

この記事で紹介したサンプルコードを実際に実行し、動作を確認しながら学ぶことで、Perlによるファイル読み込みの理解がさらに深まるでしょう。Perlの豊かなテキスト処理機能は、あなたの様々なタスクを効率的に解決する手助けとなるはずです。

Perlでテキストファイルを読み込む簡単ステップ：詳細解説とサンプルコード集

はじめに：Perlとファイル処理の重要性

ファイル処理の基本的な流れ

ステップ1：ファイルを「開く」 – open 関数

ステップ1.5：エラーハンドリング – or die と $!

!/usr/bin/perl

ファイルを読み込みモードで開く

失敗したらエラーメッセージを出力して終了

この後、ファイルを読み込む処理が続きます…

処理が終わったらファイルを閉じる（後述）

ステップ2：ファイルを「読み込む」 – 行単位の読み込み

chomp 関数の重要性

$line には改行コードが取り除かれた行の内容が入る

!/usr/bin/perl

読み込み対象のサンプルファイルを作成 (実行前にファイルがない場合)

この部分は実際のファイル読み込み時には不要です

ファイルを読み込みモードで開く（エラーハンドリング付き）

ファイルを一行ずつ読み込み、処理する

ファイルを閉じる

ステップ3：ファイルを「閉じる」 – close 関数

!/usr/bin/perl

1. ファイルを開く（読み込みモード ‘<‘）+ エラーハンドリング

2. ファイルを読み込む（一行ずつ）+ chompで改行を除去

3. ファイルを閉じる

様々なファイル読み込み方法

1. ファイル全体を一括で読み込む

!/usr/bin/perl

サンプルファイルを作成 (実行前にファイルがない場合)

ファイルを読み込みモードで開く

*** ファイル全体を一括で読み込むための準備 ***

入力レコードセパレータ $/ を undef に設定する

local を使うことで、このブロック内でのみ $/ の設定を変更する

ファイルの内容を全て読み込む

<$fh> がファイル全体を返すようになる

$/ の設定を元に戻す（local があるのでブロックを抜ければ自動だが、明示的に知っておくのは良い）

$/ = “\n”; # local があれば不要

ファイルを閉じる

読み込んだ内容を表示する

読み込んだ内容を使って処理を行う

例: 特定の文字列が含まれているかチェック

2. 特定の区切り文字で区切られた「レコード」を読み込む

!/usr/bin/perl

サンプルファイルを作成 (実行前にファイルがない場合)

ファイルを読み込みモードで開く

*** レコード単位で読み込むための準備 ***

入力レコードセパレータ $/ を指定した文字列に設定する

ファイルをレコード単位で読み込み、処理する

$/ の設定を元に戻す (local があるのでブロックを抜ければ自動)

ファイルを閉じる

3. 固定長レコードの読み込み – read 関数

!/usr/bin/perl

サンプルファイルを作成 (実行前にファイルがない場合)

ファイルを読み込みモードで開く

EOF (End Of File) に達するまで $record_length バイトずつ読み込む

ファイルを閉じる

ファイル読み込み時の応用テクニック

行番号の取得 – 特殊変数 $.

!/usr/bin/perl

サンプルファイルを作成 (実行前にファイルがない場合)

行番号を表示しながら読み込む

特定の行だけを処理する

!/usr/bin/perl

サンプルファイル作成

例: 3行目から5行目までを処理

正規表現を使った行のフィルタリング

!/usr/bin/perl

サンプルファイル作成

効率的なファイル処理のためのヒント

メモリ効率

バッファリング

例: 標準出力のバッファリングを無効化し、printした内容を即座に表示させる

または

use IO::Handle;

$stdout->autoflush(1);

use IO::Handle; # autoflush メソッドを使う場合に必要

ファイルハンドル $fh のバッファリングを無効化

$fh->autoflush(1); # IO::Handle を使った場合

文字エンコーディング

!/usr/bin/perl

ファイルをUTF-8として読み込む

ステップ1：ファイルを「開く」 – `open` 関数

ステップ1.5：エラーハンドリング – `or die` と `$!`

`chomp` 関数の重要性

ステップ3：ファイルを「閉じる」 – `close` 関数

* ファイル全体を一括で読み込むための準備 *

* レコード単位で読み込むための準備 *

3. 固定長レコードの読み込み – `read` 関数

行番号の取得 – 特殊変数 `$.`

`$|` と `select`

ダイヤモンド演算子 `<>`

コメントする返信をキャンセル