Perl与Python编程实例解析

47、编写一个Perl程序，让用户输入圆的半径，若半径为负数，将周长设为0，然后计算并输出该圆的周长

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

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

print "请输入圆的半径：";
my $radius = <STDIN>;
chomp($radius);

if ($radius < 0) {
    $radius = 0;
}

my $circumference = 2 * 3.14159 * $radius;
print "该圆的周长是：$circumference\n";

该程序首先提示用户输入圆的半径，接着检查输入的半径是否为负数，若是则将其设为0，最后根据公式计算并输出圆的周长。

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

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

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

该程序首先提示用户输入第一个数字，读取输入并去除换行符；接着提示用户输入第二个数字，同样读取输入并去除换行符；然后计算两个数字的乘积；最后输出结果。

49、编写一个Perl程序，让用户输入一个字符串和一个数字，将字符串重复指定次数并输出结果，要求字符串单独成行

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

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

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

50、编写程序，让用户输入一些行，然后按 Ctrl - D（或 Ctrl - Z）结束输入，将输入的行逆序输出

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

lines = []
while True:
    try:
        line = input()
        lines.append(line)
    except EOFError:
        break
for line in reversed(lines):
    print(line)

在上述代码中，我们首先创建一个空列表 lines 用于存储用户输入的每一行。然后使用 while True 循环持续获取用户输入，当用户按下 Ctrl-D（在 Windows 系统中是 Ctrl-Z）时，会触发 EOFError 异常，此时跳出循环。最后，使用 reversed 函数将列表 lines 逆序，并逐行输出。

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

在 Perl 里，可编写如下子程序来计算传入参数的总和：

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

你可以使用 sum(1, 2, 3) 这样的调用方式来测试这个子程序。

52、编写程序，让用户输入一个字符串和一个数字，将字符串重复指定的次数输出，且字符串要在不同行显示

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

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

在上述代码中，首先使用 input 函数获取用户输入的字符串和数字，然后将数字转换为整数类型。接着使用 for 循环根据输入的数字重复输出字符串，每次输出后会自动换行。

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

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

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