Perl中使用的是什么？

<>;

while(<>)

上面的答案都是正确的，但是如果您了解UNIX的一般UNIX命令行用法，可能会更加明显。想要一个命令来处理多个文件是很常见的。例如。

ls -l *.c

命令行shell(bash等)将其转换为：

ls -l a.c b.c c.c ...

换句话说，除非模式不匹配，否则ls不会看到’* .c’。在命令提示符下尝试(不是perl)：

echo *

你会注意到你没有得到*。

所以，如果shell正在给你一堆文件名，而你想依次查看每个人的数据，perl的<>运算符给你一个很好的方法，它把下一个文件的下一行(或stdin，如果没有文件命名)放入$ _(默认标量)。

这是一个穷人的grep：

while(<>) {
   print if m/pattern/;
}

运行这个脚本：

./t.pl *

将打印出与给定模式匹配的所有文件的所有行。

cat /etc/passwd | ./t.pl

将使用猫生成一些文本行，然后通过perl中的循环来检查该模式。

所以你看到，虽然(<))让你得到一个非常标准的UNIX命令行行为...处理我给你的所有文件，或处理我管道给你的东西。