Cách đúng để đọc một tập tin dữ liệu vào một mảng

Question

Tôi có một tập tin dữ liệu, với mỗi dòng có một số, như

10 
20 
30 
40 

Làm thế nào để đọc tập tin này và lưu trữ dữ liệu vào một mảng?

Để tôi có thể thực hiện một số thao tác trên mảng này.

Answer 1

Chỉ cần đọc các tập tin vào một mảng, một dòng cho mỗi phần tử, là tầm thường:

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

Bây giờ các dòng của fi le nằm trong mảng @lines.

Answer 2

Tie::File là những gì bạn cần:

Tóm tắt

# 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

Có là phương pháp đơn giản nhất, sử dụng mô-đun File::Slurp:

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

Nếu bạn cần một số xác nhận cho mỗi dòng bạn có thể sử dụng grep trước read_file.

Ví dụ, đường bộ lọc chỉ chứa số nguyên:

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

Answer 4

Tôi thích ...

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

Nó không phải là quyến rũ như những người khác, nhưng, nó hoạt động như nhau. Và ...

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

Chúc mừng.