Investigate e-mail addresses using fingerpoint
## Using WWW::Finger
use WWW::Finger;
my $finger = WWW::Finger->new("[email protected]");
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("[email protected]");
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: $p1, $p2 and are \s-1RDF\s0 predicate URIs. Returns a list of values which are non-bnode objects of triples where the predicate \s-1URI\s0 is one of the parameters and the subject \s-1URI\s0 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, <[email protected]>
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.
\s-1THIS\s0 \s-1PACKAGE\s0 \s-1IS\s0 \s-1PROVIDED\s0 \*(L"\s-1AS\s0 \s-1IS\s0\*(R" \s-1AND\s0 \s-1WITHOUT\s0 \s-1ANY\s0 \s-1EXPRESS\s0 \s-1OR\s0 \s-1IMPLIED\s0 \s-1WARRANTIES\s0, \s-1INCLUDING\s0, \s-1WITHOUT\s0 \s-1LIMITATION\s0, \s-1THE\s0 \s-1IMPLIED\s0 \s-1WARRANTIES\s0 \s-1OF\s0 \s-1MERCHANTIBILITY\s0 \s-1AND\s0 \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0.