|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andy 2:5030/255 12 Aug 2005 16:19:50
To : All
Subject : вот хотел спросить у общественности
--------------------------------------------------------------------------------
как
дату изменить текущую на определенное количество дней
я вот так в лобсделал но сие не красиво
и потом формат не совпадает для однозначных дат получается
2005-08-1
а надо бы 2005-08-01
$datestamp = strftime "%Y-%m-%d_%H:%M:%S", localtime;
print $datestamp, "\n";
my $date_tek_y_m = strftime "%Y.%m.", localtime;
my $date_tek_d = strftime "%d", localtime;
my $d=1;
$date_tek = $date_tek_y_m.($date_tek_d-$d);
print $date_tek, "\n" ;
Andy
--- GoldED+/BSD 1.1.4.7
* Origin: ----> MrPilOt <---- (2:5030/255)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
