1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl
# This example creates an OpenURL address from a parsed reference.
use Biblio::Citation::Parser::Standard;
use Biblio::Citation::Parser::Utils;
use URI::OpenURL;
$ref = "Jewell, M (2002) Making Examples for Reference Parsers. Journal of Example Writing 3:100-150.";
print "- Parsing $ref\n";
my $cit_parser = new Biblio::Citation::Parser::Standard;
$metadata = $cit_parser->parse($ref);
print "- Creating OpenURL (BaseURL set to http://paracite.eprints.org/cgi-bin/openurl.cgi)\n";
print URI::OpenURL->new('http://paracite.eprints.org/cgi-bin/openurl.cgi')->referent(%$metadata)->as_string();
my($openurl,@errors) = create_openurl($metadata);
print "http://paracite.eprints.org/cgi-bin/openurl.cgi?".$openurl."\n";
|
