Foro - Perl en Español

Hola,

Tengo una archivo que presenta el siguiente formato.



Yo quisiera recuperar toda la información a partir del primer "(" y guardarla en un arreglo.

Para eso escribí if(@arreglo[$i]) =~ m/\(/
Perl toma el paréntesis como un paréntesis real y no como un patrón.

¿Podrían decirme cómo puedo indicarle a Perl que este "(" es un patrón y no un paréntesis?


Muchas gracias.

Has escrito mal la línea...

No es

if ( @arreglo[$i] ) =~ m/\(/

sino

if ( $arreglo[$i] =~ m/\(/ ) { ... }

En cuanto al paréntesis, has puesto una contrabarra delante, escapándolo, así que está bien.

Atento también al sigil: no es '@' sino '$', ya que estás recuperando un solo valor, no varios.

Hola explorer, gracias por la respuesta.

Sin embargo la instrucción "if ( $arreglo[$i] =~ m/\(/ )" no funciona. Perl sigue seleccionando toda la línea

Data1 ( 1.2 ) ( 7.8 ) ( 8.5 ) ( 10.5 )

Yo quisiera que él seleccionara todo lo que está después del "Data1"

( 1.2 ) ( 7.8 ) ( 8.5 ) ( 10.5 )

Yo intenté hacer esto al escribir:

if($array[$j])=~ /(.+)\(/){...}

pero tampoco funciona, peor que eso, esta instrucción genera un bloque; no entiendo por qué y el programa se queda en el bucle y no hace nada.

Gracias.

Perdona, no te había contestado del todo.

La expresión regular que tienes solo identifica si la línea tiene o no un paréntesis, pero no está capturando nada.

Así que hay que cambiar la expresión regular, para que lo haga.