WWW::Patent::Page::Response
object holding a patent page or document (e.g. htm, pdf, tif) from selected source (e.g. from United States Patent and Trademark Office (USPTO) website or the European Patent Office (ESPACE_EP), as constructed by WWW::Patent::Page, in passing analogy to LWP::UserAgent and HTTP::Response
Please see the test suite for working examples. The following is not guaranteed to be working or up-to-date.
$ perl -I. -MWWW::Patent::Page -e 'print $WWW::Patent::Page::VERSION,"\n"' 0.02 use WWW::Patent::Page; print $WWW::Patent::Page::VERSION,"\n"; my $patent_browser = WWW::Patent::Page->new(); # new object my $document1 = $patent_document->get('6,123,456'); # defaults: # office => 'ESPACE_EP', # country => 'US', # format => 'pdf', # page => 'all', # and usual defaults of LWP::UserAgent (subclassed) my $document2 = $patent_document->provide_doc('US6123456', office => 'ESPACE_EP' , format => 'pdf', page => 2 , ); my $pages_known = $patent_document->pages_available( # e.g. TIFF document=> '6123456', );
Intent: Use public sources to retrieve patent documents such as TIFF images of patent pages, html of patents, pdf, etc. Expandable for your office of interest by writing new submodules..
See also SYNOPSIS above Standard process for building & installing modules: perl Build.PL ./Build ./Build test ./Build install
Examples of use:
$patent_browser = WWW::Patent::Page->new( doc_id => 'US6,654,321(B2)issued_2_Okada', office => 'ESPACE_EP' , format => 'pdf', page => 'all' , agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.4b) Gecko/20030516 Mozilla Firebird/0.6', ); $patent_response = $patent_browser->get('US6,654,321(B2)issued_2_Okada');
Pre-alpha release, to gauge whether the perl community has any interest.
Code contributions, suggestions, and critiques are welcome.
Error handling is undeveloped.
By definition, a non-trivial program contains bugs.
For United States Patents (US) via the USPTO (us), the 'kind' is ignored in method provide_doc
Email me at Wanda_B_Anon@yahoo.com with example scripts to dissect.
Wanda B. Anon Wanda_B_Anon@yahoo.com
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
To the users of WWW::Patent::Page
perl(1).
Construct an empty object with appropriate variables as the keys referring to the content retrieved by Page with its UserAgent helper.
Access parameters, including content, programmatically (politely).
a classic
the message
not failed
provides the content (pdf, htm, etc.) when available
To install WWW::Patent::Page, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::Patent::Page
CPAN shell
perl -MCPAN -e shell install WWW::Patent::Page
For more information on module installation, please visit the detailed CPAN module installation guide.