1、编写一个 Perl 程序,使其输出“Hello, world”并运行该程序,说明运行方式。
以下几种方式可以实现“Hello, world”程序:
-
创建一个文件,内容如下:
perl print "Hello, world!\n";
然后在命令行运行:
$ perl 文件名 -
若使用 v5.10 或更高版本,文件内容可以是:
perl use v5.10; say "Hello, world!";
再运行:
$ perl 文件名 -
不创建文件,直接在命令行运行:
$ perl -e 'print "Hello, World\n"' -
使用
-l开关:
$ perl -le 'print "Hello, World"' -
在 Windows 的 ***mand.exe(或 cmd.exe)中:
C:> perl -le "print 'Hello, World'" -
使用广义引号:
C:> perl -le "print q(Hello, World)" -
v5.10 及更高版本使用
-E开关:
$ perl -E'say "Hello, world!"'
2、编写一个程序,计算半径为 12.5 的圆的周长。圆的周长是 2π 乘以半径(约为 2 乘以 3.141592654)。
#!/usr/bin/perl
use warnings;
$pi = 3.141592654;
$radius = 12.5;
$circ = 2 * $pi * $radius;
print "The circumference of a circle of radius $radius is $circ.\n";
3、编写一个程序,提示用户输入圆的半径,然后根据用户输入的半径计算并输出圆的周长。例如,如果用户输入的半径为 12.5,程序应计算并输出该半径对应的圆的周长。
#!/usr/bin/perl
use warnings;
$pi = 3.141592654;
print "What is the radius? ";
chomp($radius = <STDIN>);
$circ = 2 * $pi * $radius;
print "The circumference of a circle of radius $radius is $circ.\n";
4、编写一个程序,提示用户输入两个数字(分别在不同行输入),并输出这两个数字相乘的结果。
以下是实现该功能的 Perl 程序:
print "Enter first number: ";
chomp($one = <STDIN>);
print "Enter second number: ";
chomp($two = <STDIN>);
$result = $one * $two;
print "The result is $result.\n";
5、编写一个程序,提示用户输入一个字符串和一个数字(分别在不同的输入行),然后将该字符串按照数字所指示的次数分行输出。(提示:使用 x 运算符)。如果用户输入“fred”和“3”,输出应该是三行,每行都显示“fred”。如果用户输入“fred”和“299792”,可能会有大量输出。
以下是实现该功能的 Perl 代码示例:
print "请输入一个字符串:";
my $string = <STDIN>;
chomp($string);
print "请输入一个数字:";
my $number = <STDIN>;
chomp($number);
print ($string. "\n") x $number;
上述代码首先提示用户输入一个字符串,将其存储在变量 $string 中,接着提示用户输入一个数字,存储在变量 $number 中,最后使用 x 运算符将字符串重复指定次数并分行输出。
6、编写一个程序,逐行读取一系列数字,直到输入结束。然后,对于每个输入的数字,从以下列表中打印出对应的人名。(将这个人名列表硬编码到程序中,即它应出现在程序的源代码中)。例如,如果输入的数字是1、2、4和2,输出的人名将是fred、betty、dino和betty。人名列表为:fred betty barney dino wilma pebbles bamm - bamm
以下是一个 Python 示例程序来实现该功能:
names = ['fred', 'betty', 'barney', 'dino', 'wilma', 'pebbles',