Perlファイルの操作

Perl は、ファイル ハンドル タイプと呼ばれる変数を使用してファイルを操作します。

ファイルからのデータの読み取りまたは書き込みには、ファイル ハンドルが必要です。

ファイル ハンドルは I/O 接続の名前です。

Perl には、STDIN、STDOUT、および STDERR という 3 つのファイル ハンドルがあり、それぞれ標準入力、標準出力、および標準エラー出力を表します。

次の方法を使用して、Perl でファイルを開くことができます。

ファイルハンドルを開く、EXPROファイルハンドル、ファイル名、モードを開く、PERMSsysファイルハンドル、ファイル名、モードを開く

パラメータの説明:

FILEHANDLE: ファイル ハンドル。一意のファイル識別子を保存するために使用されます。

EXPR: ファイル名とファイル アクセス タイプで構成される式。

MODE: ファイルアクセスタイプ。

PERMS：アクセス許可ビット（許可ビット）。

オープン機能

次のコードでは、open 関数を使用してファイル file.txt を読み取り専用モード (<) で開きます。

 open(DATA, "<file.txt");

< は読み取り専用モードを示します。

コード内の DATA は、ファイルを読み取るために使用されるファイル ハンドルです。次の例では、ファイルを開いてファイルの内容を出力します。

例

次のコードは、書き込み用にファイル file.txt を開きます ( > )。

 open(DATA, ">file.txt") または die "file.txt ファイルを開けません。$!";

>書き込み方法を示します。

読み取りと書き込みのためにファイルを開く必要がある場合は、> または < 文字の前に + 記号を追加できます。

 open(DATA, "+<file.txt"); または die "file.txt ファイルを開けません。$!";

この方法では、ファイルの元の内容は削除されません。削除する場合の形式は次のとおりです。

 open DATA, "+>file.txt" または die "file.txt ファイルを開けません。$!";

ファイルにデータを追加する場合は、データを追加する前にファイルを追加モードで開くだけです。

 open(DATA,">>file.txt") || die "file.txt ファイルを開けません。$!";

>> は、既存のファイルの末尾にデータを追加することを意味します。追加するファイルの内容を読み取る必要がある場合は、+ 記号を追加できます。

 open(DATA,"+>>file.txt") || die "file.txt ファイルを開けません。$!";

次の表に、さまざまなアクセス モードを示します。

Sysopen関数

sysopen関数は、パラメーターの形式が異なることを除いて、open 関数に似ています。

次の例では、読み取りと書き込みのためにファイルを開きます (+<ファイル名)。

 sysopen(DATA, "file.txt", O_RDWR);

更新する前にファイルをクリアする必要がある場合の書き込み方法は次のとおりです。

 sysopen(DATA, "file.txt", O_RDWR|O_TRUNC );

O_CREAT を使用して新しいファイルを作成できます。O_WRONLY は書き込み専用モード、O_RDONLY は読み取り専用モードです。

PERMSパラメータは 8 進数の属性値で、ファイル作成後のアクセス許可を示します。デフォルトは0x666です。

次の表に、可能なモード値を示します。

クローズ機能

ファイルを使用した後、ファイルを閉じて、ファイル ハンドルに関連付けられた入力バッファと出力バッファを更新する必要があります。ファイルを閉じるための構文は次のとおりです。

閉じるファイルハンドル閉じる

FILEHANDLE は指定されたファイル ハンドルで、正常に閉じられた場合は true を返します。

 close(DATA) || die "ファイルを閉じることができません";

ファイルの読み取りと書き込み

ファイルへの情報の読み取りおよび書き込みには、いくつかの異なる方法があります。

<FILEHANDL> 演算子

開いているファイル ハンドルから情報を読み取る主な方法は、<FILEHANDLE> 演算子です。スカラーコンテキストでは、ファイルハンドルから単一行を返します。例えば：

例

<FILEHANDLE> 演算子を使用すると、ファイル ハンドル内の各行のリストが返されます。たとえば、すべての行を配列にインポートできます。

