Wikipedia:Perlscript for postprosessering av Apertium
Her er eit Perlscript for postprosessering av Apertium. Bruksanvisning står i sjølve skriptet. Skriptet i seg sjølv kan brukast av alle perl-brukarar, men for å bruke Apertium må ein anten bruke Apertium sin omsetjar på wiki.apertium.org, eller laste ned og installere Apertium på eigen Linux- eller Mac-maskin.
#!/usr/bin/perl -w # Script to postedit articles translated from # Bokmål Wikipedia to Nynorsk Wikipedia. # Usage (in the directory apertium-nn-nb/): # cat nb-inputarticle | apertium -d . -u nb-nn | ./wikifix-nb-nn.pl | ... use utf8 ; @months = qw(januar februar mars april mai juni juli august september oktober november desember); @weekDays = qw(søndag måndag tysdag onsdag torsdag fredag laurdag søndag); ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(); $minute = sprintf("%2d", $minute); $minute=~ tr/ /0/; $hour = sprintf("%2d", $hour); $hour=~ tr/ /0/; $year = 1900 + $yearOffset; $tidspunkt = "$weekDays[$dayOfWeek] $dayOfMonth. $months[$month] $year, klokka $hour:$minute.\n\n"; print "\n{{språkvask}}\n\n" ; while (< >) { s/\[\[ase:/\[\[ast:/g ; # iw asturian s/\[\[dei:/\[\[de:/g ; # iw german s/\[\[ein:/\[\[en:/g ; # iw english s/\[\[gav:/\[\[ga:/g ; # iw galician? s/\[\[eit:/\[\[et:/g ; # iw estonian s/\[\[då:/\[\[da:/g ; # iw danish s/\[\[sjå:/\[\[se:/g ; # iw north sámi s/\[\[nn:/\[\[nb:/g ; # iw switch s/{{.*stubb}}/{{spire}}/g ; # s/\]\]ein /\]\]en /g ; # definite suffix -en s/\]\]eine /\]\]ane /g ; # definite suffix -ene s/\]\]eit /\]\]et /g ; # definite suffix -et print ; } print "\n\n== Kjelde ==\n\n* Omsett frå [[:nb:Hovedside|Wikipedia på bokmål]], innhenta $tidspunkt \n\n" ; print "\n[[Kategori:Omsett med Apertium]]\n" ;