perl学习之printf

perl学习记录

#! /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