求用perl写段函数，输出固定长度的字符串,该如何处理

求用perl写段函数，输出固定长度的字符串
例如字符串变量：a123

输出固定长度：１０
不够长度时，后面补空格

[解决办法]
$value=a123;
print sprintf "%-10s\n",$value;
[解决办法]

Perl code

#!/usr/bin/env perl@lines = (    'a123',    'a123456789',    'a0123456789',    'abc0123456789',);for $str (@lines) {    printf "%-10.10s\n", $str;}
[解决办法]
这是一个标准化输出的例子，%-10，代表的就是左对齐，如果是整数就代表的右对齐，详细的你可以看看learning perl