在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循環逐行讀取文件內容，并對每一行的計數遞增。最后，關閉文件句柄并打印出文件的總行數。
請注意，在實際使用中，需要根據文件的具體內容和需要進行適當的處理和操作。
