Prawidłowy sposób odczytać plik danych do tablicy

Question

Mam plik danych z każdego wiersza posiadającego jeden numer, jak

10 
20 
30 
40 

Jak odczytać ten plik i przechowywać dane w tablicy?

Tak, że mogę przeprowadzić pewne operacje na tej macierzy.

Answer 1

Wystarczy czytania pliku do tablicy, jedna linia na element, jest trywialny:

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

Teraz linie fi le są w tablicy @lines.

Answer 2

Tie::File jest to, czego potrzebujesz:

Synopsis

# 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

Jest to najprostsza metoda, za pomocą File::Slurp moduł:

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

Jeśli potrzebujesz walidacji dla każdej linii można wykorzystać grep przed read_file.

Na przykład, linie filtrów, które zawierają jedynie liczby całkowite:

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

Answer 4

lubię ...

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

To nie jest tak efektowne jak inni, ale to działa tak samo. I ...

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

Pozdrawiam.