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