Hello,
You can use something like:
print lj("Hello", 30, '*') . "\n";
#prints Hello*************************
sub lj{
return $_[0] . ($_[2]||' ') x ($_[1] - length $_[0]);
}
Aziz,,,
In article <[EMAIL PROTECTED]>, "F.H"
<[EMAIL PROTECTED]> wrote:
> Hi,
> Anybody know the right syntax to left justify a string with zeros using
> sprintf ot any other function? $test = "mytest";
> $test = sprintf "0%24s", $test;
> print "test";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
