#!/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