主页 / 问题 / 1404616
Accepted
Gwardios
Asked:2022-06-28 17:31:51 +0000 UTC2022-06-28 17:31:51 +0000 UTC

PERL 读取一行

  • 772

大家好，问题如下：我有一些test.txt，其中包含5行信息。如何在 PERL 脚本中只输出第三行？其实这里是代码：

use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

my $file_name = 'a.txt';

my $content = '';

open FILE, '<', $file_name or die $!;

while (<FILE>) {
    $content .= $_;
}

print $content;
perl

2 个回答

  1. Best Answer

    如果文件很大，那么您可以逐行读取所需的行

    open FILE, '<', $file_name or die $!;

my $ind = 0;
while (<FILE>) {
    $ind = $ind+1;
    if ($ind == 3) {
      $content = $_;
      last; # выходим
    }
}

print $content;
    • 2

  2. 将文件读入数组并输出其第三个元素：

    my @lines = <FILE>;
print $line[2];

    如果文件很大或者您不想将所有内容读入内存，那么您可以使用变量$.，它存储最后一个处理程序的当前行号。查看详情perldoc perlvar：

    my $file_name = shift @ARGV;
open my $FILE, "<", $file_name or die $!;

my $content;
$. = 0;
do { $content = <$FILE> } until $. == 3 || eof;

print $content;

    或使用模块Tie::File

    #!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use utf8;
use Fcntl 'O_RDONLY';
use Tie::File;

tie my @array, 'Tie::File', shift @ARGV, mode => O_RDONLY;
print $array[2];

    该模块不会将文件加载到内存中，因此即使对于非常大的文件也可以使用。在我的示例中，文件名取自命令行的第一个参数。

    • 1

相关问题