perl逐行读取文件

在 Perl 中，可以使用文件句柄以逐行读取文件的方式来处理文件。

以下是一个示例代码，演示了如何打开一个文件，逐行读取它，并将每一行打印出来：

#!/usr/bin/perl
# 打开文件
open(my $fh, '<', 'file.txt') or die "无法打开文件：$!";
# 逐行读取文件并打印每一行
while (my $line = <$fh>) {
  chomp $line;  # 去掉行尾的换行符
  print "$line\n";
# 关闭文件
close($fh);
这个代码中，首先使用 open 函数打开一个名为 file.txt 的文件，< 表示以只读模式打开文件。如果文件无法打开，程序将会退出并打印出错误信息。
然后使用 while 循环，每次从文件句柄中读取一行，并将其赋值给 $line 变量。使用 chomp 函数去掉每行结尾的换行符，然后将每行打印出来。
最后，使用 close 函数关闭文件句柄，释放资源。
这就是在 Perl 中逐行读取文件的基本方式。如果您有任何问题，请随时提出。