Forum Webscript.Ru
Программирование => Perl => Тема начата: Inecs от 20 Марта 2006, 11:49:55
-
Скриптик не работает и всё. Что с ним не так?
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw (fatalsToBrowser);
&usertime;
#---------------------------------------------------------------------
sub usertime() {
my ($time_sec, $time_min, $time_hour, $time_mday, $time_mon, $time_year, $time_wday, $time_yday, $time_isdst);
($time_sec, $time_min, $time_hour, $time_mday, $time_mon, $time_year, $time_wday, $time_yday, $time_isdst) = localtime (time);
$time_year=$time_year+1900;
$time_mon=$time_mon+1;
my $time_full_now="$time_year-$time_mon-$time_mday $time_hour:$time_min:$time_sec";
my $time_unix_now=time;
}
#---------------------------------------------------------------------
my ($time_full_now, $time_unix_now);
print "Content-Type: text/html\\n\\n";
print "Full time: $time_full_now\\n
Full unix time: $time_unix_now\\n
";
Выводит строки Full time: и Full unix time:
И всё. А почему не выводяться значения?
-
perldoc -q "What\'s the difference between dynamic and lexical"
-
Вот блин, во лоханулся. Пасибо. Совсем забыл про локальные :-)
-
На самом деле лучше не делать их глобальными.
Пусть у тебя usertime возвращает два значения вроде:
sub usertime
{
....
return ($time_full_now, $time_unix_now);
}
my ($time_full_now, $time_unix_now) = usertime;