Hola a todos.
Soy nuevo en Perl, y tengo una consulta. Espero puedan ayudarme.
Tengo las siguiente líneas (nunca son igual, algunas tienen más campos, otras menos):
-Encuesta=Completa,Telefono=Motorola,Televisor=Sony,Computadora=IBM,Ropa=Levis
-Encuesta=Completa,Telefono=Samsung,Televisor=LG,Computadora=HP,Ropa=Lacosta,Auto=Ford,Auriculares=Sony
Y lo que necesito es ver todo ese contenido luego del primer '=' en un campo.
O sea, debería quedar así:
@Datos=Completa,Telefono=Motorola,Televisor=Sony,Computadora=IBM,Ropa=Levis
@Datos=Completa,Telefono=Samsung,Televisor=LG,Computadora=HP,Ropa=Lacosta,Auto=Ford,Auriculares=Sony
Tengo hecho lo siguiente:
# array campos
$num_elementos = split( $valor, campos, "=" )
if ( match( campos , "-Encuesta" ) ) ...