Moduł WWW::Patent::Page

Uniwersytet Gdański - Instytut Matematyki - Zakład Informatyki - Strona domowa

Obsluga modulu WWW::Patent::Page

Dzieki WWW::Patent::Page mamy dostep do najwiekszych zrodel informacyjnych o zarejestrowanych patentach, takich jak USPTO (baza amerykanska), ESPACE_EP (baza europejska) albo MICROPATENT. W wyniku zgloszenia zadania z podanym numerem patentu otrzymamy plik (pdf, html, w zaleznosci od dostepnosci) ze szczegolowymi danymi wynalazku.

WWW::Patent::Page API

W sklad API samego WWW::Patent::Page wchodzi kilka metod, z czego najwazniejsza jest:

$pdf->get_page;

Natomiast wiekszosc wartosci konfiguracyjnych przekazujemy w konstruktorze obiektu:

office => 'ESPACE_EP'; country => 'US'; format => 'pdf'; page => undef;

Mozemy oczywiscie podac wlasne wartosci tych parametrow w wywolaniu, sterujac odpowiednio zachowaniem get_page(). I tak np, zamiast domyslnego office mozemy podac inny z trojki (ESPACE_EP, USPTO, MICROPATENT), zamiast kraju - oznaczenie interesujacego nas kraju pochdzenia patentu, zamiast formatu 'pdf' mozemy zazadac innego (jesli jest dostepny), jak rowniez mozemy podac konkretna strone dokumentu ktora nas interesuje nadpisujac parametr page.

Uzycie

W podany nizej sposob mozemy wyciagnac na standardowe wyjscie pdfa z opisem patentu wynalazku SMS w technologii telekomunikacyjnej :-) (patrz tutaj).

#!/usr/bin/perl -w use strict; use warnings; use WWW::Patent::Page; use diagnostics; my $patent_browser = WWW::Patent::Page->new( doc_id => "US7,155,209", office => "USPTO", format => "pdf", page => undef, agent => "Mozilla/50 (Windows; U; Windows NT 5.0; en-US; rv:1.4b) Gecko/20030516 Mozilla Firebird/0.6", ); my $patent_response = $patent_browser->get_page("US7,155,209"); print $patent_response->content;

Dodatkowe informacje

Link do oryginalnej strony z dokumentacja w CPANie

Autor modulu i kontakt do niego

Copyright (c) 2006, Wanda B. Anon wanda_b_anon@yahoo.com

Kontakt i informacje o autorze opracowania

Autor: WS

Uniwersytet Gdański - Instytut Informatyki - Strona domowa - Perl - Wyklady
[c] Piotr Arłukowicz, materiały z tej strony udostępnione są na licencji GNU.