Perl编程练习题及代码示例

1、当方括号内的数字2出现在练习题文本开头时，它代表什么意思？

这个数字是对完成该特定练习题所需分钟数的大致估计。
不过这只是粗略估算，实际完成时间可能是该数字的一半，也可能两倍还多。

2、编写一个Perl程序，使其输出“Hello, world”并运行，以此测试Perl环境是否正常工作。

可以使用以下代码实现：

print "Hello, world!\n";

若使用Perl 5.10或更高版本，可尝试：

use 5.010;
say "Hello, world!";

若想在命令行运行，可使用 - e 开关：

$ perl -e 'print "Hello, World\n"'

也可使用 -l 开关：

$ perl -le 'print "Hello, World"'

3、编写一个程序，计算半径为 12.5 的圆的周长。圆的周长是 2π 乘以半径（约为 2 乘以 3.141592654）。

#!/usr/bin/perl -w
$pi = 3.141592654;
$circ = 2 * $pi * 12.5;
print "The circumference of a circle of radius 12.5 is $circ.\n";

4、编写一个程序，提示用户输入圆的半径，根据用户输入的半径计算圆的周长。若用户输入的半径为负数，则将周长设为 0，最后输出圆的半径和对应的周长。例如，如果用户输入的半径为 12.5，程序应计算并输出该半径对应的圆的周长。

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

#!/usr/bin/perl -w
$pi = 3.141592654;
print "What is the radius? ";
chomp($radius = <STDIN>);
$circ = 2 * $pi * $radius;
if ($radius < 0) {
    $circ = 0;
}
print "The circumference of a circle of radius $radius is $circ.\n";

该代码提示用户输入半径，将输入存储在变量 $radius 中，计算圆的周长，并处理半径为负数的情况，最后输出结果。

5、编写一个Perl程序，接收用户输入的圆的半径。如果用户输入的数字小于零，程序报告的圆的周长将为零，而不是负数。

#!/usr/bin/perl -w
$pi = 3.141592654;
print "What is the radius? ";
chomp($radius = <STDIN>);
$circ = 2 * $pi * $radius;
if ($radius < 0) {
    $circ = 0;
}
print "The circumference of a circle of radius $radius is $circ.\n";

6、编写一个程序，提示用户输入两个数字（分别在两行输入），然后打印出这两个数字相乘的结果。

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

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

7、编写一个程序，提示用户输入一个字符串和一个数字（分别在不同的输入行），然后将该字符串按照数字所指定的次数，逐行打印输出。（提示：使用乘法运算符）

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

string = input("请输入一个字符串：")
number = int(input("请输入一个数字："))
print((string + "\n") * number)

上述代码首先通过 input 函数获取用户输入的字符串和数字，然后使用乘法运算符将字符串重复指定次数，并逐行打印输出。

8、编写一个名为 total 的子例程，它返回一个数字列表的总和。该子例程不应执行任何输入输出操作，应仅处理其参数并将一个值返回给调用者。请在一个示例程序中测试这个子例程，示例程序中第一组数字 1、3、5、7、9 的总和应该是 25，并且程序还应允许用户输入一些数字，计算这些输入数字的总和并输出结果。

以下是实现 total 子例程的代码：

sub total {
    my $sum;