Buscar y almacenar párrafo o hasta determinado símbolo
Publicado: 2019-09-01 19:34 @857
Un saludo.
Tengo este código con el que busco hasta el final de la línea pero me gustaría que buscara hasta que se encuentre un punto, para que me extraiga un texto con coherencia.
A continuación el código:
Y lo que realmente me gustaría que mostrara es lo siguiente:
O que por lo menos muestre todo el párrafo después de Diagnostic-Code: smtp;
Muchas gracias.
Tengo este código con el que busco hasta el final de la línea pero me gustaría que buscara hasta que se encuentre un punto, para que me extraiga un texto con coherencia.
A continuación el código:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $body;
- my $smtpCode;
- $body = "Diagnostic-Code: smtp; 550-5.1.1 The email account that you tried to reach does
- not exist. Please try 550-5.1.1 double-checking the recipient's email
- address for typos or 550-5.1.1 unnecessary spaces. Learn more at 550 5.1.1
- https://support.google.com/mail/?p=NoSuchUser s35si4587705qvc.145 - gsmtp";
- foreach ( split( /\n/, $body ) ) {
- next if (/^\s*$/);
- if ( $_ =~ /^Diagnostic-Code:\ssmtp;\s(.*)$/ ) {
- $smtpCode = $1;
- print $smtpCode; # Salida: 550-5.1.1 The email account that you tried to reach does
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Y lo que realmente me gustaría que mostrara es lo siguiente:
Using text Syntax Highlighting
- 550-5.1.1 The email account that you tried to reach does
- not exist.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
O que por lo menos muestre todo el párrafo después de Diagnostic-Code: smtp;
Using text Syntax Highlighting
- 550-5.1.1 The email account that you tried to reach does
- not exist. Please try 550-5.1.1 double-checking the recipient's email
- address for typos or 550-5.1.1 unnecessary spaces. Learn more at 550 5.1.1
- https://support.google.com/mail/?p=NoSuchUser s35si4587705qvc.145 - gsmtp
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Muchas gracias.