ファイルを使用するには場合は、先立ってファイルを open 関数を用いオープンする必要があります。 open 関数では [ ファイルハンドル ] 、[ 使用するファイル] 、[ 操作方法 ] を指定して起動します。何らかの理由でファイルのオープンに失敗した場合は偽となる値を返します。



　ファイルハンドルとはオープンしたファイルを表わす変数でプレフィクスは付けません。通常は大文字で指定する習慣になっています（ mustではありません ）。 出力、読込みの時に open関数で取得したファイルハンドルを指定してファイルへの操作を行います。


　ファイルに対して読み取り用としてファイルを使うか、書込みを行うファイルなのか？ と言う操作方法は open関数でファイルを開く時に指定します。次のような指定があります。

構文 意味 open ( FILEHANDLE , " < filename " ) ; 読込み用 open ( FILEHANDLE , " > filename " ) ; 書込み用 （上書き） open ( FILEHANDLE , " >> filename " ) ; 書込み用 （追加） open ( FILEHANDLE , " +> filename " ) ; 読み書き用 open ( FILEHANDLE , " +< filename " ) ; 読み書き用

　オープンしたファイルは close を用い開放する必要があります。通常ファイルへの入出力は即時に行われるのでは無く入出力用バッファに貯められ一定量になった段階か close が行われた時に出力されます。

ファイルからの読込みは open で取得したファイルハンドルに対して関数や、通常の代入のような方法で行います。


FILEHANDLEに対応づけられたファイルの先頭から１行ずつデータを読み込んで行きます。デフォルトでは１行の区切りとして改行文字が用いられます。



左辺にリスト変数を置くリストコンテキストでデータを受け取ると、FILEHANDLEに対応づけられたファイルの内容を一括して配列へ代入する事が出来ます。１行目が $array[0]といった具合で順に格納されています。



[ 書式 ]


ファイルの先頭から 64Byteのデータを取得します。 この read関数によるデータの読込みは CGI でデータの受け渡し方法が POST の時データを受け取る際に、標準入力から送信されたバイト数分データを読み込むのに使用します。

ファイルへの出力は通常の print , printf の引数に open で取得したファイルハンドルを指定します。それ以外は通常の print文と変りありません。



システムコール write(2) を用いて、指定した ファイルハンドルへ指定バイト分のデータの出力を試みます。 printと異なりデータのバッファリングを行わず、実行時すぐにデータをファイルへ出力します。

　ファイルをオープンしてもデータの書き込み／読み込みを行なわなければ意味がありません。 当然それらを行う事になりますが、制御構文と組み合せてファイルにある全てのデータに対する操作などを見ていきます。




[ 非省略形 ]
この例ではスカラ変数 [ $line ] へファイルの内容が先頭から順に一行ずつ読み込まれていきます。 全行を読み出した段階で [ $line ] が未定義となるためこの繰り返しを終了します。


[ 省略形 ]
この例は Perlの記述方法の特徴である省略した記述方法を使っています。 動作は上の例と同等の処理ですが、代入されるスカラ変数として [ $_ ] が用いられています。






これもwhileとの併用で紹介した例と同等の動作をします。 まずファイルの内容を配列へ一括して代入してその配列に対して foreachステートメントを使用しています。 配列操作の詳しい解説は [ ３章 配列 ] を参照下さい。






論理積演算子（ || 又は or ）で結合する事により、open が成功すれば式が真として右側の命令は実行されません。 これを利用して失敗して偽となる値が戻った時にだけ右側 die関数が実行されるようになります。


引数の値を STDERR に出力して、現在の $! (エラー番号) で終了します。

　ファイルの状態、属性を確認する為にPerlではいろいろな演算子が用意されています。 ただし Perlはもともと UNIX 環境で作られてきた言語のため、 Windows環境では利用できないものも多いです。

記号 意味 -r 読み込み可能であれば -w 書き込み可能であれば -x 実行可能であれば -o 自分のものであれば -R 実uid/gidで読み込み可能であれば -W 実uid/gidで書き込み可能であれば -X 実uid/gidで実行可能であれば -O 実uidのものであれば -e ファイルが存在すれば -z ファイルサイズが0であれば -s サイズが0でなければ -f 通常ファイルであれば -d ディレクトリであれば -l シンボリックリンクであれば -p 名前付きパイプであれば -S ソケットであれば -b ブロック型スペシャルファイルであれば -c キャラクタ型スペシャルファイルであれば -u setuidビットが立っていれば -g setgidビットが立っていれば -k stickyビットが立っていれば -t ファイルハンドルが tty としてオープンされていれば -T ファイルがテキストファイルであれば -B ファイルがバイナリファイルであれば -M perl起動時における、ファイルの更新時刻からの日数 -A perl起動時における、ファイルの参照時刻からの日数 -C perl起動時における、ファイルの作成時刻からの日数

関数名 動作 tell 現在のファイルポインタ取得 seek ファイルポインタ設定 eof ファイル終端確認 stat ファイルの情報取得 unlink ファイルの削除 rename ファイルの名称変更

　引数で与えられたファイルハンドルの現在のファイルポインタの位置を返します。 ※ファイルポインタ → 現在の書込み、読込み位置



　対象のファイルハンドルにファイルポインタを設定します。成功の時は真、失敗すれば偽となる値が返ります。第３引数に起点(下記参照）第２引数にオフセット値を設定します。

起点 0 ファイルの先頭 1 現在のファイルポインタ 2 ファイルの末尾

　指定されたファイルハンドルの最終行か、ファイルハンドルがオープンされていなければ真となる値を返します。 この関数はファイルの終了判定によく使われます。



　ファイルハンドル又はフルパスで指定したファイルの情報を 13要素の配列として返します。 失敗した時はヌルリストが返ります ※取得される要素は下記を参照してください ( Windows 環境では無い情報も在る）

添字 取得される内容 0 ファイルシステムのデバイス情報 1 Iノード番号 2 ファイルモード(パーミッション等） 3 対象ファイルのリンク数 4 対象ファイルの所有書のユーザID 5 対象ファイルのｸﾞﾙｰﾌﾟのｸﾞﾙｰﾌﾟID 6 デバイス識別子 7 ファイルサイズ(バイト数） 8 最終アクセス時間 9 最終変更時間 10 最終 I ノード変更時間 11 最適ブロックサイズ 12 割当てられているブロック数

　指定したファイルを削除します。引数に削除するファイルを指定し、戻り値は削除したファイルの数が返ります。



　ファイル名を変更します。第一引数に現在のファイル名、第二引数に変更するファイル名を指定します。成功すれば真、失敗すれば偽となる値が返ります。