Leer programáticamente desde STDIN o archivo de entrada en Perl

Question

¿Cuál es la manera más hábil de leer programáticamente desde stdin o un archivo de entrada (si está provisto) en Perl?

Answer 1

while (<>) { 
print; 
} 

aparece ya sea a partir de una archivo especificado en t que la línea de comandos o de la entrada estándar si no hay ningún archivo se da

Si se le requiere esta construcción de bucle en la línea de comandos, entonces puede usar -n opción:

$ perl -ne 'print;' 

Aquí sólo hay que poner el código entre {} del primer ejemplo '' en el segundo

Answer 2

Es necesario utilizar <> operador:

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

que puede ser compactado a:

print while (<>); 

arbitraria de archivos:

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

hacer

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

si desea leer una sola línea

Answer 5

Esto proporciona una variable llamada para trabajar con:

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

Para leer un archivo, una conexión en este aspecto:

program.pl < inputfile 

Answer 6

El La forma "más hábil" en ciertas situaciones es aprovechar el -n switch. Envuelve implícitamente su código con un bucle while(<>) y maneja la entrada de forma flexible.

En slickestWay.pl:

 
#!/usr/bin/perl -n 

BEGIN: { 
    # do something once here 
} 

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

En la línea de comandos:

chmod +x slickestWay.pl 

Ahora, dependiendo de su entrada siga uno de los siguientes:

1. esperar a la entrada del usuario

   ./slickestWay.pl 
   

2. Leer de archivo (s) nombrado en argumentos (sin cambio de dirección requiere)

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

3. uso de una tubería

   someOtherScript | ./slickestWay.pl 
   

El bloque BEGIN es necesario si usted necesita para inicializar algún tipo de interfaz orientada a objetos, como Text :: CSV o algo así, que puede agregar al shebang con -M.

-l y -p también son sus amigos.

Answer 7

Si hay una razón por la que no se puede utilice la solución simple provista por ennuikiller arriba, entonces tendrá que usar Typeglobs para manipular manejadores de archivos. Esto es mucho más trabajo. Este ejemplo copia desde el archivo en $ARGV[0] al de $ARGV[1]. Se establece de manera predeterminada en STDIN y STDOUT, respectivamente, si los archivos no están especificados.

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

Aquí es cómo hice un script que podría tomar como entradas de línea de comandos o un archivo de texto redirigido.

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

Este reasignará el contenido del archivo a @ARGV, a partir de ahí sólo @ARGV proceso como si alguien estaba incluyendo opciones de línea de comandos.

ADVERTENCIA

Si se redirige ningún archivo, el programa se sentará a su inactividad, ya que está a la espera para la entrada de STDIN.

No he encontrado una forma de detectar si un archivo está siendo redirigido aún para eliminar el problema STDIN.