Исходное сообщение
"вчерашняя дата." Отправлено FarID, 20-Апр-07 15:13
>Здравтвуйте, о Гуру! =) > >столкнулся с проблемой...думаю вы сожете помочь.. > >задача - вывести в ISO вчерашнюю дату (т.е. 20070411) >можно решить путём $day-1 , но как быть с началом нового месяца? >получим (20070500) > >что посоветуете? > >спасибо. my ($mday, $mon, $year) = (localtime(time - 24 * 60 * 60))[3, 4, 5]; my $yesterday = sprintf '%04d%02d%02d', $year + 1900, $mon + 1, $mday;