$bagfile="任意のファイル名";#←この名前のlogファイルをlogdata内に作る。
sub baglog{ $refe = $ENV{'HTTP_REFERER'};#リファラー $bagdat = "set;$set,date;$date,wr_mes;$wr_mes,ad;$addr,ht;$host,nm;$nm,mv_mode;$mv_mode,type;$type,ref;$refe,\n"; #↑記録をとりたい項目を記入。 open (OUT,">>$bagfile") || &error("open error:$bagfile",1); print OUT $bagdat; close(OUT) or die "Can't close : $!"; }