Re: [Perl-unix-users] looping over

[pDale Campbell]

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Wednesday, February 23, 2005 11:15 AM
To: Mehta, Perdeep

for (my $i = 001; $i < 100; $i++) {

      $padlen=3;
$i = sprintf("%0${padlen}d",$i);

   print "$i\n";
}

- - -Jon Cormier

Hi All,

I want to loop over numbers 001 to 100 as index. For or foreach loops both
convert the variable value, for example $i = 001 to $i = 1.

I'm sure there is a way to explicitly get $i = 001 printed out, instead of
$i = 1 that script automatically changes it to.

for (my $i = 001; $i < 100; $i++) {
   print $i;
}

Is this a print formatting problem? Could some one help?

Or simply:

   for (my $i = 001; $i < 100; $i++)
    { printf "%03d\n", $i; }

--
pDale
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs