вот хотел спросить у общественности

From

Andy (2:5030/255)

To

All

Date

2005-08-12T16:19:50Z

Area

RU.PERL

Hello everybody.

как
дату изменить текущую на определенное количество дней
я вот так в лобсделал но сие не красиво
и потом формат не совпадает для однозначных дат получается
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)
SEEN-BY: 50/203 400/462 814 450/186 451/30 4635/4 5000/5000 5001/5001 5010/53
SEEN-BY: 5012/8 46 5015/10 5020/154 175 400 545 549 715 758 830 1523 1604 2020
SEEN-BY: 5020/2142 2238 2590 4441 5021/3 29 5022/128 5025/3 750 5027/16
SEEN-BY: 5030/49 115 255 436 483 556 805 966 1063 1324 1339 1378 1393 1900
SEEN-BY: 5030/2828 5031/47 70 5033/21 5040/47 5042/13 5045/7 5053/16 5054/1 8
SEEN-BY: 5054/9 35 36 37 45 66 67 81 85 5059/9 5060/3 5061/120 5062/1 10
SEEN-BY: 5064/39 5069/7 5070/1222 5077/70 80 5080/80 1003 5082/6 5083/21
SEEN-BY: 5085/13 5090/108 113 5095/20 5096/18 6000/12

PATH: 5030/255 436 5020/4441 545 5054/1 37