WWW::Finger::Fingerpoint - Investigate E-mail Addresses using Fingerpoint
## Using WWW::Finger use WWW::Finger; my $finger = WWW::Finger->new("joe@example.com"); if ($finger) { if ($finger->isa('WWW::Finger::Fingerpoint')) { print "WWW::Finger used WWW::Fingerpoint\n"; } print $finger->name . "\n"; # print person's name. } ## Using WWW::Finger::Fingerpoint directly use RDF::Query::Client; use WWW::Finger::Fingerpoint; my $fingerpoint = WWW::Finger::Fingerpoint->new("joe@example.com"); if ($fingerpoint->webid) { my $sparql = sprintf( "SELECT * WHERE {<%s> <http://xmlns.com/foaf/0.1/homepage> ?page.}", $fingerpoint->webid); my $query = RDF::Query::Client->new($sparql); my $results = $query->execute($fingerpoint->endpoint); while (my $row = $results->next) { print "Found page: " . $row->{'page'}->uri . "\n"; } }
As well as the standard WWW::Finger methods, WWW::Finger::Fingerpoint provides this additional method:
get($p1, $p2, ...)
$p1, $p2 and are RDF predicate URIs. Returns a list of values which are non-bnode objects of triples where the predicate URI is one of the parameters and the subject URI is the person/agent fingered.
# Returns phone numbers... $finger->get('http://xmlns.com/foaf/0.1/phone', 'http://rdf.data-vocabulary.org/#tel');
WWW::Finger.
RDF::Query::Client, RDF::Trine.
http://buzzword.org.uk/2009/fingerpoint/spec.
http://www.perlrdf.org/.
Toby Inkster, <tobyink@cpan.org>
Copyright (C) 2009-2012 by Toby Inkster
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
To install WWW::Finger, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::Finger
CPAN shell
perl -MCPAN -e shell install WWW::Finger
For more information on module installation, please visit the detailed CPAN module installation guide.