Skip to main content
Correcciones ortográficas, marcas de formateo, formateo del código
Origen Enlace

Buscar texto hasta determinado símbolo - Perl

Un saludo,.

Tengo este código con el que busco hasta el final de la linealínea pero me gustaría que busquebuscara hasta que se consigueencuentre un punto, para que me extraiga un texto con coherencia.

#!/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
                
            }
        }

#!/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
                
            }
        }

O que por lo menos muestre todo el parrafo despuespárrafo después de Diagnostic-Code: smtp;

Buscar texto hasta determinado símbolo - Perl

Un saludo,

Tengo este código con el que busco hasta el final de la linea pero me gustaría que busque hasta que se consigue un punto para que me extraiga un texto con coherencia.

#!/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
                
            }
        }

O que por lo menos muestre todo el parrafo despues de Diagnostic-Code: smtp;

Buscar texto hasta determinado símbolo

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.

#!/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
                
            }
        }

O que por lo menos muestre todo el párrafo después de Diagnostic-Code: smtp;

Origen Enlace

Buscar texto hasta determinado símbolo - Perl

Un saludo,

Tengo este código con el que busco hasta el final de la linea pero me gustaría que busque hasta que se consigue un punto para que me extraiga un texto con coherencia.

A continuación el código:

#!/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
                
            }
        }

Y lo que realmente me gustaría que mostrara es lo siguiente:

550-5.1.1 The email account that you tried to reach does
not exist.

O que por lo menos muestre todo el parrafo despues de 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