Perl Example

1. 安装perl,选择自己喜欢的IDE，尝试运行一个简单的小程序。例如打印Helloworld之类的。

print "Hello World";

2. 写一个程序，计算园的周长，让它提醒用户键入半径的长度。

print "In orde to calculate perimeter, please input radius: ";

chomp($radius=<STDIN>);

$Perimeter=$radius * 3.14 * 2;

print "The Perimeter is: $Perimeter";

3. 写一个程序，提醒用户键入两个数字（分两行键入），然后输出两者的乘积。

print "Please input 2 number, one line one number: ";

@input=<STDIN>;

$a=$input[0];

$b=$input[1];

$c=$a*$b;

print "The result is: $c";

4. 写一个程序，读入一些数字（每行一个），直到文件结尾为止。然后，根据每一个数字输出如下名单中相应的人名。比方说，如果输入数字为1、2、4和2，那么输出的人名将会是fred、betty、dino和betty。

名单：fred betty barney dino wilma pebbles bamm-bamm

@input=<STDIN>;

chomp(@input);

$i=0;

while($i <= $#input)

{

if ($input[$i]==1) 

{print "fred\n"; }

elsif($input[$i]==2)

{print "betty\n"; }

elsif($input[$i]==3)

{print "barney\n"; }

elsif($input[$i]==4) 

{print "dino\n"; }

elsif($input[$i]==5)

{print "wilma\n"; }

elsif($input[$i]==6)

{print "pebbles\n"; }

else

{print "bamm-bamm\n"; }

$i=$i+1;

}