Il modo corretto di leggere un file di dati in un array

Question

Ho un file di dati, con tutte le righe un numero, come

10 
20 
30 
40 

Come faccio a leggere questo file e memorizzare i dati in un array?

In modo che possa eseguire alcune operazioni su questo array.

Answer 1

Proprio la lettura del file in un array, una linea per ogni elemento, è banale:

open my $handle, '<', $path_to_file; 
chomp(my @lines = <$handle>); 
close $handle; 

Ora le linee del fi le sono nell'array @lines.

Answer 2

Tie::File è quello che vi serve:

Sinossi

# This file documents Tie::File version 0.98 
use Tie::File; 

tie @array, 'Tie::File', 'filename' or die ...; 

$array[13] = 'blah';  # line 13 of the file is now 'blah' 
print $array[42];  # display line 42 of the file 

$n_recs = @array;  # how many records are in the file? 
$#array -= 2;   # chop two records off the end 


for (@array) { 
    s/PERL/Perl/g;   # Replace PERL with Perl everywhere in the file 
} 

# These are just like regular push, pop, unshift, shift, and splice 
# Except that they modify the file in the way you would expect 

push @array, new recs...; 
my $r1 = pop @array; 
unshift @array, new recs...; 
my $r2 = shift @array; 
@old_recs = splice @array, 3, 7, new recs...; 

untie @array;   # all finished 

Answer 3

V'è il metodo più semplice, utilizzando il modulo File::Slurp:

use File::Slurp; 
my @lines = read_file("filename", chomp => 1); # will chomp() each line 

Se avete bisogno di un po 'di convalida per ogni linea è possibile utilizzare grep davanti read_file.

Ad esempio, le linee di filtro che contengono solo numeri interi:

my @lines = grep { /^\d+$/ } read_file("filename", chomp => 1); 

Answer 4

mi piace ...

@data = `cat /var/tmp/somefile`; 

non è così glamour come gli altri, ma, funziona lo stesso. E ...

$todays_data = '/var/tmp/somefile' ; 
open INFILE, "$todays_data" ; 
@data = <INFILE> ; 
close INFILE ; 

Cheers.