YMLib - perl - winsock2

ファイル書き込み

2012/09/27

ファイルを新規作成し文字列を書き込みます。

◆環境

OS	CentOS Linux version 2.6.18-308.13.1.el5
perl	v5.8.8 built for i386-linux-thread-multi

open関数の第二引数（モード）に">"を指定するとファイルが書き込み専用で新規作成されます。

1:
2:
3:
4:
5:
6:

open(FILE, ">", "file-test.txt");

print FILE "file write!!\n";
print FILE "line 2\n";

close(FILE);

実行してみます。

# perl file-write.pl
#

なんの反応も無く終わりました。フォルダの状況を見てみます。

# ls -l
合計 8
-rw-r--r-- 1 root root 20 9月 27 13:14 file-test.txt
-rw-r--r-- 1 root root 101 9月 27 2012 file-write.pl

file-test.txtというファイルができています。中身をみてみましょう。

# cat file-test.txt
file write!!
line 2

プログラム通りのファイルが作られました。