perl - 有没有办法获取将与 perl 中的 <> 运算符一起使用的当前文件句柄？

Question

我看到close ARGV可以关闭当前处理的文件，但是好像ARGV实际上不是一个文件句柄，所以我不能在 read 调用中使用它。有什么方法可以获取当前文件句柄，还是我必须自己显式打开文件？

Answer 1

... but it would seem that ARGV isn't actually a file handle, so I can't use it in a read call

ARGV是一个文件句柄，可以在 read 中使用.

引用自perlvar :

... a plain filehandle corresponding to the last file opened by <>"*

所以它是一个文件句柄，可以在读取中使用。但是你需要使用 <>首先，以便文件真正打开。它不会神奇地继续下一个文件 <>会做。

要简单地进行测试(UNIX shell 语法，您可能需要针对 Windows 进行调整):

perl -e '<>; read(ARGV, my $buf, 10); print $buf' file

<>将打开给定的文件并读取第一行。 read然后将从同一个文件中读取接下来的 10 个字节。