Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Soy nueva en Perl.. ¡A ver si me podéis ayudar con un problema!Tengo una tabla con X líneas, las líneas tienen distinta longitud.
Ejemplo de una línea:
Using text Syntax Highlighting
Abnormalities(C0000768) NAT2(10) CDH2(1000) SHFM3(100049542) MIR874(100126343)
Lo que quiero hacer es "limpiar" toda la tabla, quitando los códigos que están entre paréntesis.
Estoy intentado lo siguiente:
Using perl Syntax Highlighting
- use strict;
- open( FHANDLE, "Disease.txt" );
- while (<FHANDLE>) {
- chomp;
- my @linea = split( /\t/, $_ );
- my @linea2= split("(", $linea[1]); ·# A partir de aquí ya no sé cómo continuar
- print "@linea2\n";
- }
- close(FHANDLE);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
No sé si he explicado bien el problema...
¡¡¡¡¡Muchas gracias por vuestra ayuda!!!!!
