0

Estoy trabajando con una funcion que me permita extraer texto de un buzon de correo pero a pesar de que el buzon es cargado correctamente y el texto que busco a traves de un condicional aparentemente correcto si luego de la condicion elijo imprimir el resultado no lo imprimi ya que la condicion no se cumple, el codigo que aparece en el texto son 3 numeros más un espacion y 3 numeros mas separados por puntos, algo que se conoce como codigo dsn, ejemplo: 550 5.1.1 a continuación el codigo:

foreach(split(/\n/, $body ) ){
next if(/^\s*$/);

if($_ =~ /^(\d{3}\s\d{1}\.\d{1}\.\d{1})/ig ){
	 $smtpCode = $1;
         print $smtpCode;
}

Cabe destacar que los uses y las variables están inicializadas.

Edicion:

Esa primera validacion logre repararla pero tengo otras tantas en la que tengo que depurar lo mas posible la data y son las siguientes:

foreach(split(/\n/, $body ) ){
next if(/^\s*$/);

	if($_ =~ /^(\d{3}\s\d{1}\.\d{1}\.\d{1})/ig ){
		$smtpCode = $1;
	}elsif($_ =~ /^\d{3}\s\d{1}\.\d{1}\.\d{1}\s(.*)$/ig ){
		$smtpCodeDetail = $1;
	}elsif($_ =~ /^Final-Recipient:\sRFC822;\s([A-z0-9_\-\.]+@[A-z0-9_\-\.]+\.\w+)+$/ig ){
	 $email = $1;
	}elsif($_ =~ /^Action:\s(\w+)$/){
	 $smtpAction = $1;
	}elsif($_ =~ /^Status:\s(\d\.\d\.\d)$/){
	 $smtpStatus = $1;
	}elsif($_ =~ /^Diagnostic-Code:\sSMTP;\s(.*)$/){
	 $smtpDiagnosticCode = $1;

	    if(($smtpDiagnosticCode =~ /(550\sSC\-[\d]{3})/ ) or ($smtpDiagnosticCode =~ /(550\sOU\-[\d]{3})/) or ($smtpDiagnosticCode =~ /(550\sDY\-[\d]{3})/) or ($smtpDiagnosticCode =~ /(421\sRP\-[\d]{3})/ ) ){
						$ipTempFiler = 1;
	}
	}elsif($_ =~ /^Remote-MTA:\sDNS;\s([A-Za-z0-9\.\-]+)$/){
		$smtpRemoteMta = $1;
	}elsif($_ =~ /^Last-Attempt-Date:\s[A-Za-z]+\,\s(\d{1,2}\s[A-Za-z]+\s\d{4}\s[0-9:]{8}\s[0-9\-]{5})/ig ){
		$smtpLastAttemptDate = convert_date($1);
	}elsif($_ =~ /^X-RSidusuario:\s(\d+)$/){
		$usuarioId = $1;
	}elsif($_ =~ /^X-RS-idadmin:\s(\d+)$/){
		$adminId = $1;
	}elsif($_ =~ /^X-RS-idcamp:\s(\d+)$/){
		$campanaId = $1;
	}elsif($_ =~ /^X-RS-idlist:\s(\d+)$/){
		$listaId = $1;
	}

1 respuesta 1

2
  • Los paréntesis del primer if, sobran
  • La parte "$_ =~ " también sobra, pero bueno, se puede dejar
  • Los indicadores "/ig" sobran completamente
  • Los cuantificadores "{1}" sobran
  • En el patrón, el carácter '^' indica que el patrón debe coincidir con el inicio de la línea. Si no está al principio, no encuentra el resto.
9
  • Repare la validacion y me paso hermano, eres un crack pero tengo como 10 validaciones mas, si te las coloco todas me das una mano con eso? Commented el 6 dic. 2018 a las 14:00
  • Pasa por la validacion pero la variable me la muestra vacia. Commented el 6 dic. 2018 a las 14:19
  • Disculpe amigo mala, mi es lo malo de ser novato, no quite todo lo que me dijiste e igual no muestra nada. Commented el 6 dic. 2018 a las 14:36
  • Mira como reduci el codigo: foreach(split(/\n/, $body ) ){ $numero = $numero + 1; print $numero . "\n"; next if /^\s*$/; #Elimine parentesis if(/^\d{3}\s\d\.\d\.\d/ ){ $smtpCode = $1; print $smtpCode; Commented el 6 dic. 2018 a las 14:56
  • Este sitio es muy incómodo para mandar código, como estás viendo. Te podemos atender mejor en el sitio perlenespanol.com Commented el 6 dic. 2018 a las 16:07

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.