पर्ल के एलडब्लूपी के साथ मेरी छवि डाउनलोड क्यों करती है मुझे गलत आकार की फ़ाइल देती है?

Question

मैं पर्ल का उपयोग कर एक HTTP सर्वर से एक छवि प्राप्त करने की कोशिश कर रहा हूँ।

मैं फ़ाइल के पूर्ण URL है और

my $data = LWP::Simple::get $params{URL}; 
my $filename = "image.jpg"; 
open (FH, ">$filename"); 
print FH $data; 
close (FH); 

उपयोग करने के लिए अब, तार्किक रूप से, मेरे लिए कम से कम, यह काम करना चाहिए प्रयास कर रहा हूँ। लेकिन फाइलें थोड़ा अलग आकार हैं, और मैं क्यों काम नहीं कर सकता।

सहायता!

Answer 1

डिस्क पर छवि डेटा को सही ढंग से लिखने के लिए आपको binmode का उपयोग करने की आवश्यकता है।

my $data = LWP::Simple::get $params{URL}; 
my $filename = "image.jpg"; 
open (FH, ">$filename"); 
binmode (FH); 
print FH $data; 
close (FH); 

अन्यथा यह पाठ के रूप में व्याख्या की है, और नई-पंक्तियों munged मिलता है।

Answer 2

डेव सही है, आपको बाइनरी मोड में अपनी फ़ाइल हैंडल सेट/सेट करनी चाहिए। लेकिन आप यह सब एक ही कर सकते हैं:

LWP::Simple::getstore($params{URL}, 'image.jpg');