linux-l: Perl-Skalarer Kontext

[Robert C. Helling]

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