Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 関数 - open

指定したファイルをオープンし、ファイルハンドルと関連付けます。

open ファイルハンドル , 式1

ファイルハンドル
オープンするファイルと関連付けるファイルハンドル
式1
ファイル名を指定する文字列、またはファイル名を返す式 式1の先頭の文字によりオープンの方法を指定する(ファイル名のみは入力用)
< : 入力用
> : 出力用
>> : 追加書き込み
上記の文字の前に + を追加すると入出力両用となる

(例)
# 上書き出力用としてオープン open TESTOUT, ">test.txt" or die "error $!\n"; print TESTOUT "test\n"; close TESTOUT; # 入力用としてオープン open TESTIN, "<test.txt" or die "error $!\n"; while($s_test = <TESTIN>) { print $s_test; } close TESTIN; # 追加出力用としてオープン open TESTOUT, ">>test.txt" or die "error $!\n"; print TESTOUT "test_add\n"; close TESTOUT; print "\n"; # 入出力両用としてオープン open TESTINOUT, "+<test.txt" or die "error $!\n"; while($s_test = <TESTINOUT>) { print $s_test; } print TESTINOUT "test_in_out\n" or die "error $!\n"; close TESTINOUT; print "\n"; # 入力用としてオープン open TESTIN, "<test.txt" or die "error $!\n"; while($s_test = <TESTIN>) { print $s_test; } close TESTIN;

実行結果
test test test_add test test_add test_in_out