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

输出固定长度：１０
不够长度时，后面补空格
[解决办法]
$value=a123;
print sprintf "%-10s\n",$value;
[解决办法]

#!/usr/bin/env perl

@lines = (
    'a123',
    'a123456789',
    'a0123456789',
    'abc0123456789',
);

for $str (@lines) {
    printf "%-10.10s\n", $str;
}

[解决办法]
这是一个标准化输出的例子，%-10，代表的就是左对齐，如果是整数就代表的右对齐，详细的你可以看看learning perl