Perl Regular Expression

[murugavelmsc]

Hi,

I have a text file of 1,2,3,678,90, 100 as text.
i want to convert the number as three digit number in perl.
eg,
001
002
003
678
090
100
please help me

thanks,
murugavel

[KevinADC]

Next time please show some effort to solve your programming requirements. What you want is printf or sprintf.

Quick examples:

for (1,2,3,678,90,100) {
   my $digits = sprintf ("%03d",$_);
    print "$digits\n";
}
 

or:

for (1,2,3,678,90,100) {
   printf ("%03d\n",$_);
}