Perl与Python编程实例解析

47、编写一个Perl程序，要求用户输入两个数字，将这两个数字相乘并输出结果

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

#!/usr/bin/perl
print "请输入第一个数字: ";
$num1 = <STDIN>;
chomp($num1);
print "请输入第二个数字: ";
$num2 = <STDIN>;
chomp($num2);
$result = $num1 * $num2;
print "两数相乘的结果是: $result\n";

该程序首先提示用户输入第一个数字，读取用户输入并去除换行符；接着提示用户输入第二个数字，同样读取输入并去除换行符；最后将两个数字相乘，把结果存储在 $result 变量中并输出。

48、编写一个Perl程序，要求用户输入一个字符串和一个数字，将字符串重复指定的次数并输出结果

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

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

print "请输入一个字符串: ";
my $string = <STDIN>;
chomp($string);

print "请输入一个数字: ";
my $number = <STDIN>;
chomp($number);

my $result = $string x $number;
print "重复后的结果是: $result\n";

该程序首先提示用户输入一个字符串，然后提示用户输入一个数字，接着使用 x 操作符将字符串重复指定的次数，最后输出重复后的结果。

49、已知数组 @names = qw/ fred betty barney dino wilma pebbles bamm - bamm /，编写程序让用户输入 1 到 7 的数字，按输入数字输出对应数组元素

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

@names = qw/ fred betty barney dino wilma pebbles bamm - bamm /;
print "请输入 1 到 7 的数字：";
$input = <STDIN>;
chomp($input);
if ($input >= 1 && $input <= 7) {
    print $names[$input - 1]. "\n";
} else {
    print "输入的数字不在 1 到 7 的范围内。\n";
}

这段代码首先定义了数组 @names ，然后提示用户输入 1 到 7 的数字，读取用户输入并去除换行符。接着检查输入是否在有效范围内，如果是，则输出对应数组元素；否则，提示输入无效。

50、编写程序，对输入的行进行排序并输出，要求分别实现输出在一行和输出在多行的情况

以下是使用Python实现对输入的行进行排序，并分别输出在一行和多行的示例代码：

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

# 对输入的行进行排序
sorted_lines = sorted(lines)

# 输出在一行，用空格分隔
one_line_output = ' '.join(sorted_lines)
print(one_line_output)

# 输出在多行
for line in sorted_lines:
    print(line)

这段代码首先获取用户输入的多行文本，直到用户输入空行为止。然后对这些行进行排序，接着分别以一行和多行的形式输出排序后的结果。

51、编写程序，输入一个字符串和一个数字，将字符串重复指定数字的次数并输出，要求字符串在单独的行显示

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

string = input("请输入一个字符串：")
num = int(input("请输入一个数字："))
for _ in range(num):
    print(string)

这段代码首先获取用户输入的字符串和数字，然后使用 for 循环将字符串重复指定的次数，并逐行输出。

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

以下是用Perl语言实现的代码示例：

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

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

# 找出大于平均值元素的子程序
sub find_greater_