- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$year=$year+1900;
$mon=$mon+1;
if ($mon<10)
{
$mon='0'.$mon;
}
if ($sec<10)
{
$sec='0'.$sec;
}
if ($min<10)
{
$min='0'.$min;
}
if ($hour<10)
{
$hour='0'.$hour;
}
if ($mday<10)
{
$mday='0'.$mday;
}
guest 25.02.2010 14:37 # +1
guest 25.02.2010 15:11 # +2
guest 25.02.2010 15:02 # −4
интересно, на что рассчитывал автор строчки? :)
впервые такой дибилизм вижу
turdman 25.02.2010 18:16 # +1
$sec = $time[0];
$min = $time[1];
$hour = $time[2];
...
guest 03.03.2010 18:29 # 0
guest 25.02.2010 18:17 # 0
perldoc -f localtime, если что.
А дальше какашкокод , да. Китайский привет, так сказать.
zantor 26.04.2010 23:52 # 0
nikkurkov 25.02.2010 15:22 # −0.2