Class-RDF
view release on metacpan or search on metacpan
eg/query.cgi view on Meta::CPAN
#Class::RDF->set_db( "dbi:mysql:rdf", "sderle", "" );
Class::RDF->set_db("dbi:SQLite:/www/frot.org/sandigeo/register.db");
Class::RDF->define( %ns );
my $cgi = CGI->new;
my $pred = Class::RDF::Store->db_Main->selectcol_arrayref(q[
select distinct value from node, statement
where node.id = statement.predicate
order by value asc ]);
my $dropdown = $cgi->popup_menu( -name => "predicate", -values => $pred );
print $cgi->header, <<End;
<html>
<body>
<form>
$dropdown <input type=submit />
</form>
<hr />
End
( run in 1.844 second using v1.01-cache-2.11-cpan-364913b4093 )