Lettura a livello di codice da STDIN o file di input in Perl

Question

Qual è il modo più corretto per leggere in modo programmato da stdin o da un file di input (se fornito) in Perl?

Answer 1

while (<>) { 
print; 
} 

leggerà sia da un file specificato su t egli riga di comando o da stdin se nessun file è dato

Se si sono tenuti questa costruzione loop nella linea di comando, allora si può utilizzare -n opzione:

$ perl -ne 'print;' 

Qui basta mettere codice tra {} dal primo esempio in '' in seconda

Answer 2

è necessario utilizzare <> operatore:

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

Quale può essere compresso per:

print while (<>); 

file arbitrario:

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

fare

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

se volete leggere una sola riga

Answer 5

Ciò fornisce una variabile chiamata a lavorare con:

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

Per leggere un file, pipe in questo modo:

program.pl < inputfile 

Answer 6

Il il modo "più scivoloso" in determinate situazioni è sfruttare il -n switch. Incapsula implicitamente il codice con un ciclo while(<>) e gestisce l'input in modo flessibile.

In slickestWay.pl:

 
#!/usr/bin/perl -n 

BEGIN: { 
    # do something once here 
} 

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

Nella riga di comando:

chmod +x slickestWay.pl 

Ora, a seconda del vostro ingresso effettuare una delle seguenti operazioni:

1. Attendere che l'input dell'utente

   ./slickestWay.pl 
   

2. leggere dal file (s) di nome in argomenti (senza reindirizzamento richiesto)

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

3. utilizzare un tubo

   someOtherScript | ./slickestWay.pl 
   

Il blocco BEGIN è necessario se è necessario inizializzare una sorta di interfaccia orientata agli oggetti, come Text :: CSV o alcuni di essi, che è possibile aggiungere allo shebang con -M.

-l e -p sono anche i tuoi amici.

Answer 7

Se c'è un motivo per cui non è possibile utilizzare utilizzando la semplice soluzione fornita da ennuikiller in alto, sarà necessario utilizzare Typeglobs per manipolare i file handle. Questo è molto più lavoro. Questo esempio copia dal file in $ARGV[0] a quello in $ARGV[1]. Il valore predefinito è STDIN e STDOUT rispettivamente se i file non sono specificati.

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

Ecco come ho fatto uno script che potrebbe prendere entrambi gli ingressi di linea di comando o di avere un file di testo reindirizzato.

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

Ciò riassegnare il contenuto del file in @ARGV, da lì basta @ARGV processo come se qualcuno stesse incluse le opzioni della riga di comando.

ATTENZIONE

Se nessun file viene reindirizzato, il programma siederà la loro inattività, perché è in attesa di input da STDIN.

Non ho trovato un modo per rilevare se un file viene reindirizzato per eliminare il problema STDIN.