linux-l: Perl-Skalarer Kontext

[Ingo Buse]

open(FILE, "datei");
    @Inhalt = <FILE>;
        close(FILE);

    foreach $Zeile ( @Inhalt ) {
        if($Zeile =~ m/<p>(.+)<\/p>/) {
        $String = $String.$1;
        }
    }

tut es auch...
allerdings etwas umständlicher ;)=

----- Original Message -----
From: Robert C. Helling <helling at aei-potsdam.mpg.de>
To: <linux-l at mlists.in-berlin.de>
Sent: Friday, June 09, 2000 12:13 PM
Subject: Re: linux-l: Perl-Skalarer Kontext


> On Fri, 9 Jun 2000, Manuel Tennert wrote:
>
> > Kurze Frage:
> > Wie kann ich Perl sagen, daß er aus einer Datei alle Zeilen, die mit <p>
> > anfangen und </p> enden in einen string packen soll ?
> > mit hilfe von:
> > $string =~ /<p>(.*?)<\/p>/
> > geht es leider nicht......wäre auch zu einfach !
> >
>
> open (IN,"filename") || die "Cannot open!:$!";
> $string = join '', (grep /^<p>.*<\/p>/, <IN>);
> close IN;
>
> sollte es tun.
>
> Robert
> --
>
.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo
.oO
> Robert C. Helling        Albert Einstein Institut Potsdam
>                          Max Planck Institute For Gravitational Physics
> print "Just another      Fon +49 331 567 7227 Fax +49 331 567 7298
>        stupid .sig\n"; http://www.aei-potsdam.mpg.de/~helling
>
>