Unni Cathrine Eiken February 2005

#legger lest linje inn i @prt dersom den inneholder '_PRT'
if ($linjeFraFil =~ m/'_PRT'\)/){
push(@prt, $linjeFraFil);
}
#legger lest linje inn i @index dersom den inneholder 'L-INDEX'
if ($linjeFraFil =~ m/'L-INDEX'\)/){
push(@index, $linjeFraFil);
}
#legger lest linje inn i @index dersom den inneholder 'R-INDEX'
if ($linjeFraFil =~ m/'R-INDEX'\)/){
push(@index, $linjeFraFil);
}
#legger lest linje inn i @navn dersom den inneholder 'CARG'
if ($linjeFraFil =~ m/'CARG'\)/){
push(@navn, $linjeFraFil);
}
} #slutt while-loop
close(FIL);
#Her begynner prosesseringen av info hentet ut fra inputfilen:
#fjerner ep'er som inneholder informasjon man vil se bort fra
fjernRestri();
#fjerner første ep dersom den ikke har kategori 'v'
finnCat();
#print("ARG0ep = \n@ARG0ep\nARG0verdi = \n@ARG0verdi\nARG1ep = \n@ARG1ep\nARG1verdi =
\n@ARG1verdi\nARG2ep = \n@ARG2ep\nARG2verdi = \n@ARG2verdi\n");
#finner hovedstrukturen
finnHoved();
#print("ARG0ep = \n@ARG0ep\nARG0verdi = \n@ARG0verdi\nARG1ep = \n@ARG1ep\nARG1verdi =
\n@ARG1verdi\nARG2ep = \n@ARG2ep\nARG2verdi = \n@ARG2verdi\n");
#print("@semform\n");
#print("@navn\n");
#finner predikat-argumentstruktur nr2
#sjekkEkstra();
#finnResten();
#legger til predikat-argumentstrukturene til slutt i filen som angis
open(OUTPUTFIL, ">>strukturer.txt") or die("kan ikke skrive til fil\n");
#open(OUTPUTFIL, ">>home/unni/Hovedoppgave/parse/pas-strukturer.txt") or die("kan ikke
skrive til fil\n");
sjekkEkstra();
#lager hovedstrukturen
lagStruktur();
close(OUTPUTFIL);
#her kommer alle subfunksjonene:
#henteVerdi():
#henter ut relasjonsindex og verdi til ARGx fra en linje fra
#inputfilen og lagrer dem i $ep og $verdi
93