🚀 go-pugleaf

On Tue, 30 Dec 1997, Alvaro Herrera wrote:

> 	En realidad se puede hacer simple o complicado... mira esto:
> #!/usr/bin/perl
	Ahora si:

#!/usr/bin/perl
open (DATOS, "-");
open (SALIDA, ">-");
while (<DATOS>) {
   s/'a/\xE1/g;
   s/'e/\xE9/g;
   s/'i/\xED/g;
   s/'o/\xF3/g;
   s/'u/\xFA/g;
   s/n~/\361/g;
   print SALIDA $_;}
close DATOS;
close SALIDA;
	Ojo, que los acentos son distintos en ASCII que en ANSI (por si lo
quieres usar en Windows).

"El realista sabe lo que quiere; el idealista quiere lo que sabe" (Anonimo)
-----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)