Sustitucion de texto

[raul segura acevedo]

On Tue, 25 Nov 1997, Adrian Galindo wrote:

> 	Hola lista. Ahora, despues de una semana de estar intentando, me
> rindo. Ya le busque de mil maneras y no puedo. 
> 	Sucede que tengo un archivo como entrada con la siguiente forma:

> @080aspartylglucosaminidase; lysosomal storage diseases;
>     malocclusion; dental arch; tooth|
> @090FOLLOW-UP; ASPARTYLGLYCOSAMINURIA; GLYCOASPARAGINASE; 
>     MACROGLOSSIA; MUTATIONS; FEATURES; DISORDER; DISEASE; FAMILY|

> y necesito necesito que quede la salida con una sustitucion de cada punto
> y coma (;) por la etiqueta del principio. Algo asi:

> @080aspartylglucosaminidas
> @080lysosomal storage disease
> @080malocclusion
> @080dental arch
> ...

> 	El problema es que con el while (<ARCHIVO>) el programa lee el
> archivo linea por linea y como le puse la condicion 

> if ($linea =~ /\@080/) {
>   sustituye los 80's 
> } elsif ($linea =~ /\@090) {
>   sustituye los 90's
> }  
[...]

huh?
por que no?

$tipo=0 if $linea =~ /^\@/;
if ($tipo == 80 || $linea =~ /\@080/) {
  $tipo=80;
  sustituye los 80's 
} elsif ($tipo == 90 || $linea =~ /\@090) {
  $tipo=90;
  sustituye los 90's
}  


-- 
Raul Segura Acevedo  Chemistry Institute   raul@turing.iquimica.unam.mx
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Shit makes the flowers grow and that's beautiful