manera más fácil de abrir un archivo de texto y leerlo en una matriz con Perl

Question

Adición de un Perl estándar de archivo de función abierto a cada secuencia de comandos que tengo es un poco molesto:

sub openfile{ 
    (my $filename) = @_; 
    open FILE,"$filename" or die $!; 
    my @lines = <FILE>; 
    return @lines; 
} 

y puedo crear un módulo de Perl para haz esto, pero esto es tan simple que estoy seguro de que ya debería haber uno.

Estoy tratando de encontrar una manera de leer un archivo de texto en una matriz, y no puedo encontrar un módulo Perl que pueda hacer esta simple tarea ... tal vez estoy buscando demasiado y ya vino con la instalación estándar 5.10.

De manera óptima creo que sería algo como esto:

my @lines = Module::File::Read("c:\some\folder\structure\file.txt"); 

Answer 1

Usted tiene varias opciones, el clásico método de hacer:

my @array = do { 
    open my $fh, "<", $filename 
     or die "could not open $filename: $!"; 
    <$fh>; 
}; 

El método IO::All:

use IO::All; 

my @array = io($filename)->slurp; 

El método File::Slurp:

use File::Slurp; 

my @array = read_file($filename); 

Y probablemente muchos más, después de todo TIMTOWTDI.

Answer 2

que es el famoso "modo slurp":

my @lines = <FILEHANDLE> ; 

también puede ver Perl Slurp Ease

Answer 3

creo que esto es lo que buscas

File::Slurp

Answer 4

Has obtenido las técnicas generales, pero quiero poner en ese tipo de Perl que te desanima de hacer eso porque es muy a menudo el caso de que puedes hacer lo mismo que estás haciendo una línea -a la vez, que es intrínsecamente mucho más eficiente.

Answer 5

Es posible que también desee considerar el uso de Tie :: File, especialmente si está leyendo archivos más grandes y no desea leer todo el archivo en la memoria. Es un módulo central. Además, consulte perlfaq5.

Answer 6

Para rápido y sucio, me gusta más la simplicidad de la limpieza con @ARGV.

# Ysth is right, it doesn't automatically die; I need another line. 
use 5.010; 
use strict; 
my @rows = do { 
    use warnings FATAL => 'inplace'; # oddly enough, this is the one. ?? 
    @ARGV='/a/file/somewhere'; 
    <>; 
}; 
say q(Not gettin' here.); 

Si Perl * no puede abrir el archivo, se muere de forma automática.

---

* - el ejecutable, así que no lo utilice en mayúsculas.

Answer 7

También eche un vistazo a Perl6::Slurp que implementa la versión Perl6 de slurp y se recomienda en el libro "Perl Best Practices".

Algunos ejemplos ....

my @lines   = slurp 'filename'; 
my @lines_chomped = slurp 'filename', { chomp => 1 }; 
my @lines_utf8 = slurp 'filename', { utf8 => 1 }; 

Answer 8

Yo recomendaría un enfoque orientado a objeto que no requiere módulos fuera de la distribución CORE y funcionará en cualquier lugar:

use strict; 
use warnings; 
use IO::File; 
my $fh = IO::File->new("< $file"); 

foreach ($fh->getlines) { 
    do_something($_); 
} 
$fh->close