求用perl写段函数，输出固定长度的字符串

[uranas]

例如字符串变量：a123

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

[Gloveing]

$value=a123;
print sprintf "%-10s\n",$value;

[bugs2k]

#!/usr/bin/env perl

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

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

[loving_1989512]

#!/usr/bin/env perl

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

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

[morningCV]

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

[uranas]

多谢诸位！ 麻烦到↓踩一脚，俺好要揭帖的返回分(-_-)

http://topic.csdn.net/u/20120920/15/b7aba956-2457-4bdc-98e2-1d987036fc9e.html?89447