in reply to Regexp with optional group containing backreference
P.S. you can chomp if you want to...#!/usr/bin/perl local $/=""; while (<DATA>) { my ( $name, $address, $url ) = split /<br \/>/, $_; print "Got $name $address $url\n"; } __DATA__ Name<br /> Address<br /> URL<br /><br /> Name2<br /> Address2<br /><br />
#!/usr/bin/perl local $/="<br /><br />"; while (<DATA>) { s/^\s*// && s/\s*$//; my ( $name, $address, $url ) = split /<br \/>/, $_; print "Got $name $address $url\n"; } __DATA__ Name<br /> Address<br /> URL<br /><br /> Name2<br /> Address2<br /><br />
|
|---|