Perl, localtime, и гадость на выходе.
Привет всем. :)
Тут возникла у меня маленькая проблема.
Вот пишу такой вот скрипт:
#!/usr/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());
print "Sec =\t$sec\n";
print "Min =\t$min\n";
print "hour =\t$hour\n";
print "mday =\t$mday\n";
print "mon =\t$mon\n";
print "year =\t$year\n";
print "wday =\t$wday\n";
print "yday =\t$yday\n";
print "isdst =\t$isdst\n";
И получаю на выходе такую гадость:
Sec = 9
Min = 13
hour = 21
mday = 3
mon = 0 # Вот в этих строчках проблема. :(
year = 101 # Сделано это было только что.
wday = 3
yday = 2 #
isdst = 0
gaier@athlon:~ > perl -v
This is perl, version 5.005_03 built for i586-linux
Подскажите пожалуйста, что я не так делаю.
Заранее премного благодарен.
Олег
Reply to: