perl怎么打印文件中的某些行 - 问答

要打印文件中的某些行，可以使用Perl的代码来实现。以下是一个示例代码，可以打印文件中指定行数的内容：

#!/usr/bin/perl

# 打开文件
my $file = 'example.txt';
open my $fh, '<', $file or die "无法打开文件 $file: $!";

# 要打印的行数
my @lines_to_print = (2, 4, 6);

# 逐行读取文件并打印指定行数的内容
my $line_num = 1;
while (my $line = <$fh>) {
    if (grep { $_ == $line_num } @lines_to_print) {
        print $line;
    }
    $line_num++;
}

# 关闭文件
close $fh;

在上面的代码中，我们首先打开了一个名为example.txt的文件，并指定了要打印的行数。然后，我们使用一个循环来逐行读取文件内容，并根据指定的行数打印相应的行。最后，我们关闭了文件。

要运行这段代码，请将其保存为一个.pl文件，然后在命令行中运行perl 文件名.pl。它将打印文件example.txt中的第2、4和6行的内容。您可以根据需要修改@lines_to_print数组中的行数来打印其他行。

0 赞

0 踩