1:sub dat_write{ 2: &error("open error no such a file!",1) if(!$nm || !$id); 3:$dat[0] = "la;$time,nm;$nm,nai_cnt;$nai_cnt,sogo;$sogo,sogo2;$sogo2, sogo3;$sogo3,mes;$mes,s_g;$s_g,info_mes;$info_mes,\n"; 4: $dat[1] = "$date<>$addr<>$host<>$agent<>\n"; 5: 6: open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1); 7: print OUT @dat; 8: close(OUT) or die "Can't close : $!"; 9:}