Сообщения

1

Perl / Ошибка в коде Perl

« : 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!
Синтаксис вроде правильный, ну не понимаю в чём ошибка.