FreeKB - Perl Append leading zeros to numbers
Perl - Append leading zeros to numbers

Let's say $var1 contains both single digit and multiple digit numbers.

$var1 = "8 15 4 13 5 4 12";

 

The following will add a leading 0 to the single digit numbers. In this example, %2 means a maximum of 2 characters.

$var1 = sprintf("%2d", $var1);
$var1 =~ tr/ /0/;

 

$var1 should now contain the following.

08
15
04
13
05
04
12

 



Add a Comment




We will never share your name or email with anyone. Enter your email if you would like to be notified when we respond to your comment.




Please enter 881a7 in the box below so that we can be sure you are a human.




Comments

Web design by yours truely - me, myself, and I   |   jeremy.canfield@freekb.net   |