perl中令人困惑的文件句柄

Question

一直在玩下面的脚本，但仍然无法理解这两种不同“种类”的文件句柄形式背后的含义。任何见解都将不胜感激。

#! usr/bin/perl
use warnings;
use strict;
open (FH, "example.txt") or die $!;

while (<FH>) {
    my @line = split (/\t/, $_); {
        print "@line","\n";
    }
}

输出如预期：@line 数组包含来自example.txt 的第 1,2,3 行的元素...。有人告诉我 open (FH, example.txt) 不如 open (my $fh, '<', 'example.txt') 好，我更改了它，但随后出现了混乱。

根据我的发现，$fh 是scalar 并包含example.txt 中的所有信息。当我将一个数组分配给$fh 时，该数组将example.txt 中的每一行存储为数组中的一个组件。但是，当我尝试将组件进一步拆分为“更多组件”时，我收到了错误/警告消息“use of uninitialized value”。下面是显示错误/警告消息的实际脚本。

open (my $fh, '<', 'example.txt') or die $!;
foreach ($fh) {
    my @line = <$fh>;
    my $count = 0;
    for $count (0..$#line) {
        my @line2 = split /\t/, $line[$count];
        print "@line2";
        print "$line2[0]";
        }
    }

print "@line2" 显示预期的输出，但print "$line2[0]" 调用错误/警告消息。我想如果@line2 是一个真正的数组，$line2[0] 应该没问题。但是为什么是“未初始化的值”？？

任何帮助将不胜感激。非常感谢。

添加 - 以下是“实际”脚本（我重新运行它并且警告在那里）

#! usr/bin/perl
use warnings;
use strict;
open (my $fh, '<', 'example.txt') or die $!;

foreach ($fh) {
    my @line = <$fh>;
    print "$line[1]";
    my $count = 0;
    for my $count (0..$#line) {
    my @line2 = split /\t/, $line[$count];
    print "@line2";
    #my $line2_count = $#line2;
    #print $line2_count;
    print "$line2[3]";
    }
    }

警告仍然是use of uninitialized value $line2[3] in string at filename.pl line 15, <$fh> line3。

Answer 1

在您的第二个示例中，您正在列表上下文中读取文件句柄，我认为这是您问题的根源。

my $line = <$fh>;

从文件句柄中读取一行。

my @lines = <$fh>;

读取所有文件。 你以前的例子，感谢

while (<FH>) {

正在有效地处理第一种情况。

但是在第二个示例中，您正在做第二件事。

Answer 2

AFAIK，您应该始终使用

while (<FH>) {
   # use $_ to access the content
}

或更好

while(my $single_line = <FH>) {
   # use $single_line to access the content
}

因为 while 逐行读取其中 for 首先将所有内容加载到内存中并在之后对其进行迭代。

即使在 EOF 或错误时返回 undef，当未明确完成时，解释器也会添加对 undef 的检查。

因此，使用 while 可以毫无问题地加载多 GB 的日志文件，并且不会浪费 RAM，而使用需要迭代数组的 for 循环则不能。

至少这是我从几年前读过的 Perl 书中的记忆。