WWW::Patent::Page 0.107.0

WWW::Patent::Page is a Perl module to get patent documents from a WWW source (e.g. JP->Eng translations in HTML from JPO, complete US applications and grants from (USPTO), pdf documents from the esp@cenet at the European Patent Office (ESPACE_EP), and

SYNOPSIS

Please see the test suite for working examples in t/ . 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

$ perl get_patent.pl US6123456 > US6123456.pdf &

$ perl -wT get_JPO_patent_translation_to_english.pl "JPH09-123456A" > JPH09-123456A.zip &

( see examples/JPH09-123456A.zip for an html formatted, machine translated, Japanese patent document. )

(command line interfaces are included in examples/ )

http://www.yourdomain.com/www_get_patent_pdf.pl
http://www.yourdomain.com/www_get_JPO_patent_translation_to_english.pl

(web fetchers are included in examples/ )

Typical usage in perl code:

use WWW::Patent::Page;

print $WWW::Patent::Page::VERSION,"n";

my $patent_browser = WWW::Patent::Page->new(); # new object

my $document1 = $patent_document->get_page('6,123,456');
# defaults:
# office => 'ESPACE_EP',
# country => 'US',
# format => 'pdf',
# page => undef ,
# and usual defaults of LWP::UserAgent (subclassed)

my $document2 = $patent_document->get_page('US6123456',
office => 'ESPACE_EP' ,
format => 'pdf',
page => 2 , #get only the second page
);

my $pages_known = $document2->get_parameter('pages'); #how many total pages known?

Product's homepage

Requirements:

· Perl