W3C home > Mailing lists > Public > www-archive@w3.org > July 2001

SOAP RDF query client -- wordnet demo

From: Dan Brickley <danbri@w3.org>
Date: Thu, 26 Jul 2001 15:53:04 -0400 (EDT)
To: <www-archive@w3.org>
Message-ID: <Pine.LNX.4.30.0107261548330.4804-300000@tux.w3.org>

For reference, this rdf query over SOAP demo seems to work now :)

see http://ilrt.org/discovery/2001/06/rdfperl/ for supporting classes, ie.
the Squish wrapper for Eric's Perllib query engine. Attached is client
code (also below) and cgi script that provides the service. Very much a
rough cut, but promising...

--danbri

#!/usr/bin/perl -w

use SOAP::Lite;

my $query = '
SELECT ?x, ?l, ?c
FROM     http://xmlns.com/wordnet/1.6/Job
WHERE
  (web::type ?x rdfs::Class)
  (rdfs::label ?x ?l)
  (rdfs::description ?x ?c)
USING web FOR http://www.w3.org/1999/02/22-rdf-syntax-ns#
       rdfs FOR http://www.w3.org/2000/01/rdf-schema#
';

my $data = 'http://xmlns.com/wordnet/1.6/Job';

my $soap = SOAP::Lite
  -> uri('http://rdfweb.org/RDF/RDFWeb/SOAPDemo')
  -> proxy('http://fireball.dyndns.org/cgi-bin/soap');

#my $r = $soap->squish2algae($query, $data)->result(); # works :)
#my $r = $soap->textsquish($query, $data)->result(); # works :)
my $r = $soap->squish($query, $data)->result(); # get resultset

print "Result is $r \n\n";

my @res = @{$r};

foreach my $row (@res) {
  my %h = %{$row } ;
  foreach (keys %h) {
	print " $_ -> ", $h{$_}, " \n";
  }
}


Received on Thursday, 26 July 2001 15:53:04 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Wednesday, 7 November 2012 14:17:13 GMT