PROSAGA码农传奇-perl-为perl STDIN分配特定值

<div class =“post-text”itemprop =“text”>
  
    根据
    <a href="https://perldoc.perl.org/functions/open.html" rel="nofollow noreferrer">
       <code>
 perldoc open
 </code>
    </A>
    ：
  
  <BLOCKQUOTE>
    
      [...]您可以通过以下方式直接打开文件句柄到Perl标量：
    
     <pre>
 <code>
 open(my $fh, ">", \$variable) || ..

</code>
 </pre>
  </BLOCKQUOTE>
  
    也可以看看
    <a href="https://perldoc.perl.org/PerlIO/scalar.html" rel="nofollow noreferrer">
      PerlIO的标量::
    </A>
    。此外，根据
    <a href="https://perldoc.perl.org/perlop.html#I%2fO-Operators" rel="nofollow noreferrer">
      perldoc perlop
    </A>
    ：
  
  <BLOCKQUOTE>
    
      空文件句柄＆lt;＆gt;很特别：它可以用来模仿
  的行为
       <code>
 sed
 </code>
       和
       <code>
 awk
 </code>
      以及任何其他需要的Unix过滤程序
  一个文件名列表，对所有输入的每一行做同样的事情
  他们。输入来自
       <code>
 <>
 </code>
       来自标准输入，或来自每个
  命令行中列出的文件。以下是它的工作原理：第一次
  
       <code>
 <>
 </code>
       被评估，
       <code>
 @ARGV
 </code>
       检查数组，如果为空，
       <code>
 $ARGV[0]
 </code>
       
  被设置为
       <code>
 "-"
 </code>
       ，打开时为您提供标准输入。该
       <code>
 @ARGV
 </code>
       
  然后将数组作为文件名列表处理。
    
  </BLOCKQUOTE>
  
    所以，当你这样做
     <code>
 while (<>)
 </code>
     它会尝试“打开标准输入”（前提是你没有给出命令行参数，即
     <code>
 @ARGV
 </code>
     是空的）。这个
     <code>
 open
 </code>
     命令不受变量当前值的影响
     <code>
 STDIN
 </code>
    相反（我猜）它会简单地做：
  
   <pre>
 <code>
 open ARGV, '/dev/tty' or die "open: /dev/tty: $!";

</code>
 </pre>
  
    所以似乎不可能重新定义的行为
     <code>
 <>
 </code>
     通过改变来读取字符串
     <code>
 STDIN
 </code>
    。
  
  
    但不是使用空文件句柄
     <code>
 <>
 </code>
     在你的循环中，如果你可以使用
     <code>
 <STDIN>
 </code>
     相反..然后再重新定义
     <code>
 STDIN
 </code>
     到一个字符串文件句柄将工作：
  
   <pre>
 <code>
 use strict;
use warnings;

my $str = "hello\n";
open my $fh, "<", \$str or die "Could not open string file handle: $!";
{
 local *STDIN = $fh;
 while (<STDIN>) {
 print;
 }
}
close $fh;
my $line = <STDIN>;
print "Terminal input: ", $line;

</code>
 </pre>
  
    的
      编辑
    </强>
    ：
  
  
    以下似乎也有效：
  
   <pre>
 <code>
 local *ARGV = $fh;
while (<>) {
 print;
}

</code>
 </pre>
</DIV>