从文件中读取行并输出带有行号的每一行

Question

我是 Perl 编程的新手，我正在编写一个程序，它可以打开一个文件并逐行读取文件的每一行。然后它在每行的开头输出带有行号的文件。

截至目前，我正在阅读这些行，但我不知道如何区分各个行并在开始时输出一些内容。

#!/usr/bin/perl
use strict
use warnings

my $file = 'FILENAME.txt';
open(my $txt_file, '<', $file) or die "Could not open file."

while (my $lines = <$txt_file>) {
    ...
}

Answer 1

$. 变量保存最后访问的文件句柄的当前行号：

#!/usr/bin/perl
use strict;
use warnings;
use autodie;

my $file = 'FILENAME.txt';
open my $fh, '<', $file;

while ( my $line = <$fh> ) {
    print "$. $line";
}