在 Perl 中，要读取文件的每一行内容，可以使用
open
函数打开文件句柄，然后使用
while
循环和
<FH>
（或者
readline
函数）来逐行读取文件内容。其中，
FH
是打开文件句柄的变量名，可以自定义。
以下是一个简单的 Perl 代码示例，它将读取一个名为
input.txt
的文件，并将每一行内容打印到标准输出：
#!/usr/bin/perl
use strict;
use warnings;
my $filename = "input.txt";
open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
while (my $line = <$fh>) {
chomp $line;
print "$line\n";
close($fh);
在上面的代码中，首先使用 open 函数打开了一个名为 input.txt 的文件句柄，使用 < 标记来表示只读模式打开文件。如果文件打开失败，将会抛出错误并退出程序。
然后，使用 while 循环来遍历文件句柄 $fh 中的每一行内容，将每一行内容存储在变量 $line 中。chomp 函数用于去除每行末尾的换行符，然后使用 print 函数将每一行内容打印到标准输出。最后，使用 close 函数关闭文件句柄。
需要注意的是，在处理文件时，需要进行错误处理以避免程序崩溃。在本例中，使用 die 函数来抛出错误信息并退出程序。同时，我们还在代码开头使用了 use strict; 和 use warnings;，以启用严格模式和警告模式，帮助我们在开发过程中发现错误和潜在问题。
希望这个回答能够帮助您读取文件的每一行内容。如果您还有其他问题或需要更多帮助，请随时提问。