एक सरणी

Question

मैं एक संख्या होने के प्रत्येक लाइन के साथ, एक डेटा फ़ाइल है में एक डेटा फ़ाइल को पढ़ने के लिए सही तरीका,

10 
20 
30 
40 

मैं इस फ़ाइल कैसे पढ़ सकते हैं और एक सरणी में डेटा स्टोर करते हैं की तरह?

ताकि मैं इस सरणी पर कुछ संचालन कर सकूं।

Answer 1

बस एक सरणी में फ़ाइल को पढ़ने, तत्व प्रति एक लाइन, तुच्छ है:

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

अब फाई की लाइनें ले सरणी @lines में हैं।

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

आप प्रत्येक पंक्ति आप read_file के सामने grep उपयोग के कुछ मान्यता की जरूरत है:

Answer 2

Tie::File तुम क्या जरूरत है:

सार

# 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

वहाँ सबसे आसान तरीका, File::Slurp मॉड्यूल का उपयोग कर रहा है।

उदाहरण के लिए, फिल्टर लाइनों जो केवल पूर्णांकों होते हैं:

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

Answer 4

मुझे पसंद है ...

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

यह दूसरों के रूप में के रूप में आकर्षक नहीं है, लेकिन, यह सब एक ही काम करता है। और ...

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

चीयर्स।