如何从命令行获取文件句柄？

Question

我有一个以文件句柄作为参数的子例程。 如何从命令行指定的文件路径创建文件句柄？ 我不想自己对这个文件进行任何处理，我只想将其传递给另一个子例程，该子例程返回一个包含文件中所有解析数据的哈希数组。

我使用的命令行输入如下所示：

$ ./getfile.pl /path/to/some/file.csv

这是我调用的子例程的开头如下所示：

sub parse {
    my $handle = shift;
    my @data   = <$handle>;
    while (my $line = shift(@data)) {
      # do stuff
    }
}

Answer 1

命令行参数在预定义的@ARGV 数组中可用。 您可以从那里获取文件名并使用 open 打开它的文件句柄。 假设您想要对该文件进行只读访问，您可以这样做：

my $file = shift @ARGV;
open(my $fh, '<', $file) or die "Can't read file '$file' [$!]\n";
parse($fh);

请注意，or die... 检查调用 open 是否成功，并以以下方式结束：如果不是，则显示错误消息。 内置变量 $! 将包含失败时的（取决于操作系统）错误消息，告诉您调用不成功的原因。 例如“权限被拒绝”。

Answer 2

parse(*ARGV) 是最简单的解决方案：解释有点长，但是学习如何有效使用 Perl 的一个重要部分就是学习 Perl。

当您使用空文件句柄 (<>) 时，它实际上从神奇的 ARGV 文件句柄中读取，该文件句柄具有特殊的语义：它从 <> 中命名的所有文件读取。 code>@ARGV，如果 @ARGV 为空，则为 STDIN。

来自perldoc perlop：

空文件句柄<>很特殊：它可以用来模拟
sed 和 awk 的行为。 <> 的输入来自标准
输入，或来自命令行上列出的每个文件。 是这样的
有效：第一次计算 <> 时，检查 @ARGV 数组，并且
如果为空，则 $ARGV[0] 设置为 "-"，打开后会为您提供
标准输入。 然后将 @ARGV 数组作为列表进行处理
文件名。 循环

while (<>) { 
      ... # 每行代码 
  } 
  

相当于以下类似 Perl 的伪代码：

unshift(@ARGV, '-') 除非 @ARGV; 
  而（$ARGV = 移位）{ 
      打开（ARGV，$ARGV）； 
      而 () { 
          ... # 每行代码 
      } 
  } 
  

只不过说起来并不那么麻烦，并且实际上会起作用。 它
确实会移动 @ARGV 数组并将当前文件名放入
$ARGV 变量。 它还在内部使用文件句柄 ARGV - <> 只是一个
的同义词，这很神奇。 （上面的伪代码没有
有效，因为它将 视为非魔法。）

您不必在 while 循环中使用 <> -- my $data = <> 将从第一个非空文件中读取一行，my @data = <>; 会将其全部吞掉立即，您可以传递 *ARGV ，就好像它是一个普通的文件句柄一样。

Answer 3

这就是 -n 开关的用途！

采用您的解析方法，并执行以下操作：

#!/usr/bin/perl -n

#do stuff

每一行都存储在 $_ 中。 所以你运行

./getfile.pl /path/to.csv

它会这样做。

请参阅此处 和此处了解有关这些的更多信息。 我也喜欢 -p，并且发现 -a 和 -F 的组合非常有用。

另外，如果您想进行一些额外的处理，请添加 BEGIN 和 end 块。

#!/usr/bin/perl -n

BEGIN {
  my $accumulator;
}

# do stuff

END {
  print process_total($accumulator);
}

管他呢。 这非常非常有用。

Answer 4

我是否遗漏了某些内容，或者您​​只是在寻找 open() 调用？

open($fh, "<$ARGV[0]") or die "couldn't open $ARGV[0]: $!";
do_something_with_fh($fh);
close($fh);