Perl编程实例解析-CSDN博客

1、编写一个程序，计算半径为 12.5 的圆的周长。圆的周长是 2π 乘以半径，约为 2 乘以 3.141592654 乘以半径。

以下是实现该功能的 PHP 程序示例：

<?php
$pi = 3.141592654;
$result = 2 * $pi * 12.5;
echo "The circumference of a circle with radius 12.5 is $result
";
?>

解释：首先定义了圆周率 $pi 的值，然后根据圆的周长公式 2 * π * r 计算半径为 12.5 的圆的周长并存储在 $result 变量中，最后使用 echo 语句输出结果。

2、编写一个程序，提示并接受运行程序的人输入的半径，然后计算并输出该半径对应的圆的周长。

可以编写代码来提示用户输入半径，以下是示例代码：

print "请输入半径: ";
$radius = <STDIN>;
chomp($radius);
$pi = 3.141592654;
$result = 2 * $pi * $radius;
print "半径 $radius 的周长是 $result\n";

这段代码首先提示用户输入半径，然后读取用户输入的值，去除换行符，接着计算周长并输出结果。

3、编写一个程序，提示用户输入两个数字，然后打印出这两个数字相乘的结果。

以下是一个用Perl语言实现的示例程序：

print "Enter first number: ";
chomp($first = <STDIN>);
print "Enter second number: ";
chomp($second = <STDIN>);
$result = $first * $second;
print "The result of multiplication is: $result\n";

该程序首先提示用户输入两个数字，将输入的数字分别存储在 $first 和 $second 变量中，然后将这两个数字相乘，结果存储在 $result 变量中，最后打印出相乘的结果。

4、编写一个程序，读取一个字符串和一个数字，并将该字符串按照数字指定的次数分行打印出来。（提示：使用“x”运算符）

以下是一个满足需求的 Perl 程序示例：

print "请输入一个字符串: ";
$string = <STDIN>;
chomp($string);
print "请输入一个数字: ";
$number = <STDIN>;
chomp($number);
$result = ($string. "\n") x $number;
print $result;

这个程序首先提示用户输入一个字符串和一个数字，然后使用 x 运算符将字符串重复指定的次数，并在每次重复后添加换行符，最后打印结果。

5、编写一个程序，逐行读取字符串列表，并以相反的顺序输出该列表。

以下两种实现方式均可：

方式一：

print "Enter the list of strings:\n";
@list = <STDIN>;
@reverselist = reverse @list;
print @reverselist;

方式二：

print "Enter the list of strings:\n";
print reverse <STDIN>;

6、编写一个程序，读取一个字符串列表，然后从该列表中随机选择并打印一个字符串。

在程序开头使用 srand 初始化随机数生成器，使用 rand(@somearray) 获取一个介于零和 @somearray 长度减一之间的随机值，以选择随机元素。示例代码如下：

srand;
print "Answer: $b[rand(@b)]";

第一行初始化随机数生成器，第二行从列表 @b 中使用随机索引选择元素并打印。

7、编写一个程序，询问室外温度，如果温度高于72则打印“太热了”，否则打印“太冷了”。

print "What temperature is it? ";
chomp($temperature = <STDIN>);
if ($temperature > 72) {
    print "Too hot!\n";
} else {
    print "Too cold!\n";
}