Utente:Alfiobot/metti province.pl

Script per aggiungere wikilink alle province italiane. Sostituisce i testi come (RM) in ([[Provincia di Roma|RM]]). Legge da stdin e scrive su stdout.

# File con i nomi delle provincie
$province_file = "province.txt";

# Carica il file
%province = ();
open( PROV, $province_file) || die "Cannot read $province_file: $!\n";
while (<PROV>)
	{
	chomp;
	($nome, $sigla) = split /\|/;
	$province{$sigla} = $nome;
	}
close (PROV);

# Process stdin
while(<>)
	{
	while( /\(([A-Z][A-Z])\)/ )
		{
		$sigla = $1;
		$replace = $province{$sigla};
		
		s/\(([A-Z][A-Z])\)/([[${replace}|$sigla]])/;
		}
	print;
	}

Il datafile "province.txt" è il seguente:

Provincia di Milano|MI
Provincia di Roma|RM
Provincia di Napoli|NA
Provincia di Torino|TO
Provincia di Bari|BA
Provincia di Palermo|PA
Provincia di Brescia|BS
Provincia di Salerno|SA
Provincia di Catania|CT
Provincia di Bergamo|BG
Provincia di Firenze|FI
Provincia di Bologna|BO
Provincia di Genova|GE
Provincia di Caserta|CE
Provincia di Padova|PD
Provincia di Verona|VR
Provincia di Varese|VA
Provincia di Venezia|VE
Provincia di Treviso|TV
Provincia di Vicenza|VI
Provincia di Lecce|LE
Provincia di Cosenza|CS
Provincia di Foggia|FG
Provincia di Messina|ME
Provincia di Modena|MO
Provincia di Perugia|PG
Provincia di Taranto|TA
Provincia di Reggio Calabria|RC
Provincia di Cuneo|CN
Provincia di Cagliari|CA
Provincia di Como|CO
Provincia di Udine|UD
Provincia di Pavia|PV
Provincia di Latina|LT
Provincia di Frosinone|FR
Provincia di Trento|TN
Provincia di Bolzano|BZ
Provincia di Reggio Emilia|RE
Provincia di Ancona|AN
Provincia di Agrigento|AG
Provincia di Avellino|AV
Provincia di Trapani|TP
Provincia di Alessandria|AL
Provincia di Brindisi|BR
Provincia di Siracusa|SR
Provincia di Potenza|PZ
Provincia di Parma|PR
Provincia di Pisa|PI
Provincia di Chieti|CH
Provincia di Mantova|MN
Provincia di Lucca|LU
Provincia di Catanzaro|CZ
Provincia di Ascoli Piceno|AP
Provincia di Forlì-Cesena|FC
Provincia di Pesaro e Urbino|PU
Provincia di Ravenna|RA
Provincia di Ferrara|FE
Provincia di Novara|NO
Provincia di Cremona|CR
Provincia di Livorno|LI
Provincia di Sassari|SS
Provincia di Arezzo|AR
Provincia di Lecco|LC
Provincia di Macerata|MC
Provincia dell'Aquila|AQ
Provincia di Pescara|PE
Provincia di Ragusa|RG
Provincia di Viterbo|VT
Provincia di Teramo|TE
Provincia di Benevento|BN
Provincia di Caltanissetta|CL
Provincia di Rimini|RN
Provincia di Savona|SV
Provincia di Pistoia|PT
Provincia di Pordenone|PN
Provincia di Piacenza|PC
Provincia di Siena|SI
Provincia di Rovigo|RO
Provincia di Trieste|TS
Provincia di Campobasso|CB
Provincia di Prato|PO
Provincia di Terni|TR
Provincia della Spezia|La SP
Provincia di Grosseto|GR
Provincia di Belluno|BL
Provincia di Asti|AT
Provincia di Imperia|IM
Provincia di Matera|MT
Provincia di Lodi|LO
Provincia di Massa-Carrara|MS
Provincia di Biella|BI
Provincia di Enna|EN
Provincia di Sondrio|SO
Provincia di Vercelli|VC
Provincia di Crotone|KR
Provincia di Vibo Valentia|VV
Provincia di Oristano|OR
Provincia di Nuoro|NU
Provincia del Verbano Cusio Ossola|VB
Provincia di Rieti|RI
Provincia di Olbia-Tempio|OT
Provincia di Gorizia|GO
Provincia di Carbonia-Iglesias|CIAO
Provincia del Medio Campidano|MD
Provincia di Isernia|IS
Provincia dell'Ogliastra|OG