perl怎样逐行读取文件

在Perl中，可使用open函数打开文件，然后使用<操作符来逐行读取文件。下面是一个示例代码：

open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";
while (my $line = <$file>) {
chomp $line;  # 去除行尾的换行符
# 处理每行数据
print "$line
";
}
close($file);

在上面的代码中，open函数用于打开名为filename.txt的文件，并将文件句柄保存在变量$file中。<操作符用于从文件句柄中获得每行数据，保存在变量$line中。chomp函数用于去除每行末尾的换行符。然后可以对每行数据进行进一步处理。
最后，记得在读取完文件后使用close函数关闭文件句柄，释放资源。