> $ perl -le'
> for my $num ( 123, 123456 ) {
> print 100000000 + $num;
> }
> '
> 100000123
> 100123456
>
>
>
> John
> --
Thank you, but I think this solution is more descent
> Just insert the literal digit in the format and trim the size
> accordingly.
>
> sprintf("1%08d", $number);
>
> Bob McConnell
Send instant messages to your online friends http://uk.messenger.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
