perl format вывод чисел

1

0

Пишу скрипт но возникла проблемма с format а именно @0# и @0

вот пример:

$month=1
$day=28
$year=2009
format =
alter table SECURITYEVENTS_TS split partition MAXPEND at (^0#/@0#/@### 00:00:00) into (partition P_@###@0@0 partition MAXPEND);
$month,$day,$year,$year,$month,$day
.
write ;

выводит

alter table SECURITYEVENTS_TS split partition MAXPEND at (001/028/2009 00:00:00) into (partition P_20091020 partition MAXPEND);

надо чтобы строка выводилась вот так:

alter table SECURITYEVENTS_TS split partition MAXPEND at (01/28/2009 00:00:00) into (partition P_20090128 partition MAXPEND);

гуглил но ненашел ответа.

Ссылка

←	Пара вопросов по octave

perl GD, функция stringFT, шрефты!

→

$month=1;
$day=28;
$year=2009;
$month='0'.$month if($month<10);
$day='0'.$day if($day<10);
format =
alter table SECURITYEVENTS_TS split partition MAXPEND at (@|/@|/@### 00:00:00) into (partition P_@###@|@| partition MAXPEND);
$month,$day,$year,$year,$month,$day
.
write;

josephson ★★
(04.02.09 15:23:49 MSK)