Исходное сообщение
"time в perl" Отправлено pheonix, 08-Июн-05 08:44
>с утром добрым > >кто мне может сказать из чего строиться переменная time в перле если >её вывести то получаеться что-то вроде такого 1118204400, это я так >понимаю число секунд, но от какого момента времяни, кто знает? аха так посчитал примерно от 2005 года, но проблема не в этом скажите мне плиз как мне определить по заданной дате день недели формат даты вот такой или без разницы какой главное чтобы задавался год, месяц и число, а в ответ мне выдавался день недели, накопал в инете какую-то то формулу составил процедуру, но она не всегда корректно работает какие то месяца сбиваються на один день и хз мочему так, причём некторые месяца всё ок работают, а некоторые в этом же году работают, короче не правильно работают sub cal_week($;$;$) {     my $day=shift;     my $mon=shift;     my $yea=shift;          if($mon <3 )     {     $mon+=12;     $yea-=1;     }     $n1=(26 *($mon +1))/10;     $n2=int((125 * $yea)/100);     $day=($day + $n1 + $n2-($yea/100) + ($yea /400) -1) % 7;     if($day == 0 ){$day=7;}     $day-=1;     return $day; } кто знает как решить проблему?