Unni Cathrine Eiken February 2005

#Linje fra fil deles opp ved komma og lagres i @utenKomma. Verdiene hentes ut med
substr().
sub henteVerdi {
@utenKomma = split(/,/, $linjeFraFil);
push(@args, @utenKomma);
}
$ep = substr(@utenKomma[1], 12, 2);
if ($ep =~ /\)/){
$ep = split(/\)/, $ep);
}
$verdi = substr(@utenKomma[3], 4, 2);
if ($verdi =~ /\)/){
$verdi = split(/\)/, $verdi);
}
#finnHoved:
#finner hoved pred-argstrukturen
#vanligvis predikat,arg1,arg2
sub finnHoved {
}
finnEP1();
finnPred();
lagVerbStruktur();
finnARG1();
@HovedARG1 = @ARG1;
finnARG2();
@HovedARG2 = @ARG2;
fjernEP();
sub sjekkEkstra {
foreach $element (@ARG0ep){
foreach $element2 (@ARG1ep){
if ($element =~ $element2){
#print("match!\n");
finnResten();
}
}
foreach $element3 (@ARG2ep){
if ($element =~ $element3){
#print("match2!\n");
finnResten();
}
}
}
#print("ARG0ep: @ARG0ep\nARG1ep: @ARG1ep\nARG2ep: @ARG2ep\n");
}
sub finnResten {
finnPred();
finnARG1();
finnARG2();
print(OUTPUTFIL "@predikat,@ARG1,@ARG2\n");
print("@predikat,@ARG1,@ARG2\n");
fjernEP();
splice (@predikat);
splice (@ARG1);
splice (@ARG2);
sjekkEkstra();
}
94