1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl -w
use SOAP::Lite;
use Data::Dumper;
my $query = "Jewell, M (2002) Making Examples for Reference Parsers. Journal of Example Writing 3:100-150.";
my $baseurl = "http://paracite.eprints.org/cgi-bin/openurl.cgi?";
my $result = SOAP::Lite
-> service("http://paracite.eprints.org/paracite.wsdl")
-> doReferenceParse($query, $baseurl);
my $metadata = $result->{metadata};
my $openurl = $result->{openURL};
print "Metadata for $query:\n";
print Dumper($metadata);
print "OpenURL:\n";
print Dumper($openurl);
|
