Esta correcta esta condicion?

[gperdomo]

Estimados Amigos, tengo dudas con respecto a esta condicion en Perl, ambas variables son numericas, estoy haciendo un comparacion simple. Podrian por favor revisarlo.

saludos, Gustavo.-

Código:

if ($cheque==$cheque2 && amount==amount2)
{
print  "$cheque2 $amount2\n";
}

[monoswim]

amount==amount2

Le falta las $ para nombrarlas como variables que son...

Saludos

[gperdomo]

ok pero igual esta rutina no me funciona, me mantiene los valores fijos del primer bucle, lo que estoy es tratando de anidar esto.

Código:

while($linea = <unReconAtlas>) { 
$cheque=substr($linea,0,10); 
$amount=substr($linea,11,14); 
while($linea2 = <unReconBank>) { 
$cheque2=substr($linea2,0,10); 
$amount2=substr($linea2,11,14); 
if ($cheque eq $cheque2 && $amount eq $amount2){ 
print OUT "$cheque2 $amount2\n"; 
} 
} 

}

[monoswim]

pues no parece haber nada de malo en ese if !!!

Debería de funcionar, en la oficina tengo un ejemplo parecido, el luenes me fijo como era...

Saludos

[gperdomo]

A la final logre que funcionara colocando la estructura de control de esta manera. Nose porque de la otra forma no funciono, simpre dejaba los valores fijos en el primer bucle.

Código:

foreach $linea (@registros){
				
				
				foreach $linea2  (@reg) {
					
					
					if (substr($linea,0,10) eq substr($linea2,0,10) && substr($linea,11,14) eq substr($linea2,11,14)){

						print OUT "$linea2";

					}

				}

			}

[monoswim]

La verdad que si es raro, ya que estás haciendo lo mismo...

Que cosas no ?

Saludos