Using perl Syntax Highlighting
- if (m/^line vty 0/) { # si encontramos el patrón...
- for (1 .. 6) {
- my $linea = <INPUT>; # leemos una línea
- chomp $linea; # quitamos final
- push @linevty0, $linea; # agregamos
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
No nos has dado más pistas, así que no podemos decirte dónde hay que inicializar y declarar @linevty0. Ni sabemos si quieres acumular todas las líneas, o solo quieres procesarlas de seis en seis, o guardarlas en la hoja...
Como ves, si no das información, apenas podemos ayudarte.
Saludos.
