while (<DATA>) verallgemeinern (Allgemeines zu Perl)

[thread]12254[/thread]

while (<DATA>) verallgemeinern

LanX-

2008-07-25 17:18

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 )

#!/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

GwenDragon

2008-07-25 17:25

User since
2005-01-17
14876 Artikel
Admin1

Muss es denn unbedingt der doppelte Unterstrich sein?
Mit __ am Anfang und Ende werden spezielle Perl-Variablen gekennzeichnet.

Geht doch auch:

Code: (dl )

__DATA__
Blah
Blob

[Hehehe]
Hihi
Hohoho

[Rararari]
Rolands Erben
Erbsen des Todes

Oder du nimmst gleich CPAN:

Config::General

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

LanX-

2008-07-25 17:41

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

GwenDragon+2008-07-25 15:25:58--
Muss es denn unbedingt der doppelte Unterstrich sein?
Mit __ am Anfang und Ende werden spezielle Perl-Variablen gekennzeichnet.

Muss nicht, aber AFAIS werden diese aber ab __DATA__ nicht mehr geparst, sodass es keine Konflikte gibt.

Config::General ist eine ziemliche Kanone für mein Spatzenproblem ...
EDIT: ich schau mir mal CPAN:

Config::Tiny an : )

me and my writeups

View all threads created 2008-07-25 17:18.