答え

Perlのファイルデスクリプタ（filehandles）は、物理的または仮想的なファイルに関連付けられた特別なオブジェクト（グローバルまたはレキシカル変数）です。リソースの漏れやセキュリティの侵害を防ぐために、ファイルを正しく開き、確認し、閉じることが非常に重要です。

正しい使い方の例：

open my $fh, '<', 'myfile.txt' or die "ファイルを開けません: $!";
while (my $line = <$fh>) {
    print $line;
}
close $fh or warn "ファイルを閉じられませんでした: $!";

細かい点：

• 現代ではファイルをperl5モードで開くべきです：レキシカルファイルハンドルを使用する（open my $fh, ...）。グローバルデスクリプタ（OPEN FILE, ...）は非推奨です。
• ファイルを開く成功を確認することが必須です。常にor die / or warnを使用してください。
• 作業が終わった後はcloseを介してファイルを閉じ、潜在的なエラーを処理してください。
• バイナリファイル用にはレイヤーを使用してください：binmode $fh。
• 脆弱性を避けるために、常にパス内の変数をエスケープし、アクセス権を確認してください。

トリッキーな質問

open FH, ...とopen my $fh, ...の違いは何ですか？なぜ第二の方法を使用することが推奨されるのでしょうか？

答え： open my $fh, ...はレキシカルに制限されたファイルデスクリプタを作成します。つまり、これは現在のブロック/サブルーチン内でのみ機能し、スコープ外では自動的に破棄されます。これにより、デスクリプタの偶発的なオーバーライドを防ぎ、グローバルfilehandlesの名前の衝突から保護し、信頼性を向上させます。

open FH, '<', 'file.txt';    # グローバルデスクリプタ！避けるべきです。
open my $fh, '<', 'file.txt'; # レキシカル、安全です。

テーマの詳細を知らずに起こる実際のエラーの例

---

事例

ある大規模プロジェクトでは、同じグローバルデスクリプタ（OPEN LOG, ...）の使用が許可されていました。その結果、並行リクエストが誤って異なるファイルに書き込むことになり、ログが失われたり混在したりしました。

---

事例

開くことの成功を確認するのを忘れた開発者がいました。その結果、ファイルが存在しないと、エラーが別の場所に上書きされました（たとえば、誤った場所にログが書き込まれ、他のファイルが削除されるなど）。

---

事例

closeを呼び出さないことにより、大量のファイル処理中にサーバーのデスクリプタが枯渇しました — サーバーは"フリーズ"し、大量のデータでクラッシュを始めました。