24、Perl编程入门：基础、应用与最佳实践

Perl编程入门：基础、应用与最佳实践

1. 读取用户信息

在系统中， /etc/passwd 文件包含了机器用户的相关信息，这些信息以冒号分隔成不同字段，第一个字段总是用户名。下面的 Perl 脚本可以读取该文件并逐行显示所有用户名：

open(PASSWORDS, "/etc/passwd");
while (<PASSWORDS>) {
    @cols = split /:/;
    print "@cols[0]\n";
}
close(PASSWORDS);

上述代码中，使用 open 函数打开 /etc/passwd 文件，通过 while 循环逐行读取文件内容。 split /:/ 将每行内容按冒号分割成数组 @cols ，最后打印数组的第一个元素（即用户名）。

2. 控制结构

控制结构是编程语言中用于实现选择和重复操作的语句，在 Perl 中主要指 if 语句和循环。

2.1 while 循环

while 循环会重复执行代码块，直到条件不再为真。例如，下面的代码会不断提示用户输入两个数的乘积，直到输入正确答案为止：

# Prompt for input, and read