troubleshooting Question

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

Avatar of blnukem
blnukem asked on
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.



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

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

    $base_url = "";

    $parser = HTML::LinkExtor->new(undef, $base_url);
    @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);

    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