#!/usr/bin/perl -w # v4.pl - query the Perseus under Philologic parser # date: 04.10.2009 # author: neven jovanović #-------- # called from: verba.pl #-------- use strict; use URI; use LWP::UserAgent; die "Pitaj za: $0 \"termin\"\n" unless @ARGV == 1; # što ako nema argumenta na cli my $name = $ARGV[0]; my $url = URI->new('http://artflx.uchicago.edu/perseus-cgi/morph.pl'); # adresa skripta $url->query_form( 'lang' => 'latin' , 'token' => $name); # jezik latinski, riječ # print $url, "\n"; # informacija za nas my $response = LWP::UserAgent->new->get( $url ); die "Error: ", $response->status_line unless $response->is_success; # print($response->content); ovako bi naveo cijeli dokument koji dobije extract_and_sort($response->content); # šaljemo ga na vađenje dijelova sub extract_and_sort { # A simple data extractor routine while ($_[0] =~ m{<th class=lemma>(.*?)</th>}g) { # zanima nas samo lema print $1, " "; # prijavi lemu ili više njih } print "\n"; } # <th class=lemma>voco</th> #-------- end of v4.pl