Gwardios's questions

大家好，问题如下：我有一些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;