Re: parsing with regex


laziness, impatience, and hubris
	PerlMonks

Re: parsing with regex

by dfog (Scribe)

on Nov 16, 2001 at 03:51 UTC ( [id://125726]=note: print w/replies, xml )

Need Help??

in reply to parsing with regex

If everything is in a single variable you could do it in one line like

#!perl

my $Data=<<HTMLend;
<HR> 
1 is good<BR>
useless data<BR>
useless data<BR>
useless data<BR>
useless data<BR>
<HR>
2 is not good <BR>
useless data<BR>
useless data<BR>
useless data<BR>
useless data<BR>
<HR>
3 is good<BR>
useless data<BR>
useless data<BR>
useless data<BR>
useless data<BR>
<HR>
4 is not good <BR>
useless data<BR>
useless data<BR>
useless data<BR>
useless data<BR>
<HR>
HTMLend

@Results = grep {$_ =~ /is good/i} split (/<HR>/, $Data);

$" = "\n\n";
print "@Results";
[download]

Dave