Perl与Python编程实例解析

47、编写一个Perl程序，提示用户输入圆的半径，计算并输出该圆的周长，同时处理输入的半径为负数的情况

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

#!/usr/bin/perl
use strict;
use warnings;
print "请输入圆的半径: ";
my $radius = <STDIN>;
chomp $radius;
if ($radius < 0) {
    print "输入的半径不能为负数，请输入一个非负数值。\n";
} else {
    my $circumference = 2 * 3.14159 * $radius;
    print "圆的周长是: $circumference\n";
}

这个程序首先提示用户输入圆的半径，然后检查输入的半径是否为负数。如果是负数，程序会给出错误提示；如果不是负数，程序会计算并输出圆的周长。

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

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

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

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

print "请输入第二个数字: ";
my $num2 = <STDIN>;
chomp($num2);

my $result = $num1 * $num2;

print "这两个数字的乘积是: $result\n";

该程序首先提示用户输入两个数字，然后将输入的内容去除换行符，接着将两个数字相乘，最后输出结果。

49、编写一个Perl程序，提示用户输入一个字符串和一个数字，将该字符串重复指定的次数并输出结果，要求字符串出现在单独的行上

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

#!/usr/bin/perl
use strict;
use warnings;
print "请输入一个字符串: ";
chomp(my $string = <STDIN>);
print "请输入一个数字: ";
chomp(my $num = <STDIN>);
for (my $i = 0; $i < $num; $i++) { 
    print "$string\n";
}

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

50、编写一个Perl程序，提示用户输入多行文本，然后按相反的顺序输出这些行

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

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

print "请输入多行文本，输入结束后按 Ctrl+D（Unix/Linux）或 Ctrl+Z（Windows）：\n";

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

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

该程序首先提示用户输入多行文本，接着使用 while 循环从标准输入读取每一行，将其存入数组 @lines 中。输入结束后，利用 reverse 函数反转数组，最后通过 foreach 循环按相反顺序输出每一行。

51、编写程序，让用户输入一些行，然后按 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 循环不断接收用户输入，将每一行添加到 lines 列表中。当用户按下 Ctrl - D（在 Windows 系统中是 Ctrl - Z）时， input() 函数会抛出 EOFError 异常，此时使用 break 语句跳出循环。最后，使用 reversed() 函数将 l