How can I use __DATA__ twice?

Question

How can I use __DATA__ twice?

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

while (  ) {
    print;
}

while (  ) {
           


        

Answer 1

You can use the Data::Handle module to do the tell()ing and seek()ing for you behind the scenes. (Though I believe if you have perl 5.10 or later you can dup the DATA file handle instead of sharing the original DATA file handle and seeking back and forth in it.)