Forum Webscript.Ru

Программирование => Perl => Тема начата: mikle от 06 Декабря 2003, 18:07:35

Название: Ошибка в коде Perl
Отправлено: mikle от 06 Декабря 2003, 18:07:35

sub format_time {my ($min,$hour,$mday,$mon,$year,$wday) = (localtime shift()+$main::TIME_DISP*3600)[1 .. 6];
$wday = (qw( Воскресенье Понедельник Вторник Среда Четверг Пятница Суббота ))[$wday];
$mon = (qw( января февраля марта апреля июня июля августа сентября октября ноября декабря ))[$mon];
$year = $year+1900;
$min = sprintf "%02d", $min;
return "$wday, $mday $mon $year, $hour:$min";

Ошибка в последней строке. Не выводит значение $mon!
Синтаксис вроде правильный, ну не понимаю в чём ошибка.

Название: Ошибка в коде Perl
Отправлено: ondr от 08 Декабря 2003, 10:28:40

Нынче декабрь, а у тебя месяц пропущен ;)