Re: Script Help

From: Purl Gurl (purlgurl_at_purlgurl.net)
Date: 10/30/03 

Date: Thu, 30 Oct 2003 14:17:51 -0800

Kev wrote:

(snipped)
 
> The portion that I'm working on is used to find all pages
> ending in .htm / .html

> Can anyone help in eliminating the non .htm / html links obtained?
 
> my $elt_type = shift @element;

You never use this variable, $elt_type.

> my ($attr_name, $attr_value) = splice(@element, 0, 2);
> $seen{$attr_value}++;

          if (splice(@element, 0, 2) =~ /(http.*htm[l]*)/)
           { $seen{$1}++; }

Purl Gurl 

-- 
Amazing Perl Scripts!
http://www.purlgurl.net/~callgirl/android.html