Perl与Python编程实例解析

48、编写一个子例程 total，用于计算传入参数的总和

以下是实现该功能的 Perl 代码：

sub total {
    my $sum = 0;
    foreach my $num (@_) {
        $sum += $num;
    }
    return $sum;
}

上述代码定义了一个名为 total 的子例程，它接受一个数字列表作为参数，通过遍历列表将每个数字累加到 $sum 变量中，最后返回总和。

49、编写程序，让用户输入一个字符串和一个数字，将字符串重复指定的次数并输出，要求字符串出现在不同的行

以下是一个使用 Perl 语言实现的程序示例：

print "请输入一个字符串: ";
chomp(my $str = <STDIN>);
print "请输入一个数字: ";
chomp(my $num = <STDIN>);
for (my $i = 0; $i < $num; $i++) { 
    print $str . "\n";
}

这个程序首先提示用户输入一个字符串和一个数字，然后使用 for 循环将字符串重复指定的次数，并将每次重复的字符串输出到不同的行。

50、编写一个子程序计算 1 到 1000 的数字总和并输出结果

以下是一个通用的 Perl 代码示例来计算 1 到 1000 的数字总和并输出结果：

#!/usr/bin/perl
use strict;
use warnings;

sub sum_numbers {
    my ($start, $end) = @_;
    my $sum = 0;
    for (my $i = $start; $i <= $end; $i++) {
        $sum += $i;
    }
    return $sum;
}

my $result = sum_numbers(1, 1000);
print "1 到 1000 的数字总和是: $result\n";

此代码定义了一个名为 sum_numbers 的子程序，用于计算从 $start 到 $end 的数字总和，然后调用该子程序计算 1 到 1000 的总和并输出结果。

51、编写程序读取用户输入的一些行，打印一个标尺行，然后将每一行右对齐到第 20 列输出

以下是一个实现该功能的 Perl 示例代码：

# 打印标尺行
print '1 2 3';
print '01234567890123456789';
# 读取用户输入的行
while (my $line = <STDIN>) {
    chomp $line; # 去除行末换行符
    printf "%20s\n", $line; # 右对齐到第 20 列输出
}

上述代码先打印了一个标尺行，然后通过 while 循环读取用户输入的每一行，使用 chomp 去除行末换行符，最后使用 printf 函数将每一行右对齐到第 20 列输出。

52、编写代码实现读取用户输入的多行文本，将每行文本右对齐到20个字符宽度并输出，同时打印一个到第75列的标尺行

以下是使用Python实现该功能的代码：

# 打印标尺行
ruler = ''.join([str(i % 10) for i in range(1, 76)])
print(ruler)

# 读取用户输入的多行文本
lines = []
while True:
    line = input()
    if not line:
        break
    lines.append(line)

# 右对齐并输出每行文本
for line in lines:
    print(line.rjust(20))

代码解释：

1. 打印标尺行 ：使用 ''.join() 方法和列表推导式生成一个到第75列的标尺行，然后打印出来。
2. 读取用户输入的多行文本 ：使用 while 循环不断读取用户输入的行，直到用户输入空行为止。将每行文本添加到 lines 列表中。
3. 右对齐并输出每行文本 ：使用 rjust() 方法将每行文本右对齐到20个字符宽度，并打印出来。

53、编写代码实现先询问用户需要的列宽，然后读取用户输入的多行文本，将每行文本右对齐到指定列宽并输出，同时打印合适长度的标尺行

以下是使用 Python 实现该功能的代码：

# 询问用户需要的列宽
width =