在Perl中，可以使用open函数来打开文件并逐行读取内容。以下是一个示例代码，实现打开文件并记录行数：
my $filename = "example.txt";
open(my $fh, "<", $filename) or die "Cannot open file: $!";
my $line_count = 0;
while (my $line = <$fh>) {
$line_count++;
# 在这里可以对每一行的内容进行处理
}
close($fh);
print "Total number of lines in the file: $line_count\n";
在这个示例中，我们首先使用open函数打开了一个名为example.txt的文件，并将文件句柄存储在$fh变量中。然后，使用while循环逐行读取文件内容，并对每一行的计数递增。最后，关闭文件句柄并打印出文件的总行数。
请注意，在实际使用中，需要根据文件的具体内容和需要进行适当的处理和操作。
