http://www.perlmonks.org?node_id=1048276


in reply to Re^2: Calculating/adding byte counts of array elements
in thread Calculating/adding byte counts of array elements

Initializing $count as a numeric string with a bunch of leading zeros will see the leading zeros vanish after the first numeric operation 'numifies' the scalar — even if it's an operation with zero!

So do not numify it but use Perl's little quirks to do the trick:

perl -wMstrict -le 'my $count = "00000000";
     print qq{"$count"};

     ++$count for 1 .. 42;

     print qq{"$count"};'

[download]

Cheers, Sören

Créateur des bugs mobiles - let loose once, run everywhere.
(hooked on the Perl Programming language)

In Section Seekers of Perl Wisdom