Hi All,
Just a quick question if I may. What am I doing wrong here?
use strict;
use warnings;
my $sortedstring = '';
my @sortedline = (1,3,7,9,12,45);
# attempt build a string of every number from the sortedline array with
# a leading zero to make up to two digits as appropriate
$sortedstring = join( ', ', grep( sprintf('%02d',$_ ), @sortedline ) );
#display the result
print $sortedstring;
The fragment above was intended to print out the list '@sortedline' comma
seperated and with a leading zero added to make each number to two digits.
It doesn't work as I had hoped and, while it does print a comma seperated
list the leading zeros do not appear.
The program output is: 1, 3, 7, 9, 12, 45
Can anyone tell me what I'm missing here please?
If this is just the wrong way to go about this then alternative suggestions
greatly received
TIA
Bill
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
