從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問題。