perl - 如何在 Perl 对象中存储文件句柄以及如何访问结果？

Question

我想在 Perl 对象中存储一个文件句柄。以下是我的做法。

sub openFiles {
     my $self = shift;
     open (my $itemsFile, "<", "items.txt")     or die $!;
     open (my $nameFile,  "<", "FullNames.txt") or die $!;      
     $self->{itemsFile} = $itemsFile;                   
     $self->{nameFile}  = $nameFile;
     return $self;
}

然后我想从其中一个文件中获取一些信息。以下是我的处理方法。

sub getItemDescription {
     my $self = @_;
     chomp(my $record = $self->{itemsFile});
     return $record;
}

我尝试在另一个过程中访问它，如下所示:

print "Test 3: $self->getItemDescription()\n";

我的问题如下:

1. 我在对象中保存文件句柄的方式是否正确？如果不是，那怎么错了？
2. 我读取文件行的​​方式是否正确？如果不是，我怎样才能做对？
3. 最后，我打印返回对象的方式是否正确？

这对我来说真的很重要。如果有任何方法可以改进我的代码结构，即为文件处理创建一个全局变量或更改对象的结构，请告诉我。

Answer 1

我在对象中保存文件句柄的方式是否正确？

是的。

我读取文件行的​​方式是否正确？

没有。那只是分配文件句柄。使用 readline 从文件中读取一行运营商。

通常会使用 <...> readline 的语法运算符，但是 <...>是 readline(...) 的快捷方式和 glob(qq<...>) , Perl 认为 <$self->{itemsFile}>是 glob(qq<$self->{itemsFile}>) 的缩写.你必须使用 readline特别是

my $record = readline($self->{itemsFile});
chomp($record) if defined($record);

或者做一些额外的工作

my $fh = $self->{itemsFile};
my $record = <$fh>;
chomp($record) if defined($record);

(请注意，我不会无条件地调用 chomp，因为 readline/<> 可以返回 undef。)

最后，我打印返回对象的方式是否正确？

我猜你指的是返回的字符串，就像 getItemDescription 返回的字符串一样.问题是，您实际上从未调用过该方法。 ->getItemDescription()在双引号字符串文字中没有任何意义，即使在变量之后。你需要移动$self->getItemDescription()在双引号之外。

您也无法检查是否已到达文件末尾。