Mehrzeilige Textdatei auslesen und formatiert ausgeben

[Rolf Rost]

hi,

Ihr seht also, daß ich versucht habe, die beliebigen Zeichen im Eintrag |sel event...| auszulesen und in ein Array zu kopieren. Den Text zwischen |sel... und |/sel| ebenfalls. Ich habe nun überlegt,

=cut
$t = qq(

Es war einmal eine kleine Made die nicht hören wollte.... und
so gefiel diese Made einer |sel|

Ameise als Speise |/sel|

Punkt);

$t =~ /|sel|(.*)|/sel|/s;

print $1; # Ameise als Speise
=cut

Du bekommst so das zwischen |sel| und |/sel| Geschriebene.
Vorher nimmst Du die Datei auf einen string, geht so:

open IN, "c:/windows/services" or die $!;
$/ = undef; # important ! wischdig !
my $filebody = <IN>;
close IN;

Gruss, Rolf