Perl编程练习题与解答汇总

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

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

2、编写一个 Perl 程序，使其输出“Hello, world”并运行该程序。同时说明不同 Perl 版本的代码差异以及在命令行运行的方式。

程序代码如下：

如果是 Perl 5.10 之前版本：

print "Hello, world!\n";

如果是 Perl 5.10 或更高版本：

use 5.010;
say "Hello, world!";

也可以在命令行运行，如：

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

或

$ 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。

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

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

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

7、编写一个程序，提示用户输入一个字符串和一个数字（分别在不同的输入行），并将该字符串按照数字指定的次数打印在不同的行上。（提示：使用 x 运算符）。如果用户输入“fred”和“3”，输出应该是三行，每行都显示“fred”。如果用户输入“fred”和“299792”，可能会有大量输出。

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

print "Enter a string: ";
$str = <STDIN>;
print "Enter a number of times: ";
chomp($num = <STDIN>);
$result = $str x $num;
print "The result is:\n$result";

该程序首先提示用户输入一个字符串，然后提示输入一个数字。使用 x 运算符将字符串重复指定的次数，