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