in reply to sprintf zero-fill issue

I tend to do this: 
sub Lzero {
    my ( $input, $padToLen ) = @_;

    substr( ( '0' x $padToLen ) . $input , -$padToLen );

}

[download]
__________________________________________________________________________________

^M Free your mind!

In Section Seekers of Perl Wisdom