罪と罰++二律背反


	&error("open error no such a file!",1) if(!$nm || !$id);
	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
	print OUT @dat;
	close(OUT)		or die "Can't close   : $!";




トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS