Re^2: lovely regexs


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re^2: lovely regexs

by CountZero (Bishop)

on Apr 13, 2009 at 12:54 UTC ( [id://757204]=note: print w/replies, xml )

Need Help??

in reply to Re: lovely regexs
in thread lovely regexs

Indeed and the $extor->src method returns them all. Fortunately there is another method $extor->img that returns the src attribute of the img links only.

use strict;
use warnings;
use HTML::SimpleLinkExtor;

my $extor = HTML::SimpleLinkExtor->new();
my $url   = 'http://www.perlmonks.org';

$extor->parse_url($url);

foreach my $src ( $extor->img ) {
    print "$src\n";
}
[download]

Output:

http://promote.pair.com/i/pair-banner-current.gif
http://perlmonks.org/images/monkpics/pater_hat_sm.gif
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Comment on Re^2: lovely regexs Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://757204]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others romping around the Monastery: (3)

As of 2024-04-25 02:22 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found