求用perl写段函数,输出固定长度的字符串
例如字符串变量:a123
输出固定长度:10
不够长度时,后面补空格
[解决办法]
$value=a123;
print sprintf "%-10s\n",$value;
[解决办法]
#!/usr/bin/env perl
@lines = (
'a123',
'a123456789',
'a0123456789',
'abc0123456789',
);
for $str (@lines) {
printf "%-10.10s\n", $str;
}