ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitriy Kuvshinov 2:5020/400 12 Dec 2000 13:45:38
To : All
Subject : почему эта хрень $allr жрет мне переменную $test
--------------------------------------------------------------------------------
$font = "<font size=1> ";
$d1 = $tm->mday."/" if($tm->mday=~m/^(\d)(\d)$/);
$d1 = "0".$tm->mday."/" if($tm->mday=~m/^(\d)$/);
$mes=($tm->mon)+1;
$m1 = $mes."/" if($mes=~m/^(\d)(\d)$/);
$m1 = "0".$mes."/" if($mes=~m/^(\d)$/);
$y1 = ($tm->year+1900)." in ";
$chas = ($gm->hour)+4;
$ch1 = $chas.":" if($chas=~m/^(\d)(\d)$/);
$ch1 ="0".$chas.":" if($chas=~m/^(\d)$/);
$m1 = $gm->min.":" if($gm->min=~m/^(\d)(\d)$/);
$m1 = "0".$gm->min.":" if($gm->min=~m/^(\d)$/);
$s1 = $gm->sec if($gm->sec=~m/^(\d)(\d)$/);
$s1 ="0".$gm->sec if($gm->sec=~m/^(\d)$/);
$allr=$font.$d1.$m1.$y1.ch1.$m1.$s1;
$mmm=$test.$allr;
??????
А вообще через массивы не выходит, а нужно получить дату и время. gmtime
& localtime
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
