rdfDB(ID:8296/)

0
insert into test1 (name DanC 'Dan Connolly')
0
select ?x from test1 where (worksFor ?x W3C) (name ?x ?y)
?x = DanC ?y = 'Dan Connolly'
?x = DanB ?y = 'Dan Brickley'
0


Close
Example
#!/usr/bin/perl

use DBI;
use CGI qw(:standard);

print header;
my $term = param('term');
my $db   = param('db');

my  $dbh= DBI->connect("DBI:rdfdb:localhost", "root", 0);


print "
All arcs out of ".$term." in database ".$db."
\n";
print "\n";

my $query = $dbh->prepare("select ?prop ?value from dmoz where (?prop ".$term." ?value)  output tab-limited");
$query->execute();
$query->bind_columns(\$prop, \$value);
while ($query->fetch()) {
    $pv = $value;
    $value =~ s/#/\%23/g;
    print "\n";     
}
$query->finish();

print "
Property	Value
".$prop."	".$pv."
";

print "
All arcs into ".$term." in database ".$db."
\n";
print "\n";

$query = $dbh->prepare("select ?prop ?value from dmoz where (?prop ?value ".$term.")  output tab-limited");
$query->execute();
$query->bind_columns(\$prop, \$value);

while ($query->fetch()) {
    $pv = $value;
    $value =~ s/#/\%23/g;
    print "\n";     
}
$query->finish();
print "
Property	Value
".$prop."	".$pv."
";


Close
Listing 1