Добавление нулей для ППК

[stix]

Столкнулся с таким явлением.
Когда было мало абонентов, ППК был трехзначным, было хорошо и просто.
Сейчас ППК уже 5 символов, потому в терминалах расширили поле до 5 цифр.

трабла в том, что у юзеров с 3 значным ППК тупняк, они незнают, что нужно ввести нолик.

Как правильно добавить нолик, не убив код?

Код:

if ($ppk < 1000) {
SystemOutPrintln("00" + $ppk);
}
else if ($ppk > 999) && ($ppk < 10000) {
SystemOutPrintln("0" + $ppk);
}

аналогично прокатит?

[smallcms]

Код:

printf("%05s", $ppk);

не пойдёт?

[stix]

Код:

printf("%05s", $ppk);

не пойдёт?

в java форматирование точно будет так работать, а в перле я не сильно хорошо шарю )
даже синтаксиса незнаю

здесь так:

Код:

$OUT.=&MessX(&Printf('[span big][span big|bold]    [span big]',$Lang_smain_your_PPC_is,$account,&ahref("$scrpt&a=3",$Lang_help)),1,1) if $Show_PPC;

[ale-x]

У меня получилось добавить нули в платежный код так:
В файле Smain.pl

Код:

 $account="$Mid$csum";

заменить на

Код:

 $account=sprintf("%05d", "$Mid$csum");

яндекс помог.

[stix]

сенкс )
про форматирование я подзабыл уже