Paul Johnson wrote:
> Rob Dixon said:
>
> > $data =~ m/ <([^>]*)> /x;
> > my $newdata = $1;
>
> And if the match fails?
Well I think it's likely that you'd want to do:
$data =~ m/ <([^>]*)> /x or die "Malformed data";
or at least:
$data =~ m/ <([^>]*)> /x or next;
as a mismatch inmplies that something's happening that
you don't expect. But you're quite right, I should have
pointed out that $1 etc. are 'sticky' and will keep their
values from the last successful match. I'll go for:
{
my $newdata;
$newdata = $1 if $data =~ m/ <([^>]*)> /x;
:
}
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
