Scusate la domanda da completo inesperto. Ho uno script Perl che mi va a creare, modificando un file .txt con le RE, un documento xml:
codice:
while (<>) {
s/^([^\s]+) (.+)$/<token forma="$1" lemmaPos="$2"\/>\n/;
print
}
E fin qui tutto ok (il codice l'ho ottenuto effettuando ricerche sul forum, in quanto di Perl non so niente).
Avrei però bisogno di fare in modo che venissero modificate così soltanto le prime 500 parole del testo, e per le restanti venisse applicato un altro criterio, ma non so come fare. Ho tentato così ma niente da fare:
codice:
$numero=0;
while (<>) {
$numero=$numero+1;
If ($numero<500){
s/^([^\s]+) (.+)$/<token forma="$1" lemmaPos="$2"\/>\n/;
print
}
else {
... restante blocco...
print
}
}
Dove sto sbagliando? Scusate la domanda da deficiente ma è molto importante e devo risolvere al più presto...
mille grazie
franz