[LA.pm] global regex matches

[David Heayn]

I'm having a little bit of trouble with trying to find and 
custom-replace all the URL references within an array.

I have this:

foreach (@recordsRaw)
	{
	my $thingie = $_;
	if ($thingie =~ /<a href="(http:\/\/.*?)">(.*?)<\/a>/ig)
		{
		my $tempURL;
		$tempURL = $1;
		open(STUFF, "+>>$linkDat");
		$rand = int(rand $maxN);
		my $rand2 = int(rand $maxN);
		my $encryptName = "$rand.$rand2";
		print STUFF "$encryptName|$tempURL\n";
		close(STUFF);
		$thingie =~ s/$tempURL/$redirLoc\?$encryptName/;
		push(@CleanArray, $thingie);
		}


but it only acts upon the first URL it finds.


BTW- I'm trying to track outbound links replacing 
"http://www.cnn.com" with "http://...redir?7584.2893"

P.S. - For once, I don't think $thingie clashes with any other variables.


David Heayn * http://www.cloudgraphics.com * 213/925.3283