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的语法形式还是比较简洁的。
