如何伪造 perl 的钻石运算符的输入？

Question

The answers to this question 描述如何伪造<STDIN> 的输入。我的目标与那个问题类似：我的单元测试需要伪造<> 的输入。

当我对<> 的虚假输入应用相同的技术时，它不起作用。 <> 的介绍性解释让我相信，当命令行上没有给出文件时，它是从 STDIN 读取的，但情况似乎并非如此。

我正在尝试制作的示例：

#!/usr/bin/perl -w

use strict;
use warnings;
use Carp;
use English qw( -no_match_vars );

sub fake1 {
    my $fakeinput = "asdf\n";
    open my $stdin, '<', \$fakeinput
      or croak "Cannot open STDIN to read from string: $ERRNO";
    local *STDIN = $stdin;

    my $line = <>;
    print "fake1 line is $line\n";

    return 0;
}

sub fake2 {
    my $fakeinput = "asdf\n";
    open my $stdin, '<', \$fakeinput
      or croak "Cannot open STDIN to read from string: $ERRNO";
    local *STDIN = $stdin;

    my $line = <STDIN>;
    print "fake2 line is $line\n";

    return 0;
}

fake1();
fake2();

fake2 有效，fake1 无效。一个示例会话（“qwerty”是我输入的）：

$ perl /tmp/diamond.pl
qwerty
fake1 line is qwerty

fake2 line is asdf

我的问题：

1. 如何伪造<> 的输入？
2. 在命令行没有给出文件时<>和<STDIN>有什么区别？ （即为什么链接问题中的技术适用于<STDIN>，但不适用于<>？）

谢谢。

Answer 1

在你的第一个测试中试试这个：

open ARGV, '<', \$fakeinput
      or croak "Cannot open STDIN to read from string: $ERRNO";

my $line = <>;
print "fake1 line is $line\n";

这具有不是“本地”的缺点 - 不知道您是否可以将其设为本地。 （不过，您可以多次这样做，每次测试前重置。）