次の内容を含む import.txt ファイルの作成を実装します。

 $猫インポート.txt 123

import.txt を読み、各行を @lines 配列に入力します。

例

上記のプログラムを実行すると、出力結果は次のようになります。

 123

getc関数

xgetc 関数は、指定された FILEHANDLE から単一の文字を返します。指定されていない場合は STDIN を返します。

 getcファイルハンドルgetc

エラーが発生した場合、またはファイル ハンドルがファイルの末尾にある場合は、undef が返されます。

読み取り機能

read 関数は、バッファーのファイル ハンドルから情報を読み取るために使用されます。

この関数は、ファイルからバイナリ データを読み取るために使用されます。

ファイルハンドル、スカラー、長さ、オフセット読み取り ファイルハンドル、スカラー、長さ

パラメータの説明:

FILEHANDLE: ファイル ハンドル。一意のファイル識別子を保存するために使用されます。

SCALAR: 結果を格納します。OFFSET が指定されていない場合、データは SCALAR の先頭に配置されます。それ以外の場合、データは SCALAR の OFFSET バイトの後に配置されます。

LENGTH: 読み取られたコンテンツの長さ。

オフセット: オフセット。

読み取りが成功した場合は読み取られたバイト数を返し、ファイルの終わりに達した場合は 0 を返し、エラーが発生した場合は undef を返します。

印刷機能

ファイル ハンドルから情報を読み取るすべての関数について、バックエンドの主な書き込み関数は print です。

ファイルハンドルリスト印刷リスト印刷

プログラムの実行結果は、ファイル ハンドルと print 関数を使用して出力デバイス (STDOUT: 標準出力) に送信できます。次に例を示します。

 "Hello World!n" を印刷します。

ファイルコピー

次の例では、既存のファイル file1.txt を開き、その各行を読み取り、ファイル file2.txt に書き込みます。

例

ファイル名の変更

次の例では、既存のファイル file1.txt の名前を file2.txt に変更し、指定されたディレクトリは /usr/codercto/test/ の下にあります。

 #!/usr/bin/perlrename ("/usr/codercto/test/file1.txt", "/usr/codercto/test/file2.txt" );

renames関数は 2 つのパラメータのみを受け取り、既存のファイルの名前のみを変更します。

ファイルの削除

次の例は、 unlink関数を使用してファイルを削除する方法を示しています。

例

ファイルの場所を指定する

Tell関数を使用してファイルの場所を取得し、 seek関数を使用してファイル内の場所を指定できます。

関数を伝える

ファイルの場所を取得するには、tell 関数が使用されます。

伝える FILEHANDLE伝える

FILEHANDLE が指定されている場合、この関数はファイル ポインターの位置をバイト単位で返します。指定しない場合は、デフォルトで選択されているファイル ハンドルを返します。

シーク機能

Seek() 関数は、ファイル ハンドルを介してファイル読み取り/書き込みポインタを移動することによってファイルの読み取りまたは書き込みを行い、バイト単位で読み取りと書き込みを行います。

ファイルハンドル、位置、場所をシークします

パラメータの説明:

FILEHANDLE: ファイル ハンドル。一意のファイル識別子を保存するために使用されます。

POSITION: ファイル ハンドル (読み取りおよび書き込み位置ポインター) によって移動されるバイト数を示します。

WHENCE: ファイル ハンドル (読み取り/書き込み位置ポインター) が移動を開始する開始位置を示します。指定可能な値は、ファイルの先頭、現在位置、および末尾を示します。それぞれファイルします。

次の例では、ファイルの先頭から 256 バイトを読み取ります。

 DATA、256、0をシークします。

ファイル情報

Perl のファイル操作では、最初にファイルが存在するかどうか、読み書きできるかどうかなどをテストすることもできます。

次のように、まず file1.txt ファイルを作成します。

 $ cat file1.txt www.codercto.com

例

上記のプログラムを実行すると、出力結果は次のようになります。

 file1.txt 情報: テキスト ファイル、15 バイト

ファイル テスト演算子を次の表に示します。