Исходное сообщение
"time в perl" Отправлено фтвкун, 11-Дек-09 12:51
>[оверквотинг удален] >переменной и массива. Рассмотрите что выдает >$var = localtime(); >и >@var = localtime(); >А вообще-то time() - то же, что и в C, т.е. UNIX >timestamp (кол-во секунд с 00:00:00 1-го января 1970-о года по GMT). >Кстати, localtime - не что иное, как struct tm в том >же С... > >WWell, ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year += 1900; $mon += 1; if ( $mon < 10 ) { $mon = '0'.$mon }; if ( $mday < 10 ) { $mday = '0'.$mday }; $date = $mday.'.'.$mon.'.'.$year;