[perl] Re: Problema con regexp

[Adrian Galindo]

On Fri, 4 Dec 1998, Adrian Galindo wrote:

> Y necesito que queden asi:
> @100@^aASHEROVA-RM^b1971^cTEOR-MAT-FIZ^dV8-P255
> @100@^aAYALACASTANARES-A^b1969^cINFORME-FINAL-ESTUDI^dP5
> @100@^aAYALAMILIAN-G^b1974^cVARIATIONAL-METHODS^dV1
> @100@^aCARRASCO-L^b1973-THESIS-U-CALIFORNIA^c^d
> @100@^aCHAGOYADESANCHE.V^b1977^cBIOCHEM-BIOPH-RES-CO^dV76-P804

La regue, en la cuarta linea es 

@100@^aCARRASCO-L^b1973^cTHESIS-U-CALIFORNIA^d

Le agregue las llaves a la linea 
        (-\w\d+){0,1}     (?#Checa la ultima palabra, puede o no estar =6)

y jala solo donde esta uno u otro, pero en las demas me da algo asi:

@100@^aCHAGOYADESANCHE.V^b1977^cBIOCHEM-BIOPH-RES-CO-V76^dP804

o sea que solo toma a partir del ultimo guion...

Gracias.

---------------------------
Adrian Galindo Hdez
Hemerobiblioteca J.J.Izquierdo
Facultad de Medicina, UNAM
Ciudad de Mexico

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : cancelacion perl