PERL 乘法口诀表

#!user/bin/perl

use strict;
###乘法口诀表

foreach(1..9){
for (my $num = 1;$num <= $_; $num++){
printf("%5d",$num*$_) ;
}
print "\n";
}
print "\n";

方法二

 

##方法二

for (my ($line,$num)=(1,1);$line <= 9 and $num <= 9; $line++){
if ($num <= $line){
    foreach (1..$line){
    printf("%5d",$line*$_)}
    print "\n";
 }else{
   $num = 1;
   }
}

方法三

 

foreach(1..9){for(my $n=1;$n<=$_;$n++){print $n*$_." "};print "\n";}

方法四

 

for my $n(1..9){map{print $n*$_,' '} 1..$n;print "\n";}

方法五

 

print"@{[map$_*$r,1..++$r]}\n"for 1..9