मैं __DATA__ को दो बार कैसे उपयोग कर सकता हूं?

Question

मैं __DATA__ का दो बार उपयोग कैसे कर सकता हूं?

#!/usr/local/bin/perl 
use warnings; 
use 5.012; 

while (<DATA>) { 
    print; 
} 

while (<DATA>) { 
    chomp if $. == 1; 
    print scalar reverse; 
    print "\n" if eof; 
} 

__DATA__ 
one 
two 
three 
four 
five 
six 

Answer 1

दो बार DATA filehandle उपयोग करने के लिए आप इसे रिवाइंड करने के लिए की जरूरत है। मुश्किल बात यह है कि यदि आप seek(DATA, 0, 0) करते हैं, तो इसे पहले स्रोत लाइन पर रखा जाएगा, न कि __DATA__ के बाद की रेखा। इसलिए आप पहले की स्थिति को बचाने की जरूरत:

my $data_start = tell DATA; # save the position 
print while (<DATA>); 
seek DATA, $data_start, 0; # reposition the filehandle right past __DATA__ 
print while (<DATA>); 

यह भी देखें:

• tell
• seek

Answer 2

आप tell()ing और seek() के लिए ing करने के लिए Data::Handle मॉड्यूल का उपयोग कर सकते हैं आप दृश्यों के पीछे। (हालांकि मेरा मानना ​​है कि यदि आप पर्ल 5.10 है या बाद में आप मूल DATA फ़ाइल संभाल साझा करने और उस में आगे और पीछे की मांग के बजाय DATA फ़ाइल संभाल dup कर सकते हैं।)