Unni Cathrine Eiken February 2005

Appendix B: Ekstraktor.pl – program code
Perl script Ekstraktor.pl
#åpner fil som angis fra kommandolinjen når programmet kjøres
open(FIL, $ARGV[0]) or die("Kan ikke åpne filen!!\n");
#leser hver linje i filen og legger linjen inn i forskjellige arrayer avhengig av hva som
leses. Får lagret all informasjon som er nødvendig for å trekke ut pred-argstrukturene
while ($linjeFraFil = ) {
#legger indexverdi i @ARG0ep og arg0-verdi i @ARG0verdi dersom linjen fra filen
inneholder ARG0
if ($linjeFraFil =~ m/ARG0/){
henteVerdi();
push(@ARG0ep, $ep);
push(@ARG0verdi, $verdi);
}
#legger indexverdi i @ARG1ep og arg1-verdi i @ARG1verdi dersom linjen fra filen
inneholder ARG1
if ($linjeFraFil =~ m/ARG1/){
henteVerdi();
push(@ARG1ep, $ep);
push(@ARG1verdi, $verdi);
}
#legger indexverdi i @ARG2ep og arg2-verdi i @ARG2verdi dersom linjen fra filen
inneholder ARG2
if ($linjeFraFil =~ m/ARG2/){
henteVerdi();
push(@ARG2ep, $ep);
push(@ARG2verdi, $verdi);
}
#legger indexverdi i @ARG3ep og arg3-verdi i @ARG3verdi dersom linjen fra filen
inneholder ARG3
if ($linjeFraFil =~ m/ARG3/){
henteVerdi();
push(@ARG3ep, $ep);
push(@ARG3verdi, $verdi);
}
#legger lest linje inn i @restriksjoner dersom den inneholder 'BODY'
if ($linjeFraFil =~ m/'BODY'/){
push(@restriksjoner, $linjeFraFil);
}
#legger lest linje inn i @restriksjoner dersom den inneholder 'RSTR'
if ($linjeFraFil =~ m/'RSTR'/){
push(@restriksjoner, $linjeFraFil);
}
#legger lest linje inn i @semform dersom den bl.a inneholder 'semform'
if ($linjeFraFil =~ m/'relation'\),semform\(/){
push(@semform, $linjeFraFil);
}
#legger lest linje inn i @cat dersom den inneholder '_CAT'
if ($linjeFraFil =~ m/'_CAT'\)/){
push(@cat, $linjeFraFil);
}
#legger lest linje inn i @catsuff dersom den inneholder '_CATSUFF'
if ($linjeFraFil =~ m/'_CATSUFF'\)/){
push(@catsuff, $linjeFraFil);
}
92