パーフェクトスクリプトライブラリを使用してファイルの呼び出しおよびファイルの抽出を行う方法

Perlでは、ファイルの読み込みにrequireまたはdo関数を使用し、ファイルの取り出しにopen関数を使用できます。

1. ファイルコール

require 関数は、Perl のモジュールやライブラリファイルをロードしてその中のコードを実行します。モジュールまたはファイルが既にロードされているかどうかを先に確認し、ロード済みであればそのモジュールやファイルをロードしません。以下に例を示します:

# 调用文件 module.pl
require "module.pl";

do 関数は指定した Perl スクリプトファイルを呼び出します.ファイル内のコードは毎回呼び出すたびにリロード、実行されます.例:

# 调用脚本 script.pl
do "script.pl";

1. ファイルの抽出

open 関数はファイルを開いてファイルハンドルに関連付け、読み取りまたは書き込みを実行できるようにします。

# 打开文件并读取内容
open(my $file, "<", "myfile.txt") or die "无法打开文件：$!";
while(my $line = <$file>) {
chomp $line;  # 移除行尾的换行符
print "$line\n";
}
close($file);

上のコードはmyfile.txtというファイルをオープンし、その中身を一行ずつ読み込み、プリントします。

また、ファイル内容を一度に読み込む場合は、slurp モジュールまたは File::Slurp モジュールの read_file 関数を使用できます。以下に例を示します。

use File::Slurp;
# 读取整个文件内容
my $content = read_file("myfile.txt");
print $content;

上のコードは、myfile.txtファイルの全内容を読み込んで変数$contentに格納し、それを表示します。