Perl编程练习题与解答

最新推荐文章于 2025-12-01 16:49:28 发布

原创

最新推荐文章于 2025-12-01 16:49:28 发布 · 420 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#Perl #编程练习 #子程序

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

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

2、编写一个 Perl 程序，使其输出“Hello, world”并运行该程序，同时说明在命令行不创建文件运行该程序的方法。

程序代码如下：

print "Hello, world!\n";

如果你使用的是 Perl 5.10 或更高版本，也可以尝试使用 say ：

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";

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";

6、编写一个程序，提示用户输入两个数字（在不同的输入行），并输出这两个数字相乘的结果。

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

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

上述代码首先提示用户输入两个数字，使用 chomp 函数去除输入数字后的换行符，然后将这两个数字相乘得到结果，最后将结果输出。

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 运算符将字符串重复指定的次数，并将结果存储在 $result 变量中。最后，程序打印出结果。注意，程序没有对输入的字符串进行 chomp 操作，这样可以确保每个重复的字符串都在单独的一行上。