Perl编程练习与解答

原创

于 2025-09-17 10:59:12 发布 · 617 阅读

29 ·

CC 4.0 BY-SA版权

文章标签：

#Perl #编程练习 #子程序

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

这个数字是对完成该特定练习预计所需分钟数的大致估计。

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

若使用 Perl 5.10 之前版本，代码为 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）。你得到的答案应该约为 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、编写一个程序，提示用户输入一个字符串和一个数字（在输入的不同行上），并将该字符串按照数字指定的次数分行输出。（提示：使用 x 运算符）如果用户输入“fred”和“3”，输出应该是三行，每行都显示“fred”。如果用户输入“fred”和“299792”，可能会有大量输出。

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

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

原答案存在问题，没有对输入的字符串去除换行符，并且使用 x 运算符拼接字符串时没有添加换行符，导致输出不会分行。上述修正后的代码先去除输入字符串末尾的换行符，然后在拼接字符串时添加换行符，以实现分行输出的效果。