Los molesto para consultarles cómo puedo "emular" en Perl el siguientes comando de UNIX.
Using bash Syntax Highlighting
Esto me guarda la línea siguiente a lo buscado.
-
- Publicidad
Consulta sobre regex
4 mensajes
• Página 1 de 1
Consulta sobre regex
por situ » 2012-10-16 20:51 @911
- situ
- Perlero nuevo
- Mensajes: 358
- Registrado: 2007-04-09 01:44 @114
Publicidad
Re: Consulta sobre regex
por explorer » 2012-10-17 04:16 @219
La presencia del -A1 lo complica un poco, y si además hay que imitar la salida del separador, pues más todavía.
Seguro que se puede hacer de otra manera.
Using bash Syntax Highlighting
perl -nE 'if (/^acceso primero/) { if (!$e) { print "--\n" if $n++; } print; $e++; } else { if ($e) { print; $e = 0; } }' config.txt
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Seguro que se puede hacer de otra manera.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Consulta sobre regex
por situ » 2012-10-19 08:44 @405
¿Cómo puedo hacer para que me guarde toda la información hasta que encuentre una palabra en especial?
- situ
- Perlero nuevo
- Mensajes: 358
- Registrado: 2007-04-09 01:44 @114
Re: Consulta sobre regex
por explorer » 2012-10-19 10:55 @496
Para guardar la información te vale con redirigir la salida a un archivo. Y para parar, yo creo que sería poniendo un exit(); en el if() que compruebe la existencia de esa palabra.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 19 invitados