Perl, dopisywanie zer

[m_kordi]

Chciałabym uzupełnić wiersz zerami.

Kod: Zaznacz cały

my $num = "123";
$num = sprintf("%08d ", $num);
$num=~ tr//0/;

Jednak nie wiem, jak zrobić, by zera były dopisywane na końcu linii, a nie na początku.
Będę bardzo wdzięczna za wskazówki.

[lessmian2]

Ale jak, przy liczbie całkowitej, zera mają być dopisane na końcu? Wtedy dostaniesz inną liczbę niż ta przekazana jako parametr. Pewnie chodziło Ci o coś takiego:

Kod: Zaznacz cały

perl -e 'printf ("%4.4f\n", "123")'
123.0000