#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# ファイルの書きこみ
#
# ファイルロック関数　flock() は Perl5 より使用可能です
#
#	"> ファイル名"	でファイルが存在する場合、上書きで出力します
#	">> ファイル名"	でファイルが存在する場合、ファイルの最後に追加書き込みします
#-------------------------------------------------------------
#
$file_name = "./test.dat";

	# ファイルをオープンします
	if (!open(OUT, "> $file_name")) {
		# ファイルオープンエラー
		exit;
	}

	local($write_buf) = "でーた１,でーた２,でーた３\n";

	# ファイルへの書きこみを行います
	printf OUT $write_buf;

	# ファイルを閉じます
	close(OUT);

	exit;