Perl编程练习与实例解析

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

这个数字是对完成该特定练习题所需时间（分钟）的大致估计。

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

若要实现“Hello, world”程序，可参考以下方法：

1. 若你有 Perl 5.10 或更高版本，可编写如下代码：
   perl use 5.010; say "Hello, world!";

2. 若不使用 say 函数，可使用 print 函数：
   perl print "Hello, world!\n";

3. 若想从命令行运行而不创建文件，可使用 -e 开关：
   bash $ perl -e 'print "Hello, World\n"'

还可使用 -l 开关自动添加换行符：
bash $ perl -le 'print "Hello, World"'

3、编写一个程序，计算半径为12.5的圆的周长。圆的周长是2π乘以半径（约为2乘以3.141592654）。你得到的答案应该约为78.5。

#!/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、编写一个 Perl 程序，提示用户输入圆的半径，根据用户输入的半径计算圆的周长。若半径为负数，则周长设为 0，最后输出圆的半径和对应的周长。

#!/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";

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

7、编写一个名为 total 的子例程，它返回一个数字列表的总和。该子例程不应执行任何输入/输出操作，应简单地处理其参数并将一个值返回给调用者。以下是一个测试该子例程的示例程序，第一组数字的总和应该是 25。

my @fred = qw{ 1 3 5 7 9 };
my $fred_total = total(@fred);
print "The total of \@fred is $fred_total.\n";
print "Enter some numbers on separate lines: ";
my $user_total = total(<STDIN>);
print "The total of those numbers is $user_total.\n";

以下是实现 total 子