Perl与Python编程实例解析

48、编写一个Perl程序，提示用户输入圆的半径，检查半径是否为负数，如果是负数则将周长设为0，最后输出圆的周长

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

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

print "请输入圆的半径: ";
chomp(my $radius = <STDIN>);
if ($radius < 0) { 
    $radius = 0;
}
my $circumference = 2 * 3.14159 * $radius;
print "圆的周长是: $circumference\n";

该程序首先提示用户输入圆的半径，然后检查输入的半径是否为负数，如果是则将半径设为0，最后计算并输出圆的周长。

49、编写一个Perl程序，提示用户输入两个数字，计算它们的乘积并输出结果

以下是满足需求的Perl程序：

print "请输入第一个数字: ";
$num1 = <STDIN>;
chomp($num1);
print "请输入第二个数字: ";
$num2 = <STDIN>;
chomp($num2);
$result = $num1 * $num2;
print "两数的乘积是: $result\n";

该程序首先提示用户输入两个数字，将输入的内容去除换行符后存储在变量中，接着计算两数乘积，最后输出结果。

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

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

#!/usr/bin/perl
use strict;
use warnings;
print "请输入一个字符串: ";
chomp(my $str = <STDIN>);
print "请输入一个数字: ";
chomp(my $num = <STDIN>);
my $result = $str x $num;
print "重复后的结果是: $result\n";

在上述代码中，首先提示用户输入一个字符串并存储在变量 $str 中，接着提示用户输入一个数字并存储在变量 $num 中。然后使用重复操作符 x 将字符串 $str 重复 $num 次，结果存储在 $result 中，最后输出重复后的结果。

51、编写一个Perl程序，提示用户输入多行文本，将输入的行反转并输出

以下是一个满足需求的Perl程序：

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

print "请输入多行文本，输入空行结束输入：\n";

my @lines;
while (my $line = <STDIN>) {
    chomp $line;
    last if $line eq '';
    push @lines, $line;
}

@lines = reverse @lines;

foreach my $line (@lines) {
    print $line, "\n";
}

该程序首先提示用户输入多行文本，当用户输入空行时结束输入。接着将输入的行存储在数组中，使用 reverse 函数反转数组元素，最后输出反转后的行。

52、编写一个程序，让用户输入一些行，然后按 Ctrl - D 结束输入，将这些行排序后输出，分别实现输出在一行和输出在不同行的情况

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

# 读取用户输入的行
lines = []
while True:
    try:
        line = input()
        lines.append(line)
    except EOFError:
        break

# 排序
lines.sort()

# 输出在一行
print(' '.join(lines))

# 输出在不同行
for line in lines:
    print(line)

上述代码首先读取用户输入的行，直到用户按下 Ctrl-D（在 Python 中表现为触发 EOFError ）。然后对这些行进行排序，接着分别将排序后的行输出在一行和不同行。

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

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

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

在上述代码中，定义了一个名为 sum 的子程序，它使用