Polskie Forum Użytkowników Debiana

Chciałabym uzupełnić wiersz zerami.

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.

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

Polskie Forum Użytkowników Debiana

Perl, dopisywanie zer

Perl, dopisywanie zer