- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
if ($sec < 10) {$sec = "0$sec";}
if ($min < 10) {$min = "0$min";}
if ($hour < 10) {$hour = "0$hour";}
if ($mday < 10) {$mday = "0$mday";}
if ($mon < 10) {$mon = "0$mon";}
$mon++;
$year = 1900 + $year;
print "[$mday-$mon-$year $hour:$min:$sec]\n";
$mon после "0$mon" есть строка, а перл строки строчно инкрементит.
Ёбаный пиздец.
Тефаль думает за вас!
>>скомпилится
не-а
в оригинале фраза звучала так: "любая последовательность символов является валидной программой на языке перл"
на русском или вы перевели?
> валидной
если перевели, то зачем использовать жаргонизмы?
А если уж извращаться, то только с регулярками:
$sec =~ s/^\d$/0$&/;
и т.д.