|
NAMEURI::Find - Find URIs in arbitrary text SYNOPSISrequire URI::Find; my $finder = URI::Find->new(\&callback); $how_many_found = $finder->find(\$text); DESCRIPTIONThis module does one thing: Finds URIs and URLs in plain text. It finds them quickly and it finds them all (or what URI.pm considers a URI to be.) It only finds URIs which include a scheme (http:// or the like), for something a bit less strict have a look at URI::Find::Schemeless. For a command-line interface, urifind is provided. Public Methods
Protected MethodsI got a bunch of mail from people asking if I'd add certain features to URI::Find. Most wanted the search to be less restrictive, do more heuristics, etc... Since many of the requests were contradictory, I'm letting people create their own custom subclasses to do what they want. The following are methods internal to URI::Find which a subclass can override to change the way URI::Find acts. They are only to be called inside a URI::Find subclass. Users of this module are NOT to use these methods.
Old FunctionsThe old find_uri() function is still around and it works, but its deprecated. EXAMPLESStore a list of all URIs (normalized) in the document. my @uris;
my $finder = URI::Find->new(sub {
my($uri) = shift;
push @uris, $uri;
});
$finder->find(\$text);
Print the original URI text found and the normalized representation. my $finder = URI::Find->new(sub {
my($uri, $orig_uri) = @_;
print "The text '$orig_uri' represents '$uri'\n";
return $orig_uri;
});
$finder->find(\$text);
Check each URI in document to see if it exists. use LWP::Simple;
my $finder = URI::Find->new(sub {
my($uri, $orig_uri) = @_;
if( head $uri ) {
print "$orig_uri is okay\n";
}
else {
print "$orig_uri cannot be found\n";
}
return $orig_uri;
});
$finder->find(\$text);
Turn plain text into HTML, with each URI found wrapped in an HTML anchor. use CGI qw(escapeHTML);
use URI::Find;
my $finder = URI::Find->new(sub {
my($uri, $orig_uri) = @_;
return qq|<a href="$uri">$orig_uri</a>|;
});
$finder->find(\$text, \&escapeHTML);
print "<pre>$text</pre>";
NOTESWill not find URLs with Internationalized Domain Names or pretty much any non-ascii stuff in them. See <http://rt.cpan.org/Ticket/Display.html?id=44226> AUTHORMichael G Schwern <schwern@pobox.com> with insight from Uri Gutman, Greg Bacon, Jeff Pinyan, Roderick Schertler and others. Roderick Schertler <roderick@argon.org> maintained versions 0.11 to 0.16. Darren Chamberlain wrote urifind. LICENSECopyright 2000, 2009-2010, 2014, 2016 by Michael G Schwern <schwern@pobox.com>. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perlfoundation.org/artistic_license_1_0 SEE ALSOurifind, URI::Find::Schemeless, URI, RFC 3986 Appendix C
|