in reply to Regexp with optional group containing backreference
and solution #2:use strict; use warnings; $/ = "<br /><br />"; while(<DATA>) { chomp; my @record = split(/<br \/>/); print "@record\n" if (@record == 3); } __DATA__ Name1<br />Address1<br /><br />Name2<br />Address2<br />URL2<br /><br +/>Name3<br />Address3<br />URL3<br /><br />Name4<br />Address4<br />< +br />
use strict; use warnings; $/ = "<br />"; my $i = -1; my @record; while(<DATA>) { chomp; if (/^$/) { $i = -1; next; } $record[++$i] = $_; print "@record\n" if ($i == 2); } __DATA__ Name1<br />Address1<br /><br />Name2<br />Address2<br />URL2<br /><br +/>Name3<br />Address3<br />URL3<br /><br />Name4<br />Address4<br />< +br />
|
|---|