Im calling a bunch of rows from my database.
In the while loop.
while(my $Dataref = $sth->fetchrow_hashref) {
my %Data = %{$Dataref};
my $text = ($Data{val});
$text = (/(www\.[\w\.\-\/\&\=\+\%\:\?]*[a-zA-Z\/0-9])[\001\074]*/)
$emailaddress = $1;
print qq($emailaddress);
}
In the above regex each row has a text column, with lots of text in them.
When I run this through the loop it finds the email address and I have
another part that turnes it into a hyperlink. The back reference works
great. Now the problem im having is when there is more than one email
address. Does anyone know how I can modify this so that it will look past
the first email address and also capture the second, third, etc...
I tried even knowing that it wouldn't work to use something like.
while(my $Dataref = $sth->fetchrow_hashref) {
my %Data = %{$Dataref};
my $text = ($Data{val});
$text = (/(www\.[\w\.\-\/\&\=\+\%\:\?]*[a-zA-Z\/0-9])[\001\074]*/)
$emailaddress = $1;
print qq($emailaddress);
$text = (/(www\.[\w\.\-\/\&\=\+\%\:\?]*[a-zA-Z\/0-9])[\001\074]*/)
$emailaddress2 = $2;
print qq($emailaddress2);
}
But the problem here is once again it stops after the first www.blabla.com
(up to next white space) has been found.
Any suggestions. Thanks in advance.
Steve.
_____________________________________________________________________________________
Get more from the Web. FREE MSN Explorer download : http://explorer.msn.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users