主页 / unix / 问题 / 781540
Accepted
Uwe
Asked: 2024-08-07 20:26:56 +0800 CST

perl：使用“-”作为带有 3 个参数的标准输入

  • 772

在 perl 中，用于打开文件的旧 2 参数版本open（即）已弃用。出于安全原因，应将其替换为 3 参数版本。不过，有一种情况下，3 参数版本的行为与 2 参数版本不同：open FILEHANDLE,EXPRopen FILEHANDLE,MODE,EXPR

2-argopen将特殊文件名解释-为标准输入。例如，

echo foo | perl -e 'open my $fh, "-"; $_ = <$fh>; print $_;'

和

echo foo | perl -e 'open my $fh, "<-"; $_ = <$fh>; print $_;'

产生输出foo。在 3 参数版本中，的特殊解释-已经消失：

echo foo | perl -e 'open my $fh, "<", "-"; $_ = <$fh>; print $_;'

不打印任何内容。

open使用 3-arg 来模拟 2-arg 的这个特性的标准或推荐方法是什么open？（在具体应用中，文件名是程序的一个参数，可能是也可能不是-。）

perl

1 个回答

  1. Best Answer

    对于与这些 2 个参数的快捷方式等效的 3 个参数形式，请参阅有关复制文件句柄的部分perldoc -f open：

    复制文件句柄

    您还可以按照 Bourne shell 传统，指定以“>&”开头的 EXPR，在这种情况下，字符串的其余部分将被解释为要复制（如 dup(2)）并打开的文件句柄（或文件描述符，如果是数字）的名称。您可以在“>”、“>>”、“<”、“+>”、“+>>”和“+<”之后使用“&”。您指定的模式应与原始文件句柄的模式匹配。（复制文件句柄不会考虑任何现有的 IO 缓冲区内容。）如果您使用三参数形式，则可以传递数字、文件句柄的名称或正常的“对 glob 的引用”。

    $ echo test | perl -e '
  open my $fi, "<&", \*STDIN or die;
  open my $fo, ">&", \*STDOUT or die;
  $line = <$fi>; print $fo $line'
test

    请注意，-是一个与任何文件名一样有效的文件名，这是避免使用 2-args 形式的原因之一open。

    如果您希望程序-在打开进行读取时将其处理为 stdin（并且uname|表示名为 的文件uname|，而不是 的输出和的 2 参数形式支持的uname其他危险 特殊情况open），您需要手动完成：

    # for input:
if ($filename eq '-') {
  $fh = *STDIN;
} else {
  open $fh, '<', $filename or die;
}

    # for output
if ($filename eq '-') {
  $fh = *STDOUT;
} else {
  open $fh, '>', $filename or die;
}
    • 1

相关问题