सबसे आसान तरीका

Question

एक मानक पर्ल प्रत्येक स्क्रिप्ट मेरे पास है के लिए खुला समारोह फ़ाइल जोड़ना थोड़ा कष्टप्रद है:

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

और मैं करने के लिए एक पर्ल मॉड्यूल बना सकते हैं ऐसा करो, लेकिन यह इतना आसान है कि मुझे यकीन है कि वहां पहले से ही एक होना चाहिए।

मैं एक सरणी में एक पाठ फ़ाइल को पढ़ने के लिए एक रास्ता खोजने के लिए मैं नहीं कर सकते और वहाँ बाहर है कि इस सरल कार्य कर सकते हैं एक पर्ल मॉड्यूल को खोजने के लिए लग रहे हैं ... शायद मैं भी कठिन देख रहा हूँ यह कोशिश कर रहा हूँ, और पहले से ही मानक 5.10 स्थापित के साथ आया था।

बेहतर मेरा मानना ​​है कि यह कुछ इस तरह दिखेगा:

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

Answer 1

आपके पास कई विकल्प है, क्लासिक करना विधि:

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

IO::All विधि:

use IO::All; 

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

File::Slurp विधि:

use File::Slurp; 

my @array = read_file($filename); 

और शायद TIMTOWTDI के बाद, और भी बहुत कुछ।

Answer 2

प्रसिद्ध "slurp मोड" है:

my @lines = <FILEHANDLE> ; 

आप भी देख सकते हैं Perl Slurp Ease

Answer 3

मुझे लगता है यह है आप क्या देख रहे हैं

File::Slurp

Answer 4

आपको सामान्य तकनीक मिल गई है, लेकिन मैं उस पेर्ल प्रकार में डालना चाहता हूं जो आपको ऐसा करने से हतोत्साहित करता है क्योंकि यह बहुत अक्सर ऐसा होता है कि आप वही कर सकते हैं जो आप एक-लाइन कर रहे हैं एक समय, जो स्वाभाविक रूप से कहीं अधिक कुशल है।

Answer 5

आप टाई :: फ़ाइल का उपयोग करने पर भी विचार करना चाहेंगे, खासकर अगर आप बड़ी फाइलें पढ़ रहे हैं और पूरी फाइल को स्मृति में पढ़ना नहीं चाहते हैं। यह एक कोर मॉड्यूल है। इसके अलावा, कृपया perlfaq5 देखें।

Answer 6

त्वरित और गंदे के लिए, मुझे @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.); 

पर्ल * फ़ाइल नहीं खोल सकता है, यह स्वतः मर जाता है।

---

* - निष्पादन योग्य, इसलिए कृपया पूंजीकरण न करें।

Answer 7

Perl6::Slurp पर भी एक नज़र डालें जो स्लर्प के पर्ल 6 संस्करण को लागू करता है और "पर्ल बेस्ट प्रैक्टिस" पुस्तक में अनुशंसित है।

कुछ उदाहरण ....

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

Answer 8

मैं एक वस्तु उन्मुख दृष्टिकोण है कि कोर वितरण के बाहर मॉड्यूल नहीं की आवश्यकता है करता है और कहीं भी काम करेंगे की सिफारिश करेंगे:

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

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