perl怎么逐行读取文件

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

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

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

最后，记得在读取完文件后使用close函数关闭文件句柄，释放资源。