以编程方式从STDIN或Perl中的输入文件中读取

在Perl中以编程方式从stdin或输入文件（如果提供）中读取的最巧妙的方法是什么？

while (<>) {
print;
}

将从命令行上指定的文件或如果未提供文件的stdin中读取

如果需要在命令行中进行此循环构建，则可以使用以下-n选项：

$ perl -ne 'print;'

在这里，您只需将代码{}从第一个示例放到''第二个

这提供了一个可使用的命名变量：

foreach my $line ( <STDIN> ) {
    chomp( $line );
    print "$line\n";
}

要读取文件，请像下面这样通过管道输入：

program.pl < inputfile

在某些情况下，“最流畅”的方法是利用-n切换。它使用while(<>)循环隐式地包装代码，并灵活地处理输入。

在slickestWay.pl：

＃！/ usr / bin / perl -n

开始： {
  ＃在这里做一次
}

＃为单行输入实现逻辑
打印$ result;

在命令行中：

chmod +x slickestWay.pl

现在，根据您的输入执行以下操作之一：

1. 等待用户输入

   ./slickestWay.pl
   

2. 从参数中命名的文件中读取（无需重定向）

   ./slickestWay.pl input.txt
   ./slickestWay.pl input.txt moreInput.txt
   

3. 使用管道

   someOtherScript | ./slickestWay.pl 
   

BEGIN如果需要初始化某种面向对象的接口，例如Text :: CSV或类似的东西，可以使用将该块添加到shebang中，则该块是必需的-M。

-l并且-p也是你的朋友。

您需要使用<>运算符：

while (<>) {
    print $_; # or simply "print;"
}

可以压缩为：

print while (<>);

任意文件：

open F, "<file.txt" or die $!;
while (<F>) {
    print $_;
}
close F;

如果有原因不能使用上述ennuikiller提供的简单解决方案，则必须使用Typeglobs来操纵文件句柄。这是更多工作的方式。本示例将文件从中复制$ARGV[0]到中$ARGV[1]。如果未指定文件，则默认分别为STDIN和STDOUT。

use English;

my $in;
my $out;

if ($#ARGV >= 0){
    unless (open($in,  "<", $ARGV[0])){
      die "could not open $ARGV[0] for reading.";
    }
}
else {
    $in  = *STDIN;
}

if ($#ARGV >= 1){
    unless (open($out, ">", $ARGV[1])){
      die "could not open $ARGV[1] for writing.";
    }
}
else {
    $out  = *STDOUT;
}

while ($_ = <$in>){
    $out->print($_);
}

做

$userinput =  <STDIN>; #read stdin and put it in $userinput
chomp ($userinput);    #cut the return / line feed character

如果你只想读一行

这是我制作脚本的方式，该脚本可以接受命令行输入或重定向文本文件。

if ($#ARGV < 1) {
    @ARGV = ();
    @ARGV = <>;
    chomp(@ARGV);
}

这会将文件的内容重新分配给@ARGV，从那里您就可以像对待某人包括命令行选项一样处理@ARGV。

警告

如果没有文件被重定向，则程序将处于空闲状态，因为它正在等待来自STDIN的输入。

我还没有找到一种方法来检测文件是否已被重定向，以消除STDIN问题。

if(my $file = shift) { # if file is specified, read from that
  open(my $fh, '<', $file) or die($!);
  while(my $line = <$fh>) {
    print $line;
  }
}
else { # otherwise, read from STDIN
  print while(<>);
}