Re: Matching text, e.t.c.

Lorne Easton wrote: > > 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";

RE: Matching text, e.t.c.

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); } } }