perl学习之printf

#! /usr/bin/env perl -w
#use strict;
#Date:2005-05-31
#ex5_3
#右对齐输出
chomp(my $n=<STDIN>);
for(1 ..$n){
print $_%10;
}
print "\n";
my$p="%".($n+1)."s\n";
while (<STDIN>){
printf $p,$_;
}

运行结果
[root@nagios perl]# perl  ex53
30
123456789012345678901234567890
hello wolrdl
hello wolrdl