#!/usr/bin/perl -w
# verba.pl - open a file, read a wordlist one word at a time
# date: 05.10.2009 
# author: neven jovanović
#--------
# syntax: ./verba.pl foo.txt
# calls: v4.pl
#--------


use strict;

die "Sintaksa naredbe mora biti: $0 \"ime neke datoteke\"\n" unless @ARGV == 1; 
# sintaksa: verba.pl regcro.verba

my $lista = $ARGV[0];

open FILE, $lista or die $!;# tu se otvara datoteka s riječima

while (<FILE>) {
# u perl ugrađena optimizacija, gornje je kratica za (defined($_ = <FILE>))
    chomp; # odreže kraj, koji je novi red
my $output = `./v4.pl $_`;
# zove skriptu v4.pl koja ispituje parser na netu
if (length($output) <= 1)
# što ako je rezultat jedan znak ili manje
{
        print "Lemma $. deest in lexico.\n\n";
}
else
{
        print "Lemma $.:  $output\n";
}
# uhvati rezultat skripte v4.pl s netom pročitanim argumentom
    
}
print "$. verba enumerata.\n";

close FILE; # nakon open slijedi close
#-------- end of verba.pl