in reply to Parsing out URLs with regex
use strict; use warnings; use URI::Find; my @found; # this is just for this example, your $page will have the HTML # this line slurps the DATA filehandle below into a scalar my $page = do {local $/;<DATA>}; my $finder = URI::Find->new( sub { push @found,shift } ); $finder->find(\$page); print $_,$/ for @found; __DATA__ <a href="http://foo.com/bar/qux.html">stuff</a> <a href="http://bar.com/baz.cgi?foo=bar&stuff=more%20stuff">click</a> <a href="mailto:spam@me.com">don't feed the trolls</a>
jeffa
L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
| A reply falls below the community's threshold of quality. You may see it by logging in. |