编程实例解析：从输入处理到正则表达式应用

49、编写程序，让用户输入一些行，对这些行进行排序并输出（输出在一行）

以下是一个使用 Python 实现的示例代码：

lines = []
while True:
    line = input()
    if not line:
        break
    lines.append(line)
lines.sort()
result = ' '.join(lines)
print(result)

这段代码会持续让用户输入行，直到用户输入空行。然后对输入的行进行排序，并将排序后的行用空格连接成一行输出。

50、编写一个Perl程序，从用户那里读取一些行（按Ctrl - D或Ctrl - Z结束输入），反转这些行的顺序，然后打印出来。

print reverse <>;

51、编写一个Perl程序，用户输入1到7之间的一些数字（每行一个，按Ctrl - D结束输入），程序从列表@names = qw/ fred betty barney dino wilma pebbles bamm - bamm /中打印出对应的名字。同时，考虑如何处理索引，以便用户可以从1到7计数，而数组的索引是从0到6。

以下是实现该功能的Perl程序：

@names = qw/ fred betty barney dino wilma pebbles bamm - bamm /;
print "Enter some numbers from 1 to 7, one per line, then press Ctrl - D:\n";
chomp(@numbers = <STDIN>);
foreach (@numbers) {
    print "$names[ $_ - 1 ]\n";
}

在这个程序中，我们需要从用户输入的数字中减去1，这样用户可以从1到7计数，而数组索引从0到6。

另一种实现方式是在 @names 数组中添加一个虚拟项：

@names = qw/ dummy_item fred betty barney dino wilma pebbles bamm - bamm /;
print "Enter some numbers from 1 to 7, one per line, then press Ctrl - D:\n";
chomp(@numbers = <STDIN>);
foreach (@numbers) {
    print "$names[ $_ ]\n";
}

此外，建议检查用户输入的索引是否在1到7的范围内。

52、编写一个名为total的Perl子例程，它接受一个数字列表作为参数，并返回这些数字的总和。同时，考虑当子例程使用空参数列表调用时如何处理返回值。

可以使用以下代码实现：

sub total {
    my $sum = 0; # 初始化为0，避免空列表时返回undef
    foreach (@_) {
        $sum += $_;
    }
    return $sum;
}

在这个子例程中， $sum 初始化为0。使用 foreach 循环遍历参数列表 @_ ，将每个元素累加到 $sum 中。最后返回 $sum 。当参数列表为空时，由于 $sum 初始化为0，所以会返回0。

53、编写一个子程序来计算传入参数的总和

以下是一个使用 Python 编写的子程序来计算传入参数的总和：

# 定义一个函数来计算传入参数的总和
def sum_args(*args):
    return sum(args)

# 调用函数并传入参数
result = sum_args(1, 2, 3, 4, 5)
print(result)

在这个示例中，定义了一个名为 sum_args 的函数，使用 *args 来接收任意数量的参数，然后使用 sum() 函数来计算这些参数的总和。

54、调用合适的子程序计算1到1000的数字总和

可使用 List::Util 模块的 sum 子程序进行计算，示例代码如下：

use List::Util qw(sum);
my $total = sum( 1..1000 ); # 结果为500500

55、编写一个子程序来计算传入参数的平均值，再编写一个子程序找出传入参数中大于平均值的元素

以下是使用Perl语言实现这两个子程序的代码：

# 计算平均值的子程序
sub calculate_average {
    my $sum = 0;
    my $count = scalar @_;
    foreach my $num (@_) {
        $sum += $num;
    }
    return $sum / $count;
}

# 找出大于平均值的元素的子程序
sub find_greater_than_average {
    my $av