Perl打印9x9乘法口诀

本章教程主要介绍如何用Perl打印9x9乘法口诀。

一、程序代码

1、写法①

use strict;    # 启用严格模式，帮助捕捉变量声明等错误
use warnings;  # 启用警告，帮助发现潜在问题# 遍历 1 到 9 的数字
for my $i (1..9) {# 对于每个 $i，遍历 1 到 $i 的数字for my $j (1..$i) {# 打印乘法结果print "$j x $i = ", $j * $i, "  ";}# 每行结束后换行print "\n";
}

2、写法②

use strict;    # 启用严格模式，帮助捕捉变量声明等错误
use warnings;  # 启用警告，帮助发现潜在问题# 遍历 1 到 9 的数字
for my $i (1..9) {# 对于每个 $i，遍历 1 到 $i 的数字for my $j (1..$i) {# 使用 printf 格式化输出乘法结果printf "%d x %d = %2d  ", $j, $i, $j * $i;}# 每行结束后换行print "\n";
}

二、运行效果

可以看到，用perl的语法形式还是比较简洁的。