sostituzione con perl - Aiuto urgente

[crystal82]

Scusatemi se magari chiedo cose che ci sono già scpiegate, ma ho poco tempo perchè mi serve aiuto per un esame all'uni.

Praticamente devo costruire un programma Perl che mi permetta di cambiare dei caratteri ad un corpus di testi, tipo:

# sostituzione "riferimenti ad entità" caratteri di SGM/XML con caratteri ISO-Latin-1 e altri caratteri non-standard

while (<>) {
s/&Agrave;/À/g;
s/&Egrave;/È/g;
s/&agrave;/à/g;
s/&ccedil;/ç/g;
s/&dash;/-/g;
s/&dquo;/"/g;
s/&eacute;/é/g;
s/&egrave;/è/g;
s/&hellip;/…/g;
s/&hyphen;/-/g;
s/&igrave;/ì/g;
s/&ograve;/ò/g;
s/&p1;/./g;
s/&p2;/./g;
s/&percnt;/%/g;
s/&ugrave;/ù/g;
s/&sol;//g;
s/&to;/-/g;
s/&va;/,/g;
s/&ba;/\//g;
print
}

Ecco il mio problema è che non so come applicare questo programma al corpus, qualcuno mi può aiutare?
Grazie!

[shishii]

Ma conosci qualcosa di Perl?
di che corpus parli?
Se fai domande specifiche è più facile.