Perl编程实践：从基础到高级编程示例

Perl编程实践教程

最新推荐文章于 2025-09-13 16:54:43 发布

原创

最新推荐文章于 2025-09-13 16:54:43 发布 · 271 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#Perl编程 # 子程序 # 正则表达式

1、编写一个“Hello, world”程序并使其运行，可将程序命名为ex1 - 1。

以下是“Hello, world”程序示例：

#!/usr/bin/perl
print "Hello, world!\n";

你可以将其保存为 ex1-1 。若在 Unix 系统上，还需使用以下命令使其可执行：

chmod a+x ex1-1

然后通过以下命令运行：

./ex1-1

2、运行以下程序，看看它会输出什么。你能看出它是如何改变命令输出的吗？程序内容为：print “Enter a string: “; $str = ; print “Enter a number of times: “; chomp($num = ); $result = $str x $num; print “The result is:$result”;

运行该程序后，它会提示用户输入一个字符串和一个数字。程序会将字符串重复指定的次数，并输出结果。该程序改变命令输出的方式在于它接收用户输入，并根据输入生成特定的输出，而不是直接输出固定的内容。

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

#!/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、编写一个程序，提示并接受程序运行者输入的半径，然后计算并输出该半径对应的圆的周长。如果用户输入半径为12.5，程序应能正确计算出相应的圆周长。

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

$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";

这段代码提示用户输入半径，读取输入并去除换行符，然后计算并输出圆的周长。如果用户输入 12.5 ，将得到相应的圆周长结果。

5、编写一个程序，让用户输入圆的半径，若用户输入的半径小于零，程序报告的圆周长将为零，而不是负数。

可在计算圆周长的程序里添加条件判断，当用户输入的半径小于零时，直接将圆周长设为零。以下是示例代码（Python 语言）：

import math
radius = float(input("请输入圆的半径: "))
if radius < 0:
    circumference = 0
else:
    circumference = 2 * math.pi * radius
print("圆的周长是: ", circumference)

6、编写一个程序，提示用户输入两个数字（分别在两行输入），并输出这两个数字的乘积。

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

print "Enter first number: ";
chomp($one = <STDIN>);
print "Enter second number: ";
chomp($two = <STDIN>);
$result = $one * $two;
print "The result is $result.";

上述代码中，首先提示用户输入第一个数字，使用 chomp 函数去除输入末尾的换行符后存储在变量 $one 中，接着提示用户输入第二个数字，同样去除换行符后存储在变量 $two 中，最后计算两数的乘积并存储在 $result 中，将结果输出。