Moduł WWW::Patent::Page
Uniwersytet Gdański - Instytut Matematyki - Zakład Informatyki - Strona domowaObsluga 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