troubleshooting Question

Modify Code To Return Only *.jgp & *.gif links

Avatar of blnukem
blnukem asked on
Perl
3 Comments1 Solution176 ViewsLast Modified:
Hi All

I need to modify this code so that it will only return *.jgp & *.gif links instead of every link on the page.

CODE:

#!/usr/bin/perl

   print "Content-type: text/html\n\n";

    use HTML::LinkExtor;
    use LWP::Simple;

    $base_url = "http://www.ebay.com";

    $parser = HTML::LinkExtor->new(undef, $base_url);
    $parser->parse(get($base_url))->eof;
    @links = $parser->links;

    foreach $linkarray (@links){
      my @element = @$linkarray;
      my $elt_type = shift @element;

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

    for (sort keys %seen){
     print $_, "\n";
    }
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 3 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 3 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros