Perl print __DATA__ multiple times

Sometimes you have a lot of Data you want to store in your script, for that you could you the __DATA__ token, you could simple read it with a file handle:

print <DATA>,"\n";

__DATA__
Test String
123456

If you use it more than one time you should seek for the start position:

#!/usr/bin/perl
use warnings;
use strict;



my $data_start = tell DATA; # where __DATA__ begins
print <DATA>,"\n";
seek DATA, $data_start, 0;

print <DATA>,"\n";

__DATA__
Test String
123456

Output looks like this:

Test String
123456

Test String
123456

Post has been published on http://scheinast.eu/perl-print-__data__-multiple-times/

Advertisements
Dieser Beitrag wurde unter Allgemein abgelegt und mit verschlagwortet. Setze ein Lesezeichen auf den Permalink.

2 Antworten zu “Perl print __DATA__ multiple times

  1. Pingback: Perl print __DATA__ multiple times | melisacarter

  2. Pingback: Perl print __DATA__ multiple times | Paul Scheinast

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s