Thread while (<DATA>) verallgemeinern (2 answers)
Opened by LanX- at 2008-07-25 17:18

LanX-
 2008-07-25 17:18
#112717 #112717
User since
2008-07-15
1000 Artikel
BenutzerIn

user image
Ich würde gerne hinter __DATA__ diverse unterschiedliche Bereiche __NAME__ auszeichnen von denen ich separat lesen kann.

Trotz intensiver suche bei perldoc und cpan kann ich dazu jetzt nix finden, und ich will das Rad bei sowas trivialem ungern neu erfinden ...

weiß jemand rat?

Grüße
Rolf

PS: zur Veranschaulichung:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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

my $token="DATA";
while (<DATA>){
        next if /^__(\w+)__\s*$/ and $token=$1;
        print "$token:$_"
}

__DATA__
data1

__HEHE__
hehe1
hehe2

__HUHU__
huhu1
DATA: data1
DATA:
HEHE: hehe1
HEHE: hehe2
HEHE:
HUHU: huhu1
me and my writeups

View full thread while (<DATA>) verallgemeinern