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