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";
}

从文件中读取行并使用行号输出每一行

1 个答案: