The following code:
---- SNIP ----
sub return_internal_links
{
foreach my $element (@links) {
my $all_internal = join("\n",@internal),"\n";
if (($element =~ m/$startingurl/i) && ($all_internal !~ m/$element/gi)) {
print $element,"\n";
push (@internal, $element);
}
}
}
---- SNIP ----
Still adds the value to the array whether the value is in
internal or not. I am missing something stupid here I know. Could someone
please enlighten me..
I want the value matched if not in @internal and if
it contains $startingurl..
:o)
Cheers,
Lorne
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
