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

Question

在Perl中编程读取stdin或输入文件（如果提供）的最简单方法是什么？

Answer 1

while (<>) { 
print; 
} 

将读取从在t上指定的文件他命令行或标准输入，如果如果你需要在命令行这个循环结构没有给出文件

，那么你可以使用-n选项：

$ perl -ne 'print;' 

在这里，你只要把从第一个例子{}之间的代码进入第二

Answer 2

您需要使用<>运营商：

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

这可以压缩到：

print while (<>); 

任意文件：

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

Answer 3

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(<>); 
} 

Answer 4

''做

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

，如果你想读的只有一行

Answer 5

这提供了一个名为变量一起工作：

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

要读取一个文件，管道就在这样的：

program.pl < inputfile 

Answer 6

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

在slickestWay.pl：

 
#!/usr/bin/perl -n 

BEGIN: { 
    # do something once here 
} 

# implement logic for a single line of input 
print $result; 

在命令行：

chmod +x slickestWay.pl 

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

1. 等待用户输入

   ./slickestWay.pl 
   

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

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

3. 使用管道

   someOtherScript | ./slickestWay.pl 
   

的BEGIN块是必要的，如果你需要初始化某种面向对象的接口，例如Text :: CSV或其他一些，您可以使用-M添加到shebang。

-l and -p也是你的朋友。

Answer 7

如果你有一个原因不能使用上面提供的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($_); 
} 

Answer 8

这里是我做了一个脚本，可以采取以下命令行输入或具有重定向的文本文件。就好像有人，包括命令行选项

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

这将重新分配给@ARGV文件的内容，从那里你只是过程@ARGV。

警告

如果没有文件重定向，因为它是从标准输入等待输入程序将坐在自己的闲置。

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