|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Ivon 2:5020/400 23 Dec 2002 13:36:14
To : Sergey Kravchenko
Subject : Re: глюк со временем
--------------------------------------------------------------------------------
Hello, !
You wrote on Mon, 23 Dec 2002 06:16:41 +0000 (UTC):
SK> if ($flock eq "y") {
SK> flock wrecord, 2;
SK> }
SK> print wrecord "$host ";
SK> @tim1=gmtime(time);
SK> $sec = @tim1[0];
SK> if($sec<10) {$sec="0".$sec;}
SK> $year = @tim1[5]+1900;
SK> $day = @tim1[3];
SK> $month = @tim1[4]+1;
SK> $hour = @tim1[2]+3;
SK> $min = @tim1[1];
SK> print wrecord $hour.":".$min.":".$sec." ".$day.".".$month.".".$year."
SK> viewed ".$par;
SK> print wrecord "\n\n";
SK> close (wrecord);
perl -e "print scalar gmtime(time)"
perl -e "print scalar localtime"
With best regards, Ivan Ivon. E-mail: ivan.ivon@malva.ua
--- ifmail v.2.15dev5
* Origin: Unknown (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
