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 运算符拼接字符串时没有添加换行符,导致输出不会分行。上述修正后的代码先去除输入字符串末尾的换行符,然后在拼接字符串时添加换行符,以实现分行输出的效果。

8、编写一个程序,逐行读取一系列数字,直到输入结束。然后,对于每个输入的数字,从下面的人名列表中打印出对应的人名。人名列表为:fred、betty、barney、dino、wilma、pebbles、bamm - bamm 。例如,如果输入的数字是 1、2、4 和 2,输出的人名将是 fred、betty、dino 和 betty。

转载请说明出处内容投诉
CSS教程网 » Perl编程练习与解答

发表评论

欢迎 访客 发表评论

一个令你着迷的主题!

查看演示 官网购买