🚀 go-pugleaf

On Tue, 30 Dec 1997, Rodrigo Soto wrote:

> Necesito un script para Unix que me permita arreglar los acentos de la
> forma 'e a � (en acento sobre la letra) y tanbien la enhe de 'n a �. El
> script debiera recibir desde el STDIN y tirar el resultado al STDOUT
> pues me interesa pipearlo.
	En realidad se puede hacer simple o complicado... mira esto:
#!/usr/bin/perl
open (DATOS, "-");
open (SALIDA, ">-");
while (<DATOS>) {
   s/\'a/&aacute;/g;
   s/\'e/&eacute;/g;
   s/\'i/&iacute;/g;
   s/\'o/&oacute;/g;
   s/\'u/&uacute;/g;
   s/n~/&ntilde;/g;
   print salida $_;}
close DATOS;
close SALIDA;
	Ahora es cuestion de reemplazar los &xacute; por \xHH, donde HH es
el valor correspondiente en hexadecimal de las vocales con acento y
en~es...
PD: A chile.comp.unix, donde corresponde...

"Aprender sin pensar es in�til; pensar sin aprender, peligroso" (Confucio)
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GE/S/CS  d- s:- a-- C+(++)$ USL++ P++ L++ E--- W+ N++(+) K- w--- O- M-- V?
PE-(--) Y PGP t--- 5-- X-- R- tv- b++>+++ DI++ D+(++) G e+ h! r% y- o? PS+
------END GEEK CODE BLOCK-----
Alvaro Herrera (alvherre@enlaces.c5.cl)