Net::DigitalNZ - Perl interface to digitalnz.org 's open data api.
The metadata available through DigitalNZ comes from content providers across the New Zealand cultural and heritage, broadcasting, education, and government sectors; as well as local community sources and individuals.
You will need to obtain your own API key from http://digitalnz.org
use Net::DigitalNZ; my $query = 'Waitangi'; my $api_key = 'get your own api key'; my $searcher = Net::DigitalNZ->new(api_key => $api_key); my $results = $searcher->search($query);
The search records API call is passed a search query and returns a corresponding result set
# simple query my $results = $searcher->search($query); # more complicated query my $results = $searcher->search($query, {key => value});
the number of results the user wishes returned
the offset from which the result list should start
the field upon which results are sorted. If sort_field isn't specified the results are sorted by relevance. The sort_field must be one of: category, content_provider, date, syndication_date, title
the direction in which the results are sorted. Can only be used in conjunction with the sort field and must be either asc or desc. If not specified, sort_direction defaults to asc
a list of facet fields to include in the output. See the note on facets below for more information.
the number of facet results to include. Only used if the facets parameter is specified, and defaults to 10.
the offset from which the facet value list should start. Only used if the facets parameter is specified, and defaults to 0.
use Net::DigitalNZ; my $query = 'Waitangi'; my $api_key = 'get your own api key from http://digitalnz.org'; my $searcher = Net::DigitalNZ->new(api_key => $api_key); my $results = $searcher->search($query, { start=>10, num_results => 2} ); print $results->{result_count} . " items found\n"; foreach my $r (@{ $results->{results} } ) { print $r->{id} . ': '. $r->{title} ."\n"; }
More info at http://www.digitalnz.org/developer/api-docs/search-records
The search results will return the following elements:
the value of the num_results parameter sent to the API method
the total number of results matching this search
the value of the start parameter sent to the API method
the search results data. The results element will contain 0 or more result elements, each containing the following elements:
a string containing one or more category names separated by a comma (e.g. Images, Web pages)
the institution holding the content to which the record refers
a date associated with the record (e.g. 1996-01-01T00:00:00.000Z). This field may be empty
text describing the record
the url for the content on the content provider's website
the internal DigitalNZ identifier (used by the Get Metadata API)
the url to the DigitalNZ API method that will return the full metadata for the record
the url that will redirect users directly to the content_url
the url of for a thumbnail image of the content to which the record refers. This field may be empty.
the facet result data (if requested). The facets element will contain one facet-field element corresponding to each facet requested. Each facet-field element contains a sorted list of value elements that are made up of a name and num-results element. See the note below for more information on facets.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.
http://github.com/Br3nda/perl-net-digitalnz/tree/master
Brenda Wallace <brenda@wallace.net.nz> http://br3nda.com
Based heavily on Net::Twitter by Chris Thompson
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR, OR CORRECTION.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
To install Net::DigitalNZ, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::DigitalNZ
CPAN shell
perl -MCPAN -e shell install Net::DigitalNZ
For more information on module installation, please visit the detailed CPAN module installation guide.