perl怎么逐行读取文件内容

在Perl中，可以使用while循环和操作符逐行读取文件内容。下面是一个简单的示例：

# 打开文件
open(my $file, "<", "filename.txt") or die "无法打开文件：$!";

# 逐行读取内容
while (my $line = <$file>) {
  # 处理每一行的内容
  chomp $line; # 移除行末的换行符
  print "$line\n"; # 输出每一行的内容
}

# 关闭文件
close($file);

在上面的示例中，open函数用于打开文件，并使用<操作符将文件句柄绑定到文件。然后，使用while循环逐行读取文件内容，每次循环中将读取的行存储在变量$line中。在循环体内可以对每一行的内容进行处理。最后，使用close函数关闭文件。