[MacPerl-WebCGI] Re: macperl-webcgi-digest V1 #83

[Christopher F Baum <baum@bc.edu>]

--On Sat, Dec 18, 1999 4:50 -0800 macperl-webcgi-digest
<owner-macperl-webcgi-digest@macperl.org> wrote:

>  (/<h1>(.*?)<\/h1>/ig)


And if instead of printing those header contents you wanted them in an
array, you could do it with:

   $_ = "img <a href=nix><h1> >>> Pe</h1><h1>rl</H1> oink <h3> oink
%&$ß<<<<< GARBAGE <H1> for</h1> NONSENSE <h1> per</h1><h1>fection! <<<</h1>
fooo ";


(@headings) = (/<h1>(.*?)<\/h1>/ig);
foreach (@headings) {
print "\n",$_,"\n";
}


$heads=@headings would tell you how many were located.

Kit Baum


==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-webcgi-request@macperl.org