Más de expresiones regulares
Publicado: 2015-01-28 09:42 @446
Hola.
Me estoy iniciando en Perl y quiero filtrar algunas líneas de una salida, esto es: un resumen, puesto que la salida es más larga.
Quiero: La primera línea que coincida con RXOTG-321.
Este sería el resultado final:
Espero que alguien me ayude:
Me estoy iniciando en Perl y quiero filtrar algunas líneas de una salida, esto es: un resumen, puesto que la salida es más larga.
Using text Syntax Highlighting
A3/APT "M#DEL5R 711BIPA" 288 150128 1113
RADIO X-CEIVER ADMINISTRATIN
TRANSCEIVER GROUP FAULT
MO RSITE ALARM SLOGAN
RXOTG-321 00083#COLLAD#D BTS INTERNAL
A3/APT "M#DEL5R 711BIPA" 291 150128 1119
DIGITAL PATH FAULT SUPERVISION
DIP DIPEND FAULT SECTION HG DATE TIME
RBLT118 RDI 150128 111915
RADIO X-CEIVER ADMINISTRATIN
TRANSCEIVER GROUP FAULT
MO RSITE ALARM SLOGAN
RXOTG-321 00083#COLLAD#D BTS INTERNAL
A3/APT "M#DEL5R 711BIPA" 291 150128 1119
DIGITAL PATH FAULT SUPERVISION
DIP DIPEND FAULT SECTION HG DATE TIME
RBLT118 RDI 150128 111915
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Quiero: La primera línea que coincida con RXOTG-321.
Este sería el resultado final:
Using text Syntax Highlighting
A3/APT "M#DEL5R 711BIPA" 288 150128 1113 ALARM SLOGAN BTS INTERNAL
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Espero que alguien me ayude:
Using perl Syntax Highlighting
- @output=$telnet->cmd('hostname');
- @line_split = split (/\n/, $output);
- foreach my $line (@line_split)
- {
- if($line_split=~/RXOTG-X/)#Mi conocimiento no llega a más. No sé cómo imprimir la línea anterior
- {
- print ("Line: $line\n");
- }
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4