Wie kann man wissen, ob Pipelines Eingang in ein Perl-Programm sind

Question

Ich kann <> verwenden, um dort die Pipeline-Eingabe zu einem Perl-Programm zu loopen. Wie kann ich jedoch entscheiden, ob es Pipeline-Eingabe gibt, wenn es keine Pipeline-Eingabe gibt Ich verwende Umgebungsvariable, um eine Datei zu laden. Ich versuche zu verwenden:

my @lines = (<>); 
if ($#lines == -1) { 
    use setenv; 
    open FILE, "$ENV{'ART_FILE_LIST'}" or die $!; 
    @lines = <FILE>; 
} 

Offensichtlich ist es nicht funktioniert, weil das Programm in der ersten Zeile wartet

Answer 1

use 5.010_000; 

use utf8; 
use strict; 
use autodie; 
use warnings qw< FATAL all >; 
use open  qw< :std :utf8 >; 

END { 
    close(STDOUT) 
     || die "can't close stdout: $!"; 
} 


if (@ARGV == 0 && -t STDIN) { 
    # NB: This is magic open, so the envariable 
    #  could hold a pipe, like 'cat -n /some/file |' 
    @ARGV = $ENV{ART_FILE_LIST} 
      || die q(need $ART_FILE_LIST envariable set); 
} 

while (<>) { 
    # blah blah blah 
} 

Answer 2

Sie den -t Operator verwenden können, um festzustellen, ob Sie ein Terminal sind, das heißt, nicht eine Pipeline:

if (-t STDIN) { print "Terminal\n" } 
     else { print "Not a terminal\n" } 

Answer 3

Verwenden Getopt::Long

perl -Mylib -e 'Mylib::do_stuff' --i_am_pipe_lined 

Eines der Dinge über UNIX-Pipelines ist, dass sie ihre Nützlichkeit erreichen, indem sie sich nicht darum kümmern, was vor oder nach ihnen ist. Sie haben nur eine Aufgabe zu erledigen und sie tun es. Sie tun eine Sache, einfach, aber sie alle haben Schalter, um ihre einfache Arbeit mit ein wenig mehr Anpassung zu tun.