罪と罰++二律背反

$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   : $!";
}




トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2014-08-02 (土) 11:07:33 (2359d)