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" ;