Un while() de perl

[Hue-Bond]

$ cat decimals.pl
#!/usr/bin/perl
$num = 0.8;
while ($num < 1.1) {
        print ("\$num vale $num\n");
        $num = $num + 0.1;
        print ("y despu�s $num\n\n");
}

         Trivial, �verdad?

$ ./decimals.pl
$num vale 0.8
y despu�s 0.9

$num vale 0.9
y despu�s 1

$num vale 1
y despu�s 1.1

         Todo OK.

$ cat decimals2.pl 
#!/usr/bin/perl
$num = 0.7; #        <---- Esta l�nea cambia
while ($num < 1.1) {
        print ("\$num vale $num\n");
        $num = $num + 0.1;
        print ("y despu�s $num\n\n");
}

$ ./decimals2.pl 
$num vale 0.7
y despu�s 0.8

$num vale 0.8
y despu�s 0.9

$num vale 0.9
y despu�s 1

$num vale 1
y despu�s 1.1

$num vale 1.1
y despu�s 1.2

         Oh vaya! Si inicializamos $num a 0.7 resulta que cuando llega a
     1.1, la condici�n del while sigue siendo cierta!. perl_5.005.03-6.


-- 
 Just do it.

David Serrano <[EMAIL PROTECTED]>                Linux 2.2.15 - Reg. User #87069
Hi! I'm a .signature virus!  Copy me into your ~/.signature to help me spread!

pgpbRoGZT385u.pgp
Description: PGP signature