Hola a [email protected]

Estoy comensando a programar en perl, y he desidido hacer un programa que al poner un numero este se convertiria en la posicion donde estaria este. por ejemplo

2 = 1
3 = 1

Lo que pasa es que yo ya he echo en visual basic 6.0 y me ha funcionado pero en perl no me funciona y no se porque?

aqui el codigo:


while (True){


   print "dijite numero: ";
   $pre = <STDIN>;
   $num1 = 0;
   $num2 = 0;
   $suma = 0;

   for ($i = 1; $i <= $pre; $i++) {
      if ($i = 2) {
         $num1 = 1;
         $num2 = 0;
      }
      $suma = $num1 + $num2;
      $num1 = $num2;
      $num2 = $suma;
   }

   print "el fibonacci es $suma\n";
}

Pruebalo así, cambie el While y el If.

#!C:\perl\bin\perl.exe -w

use strict;
use warnings;

while (1){

   print "dijite numero: ";
   my $pre = <STDIN>;
   my $num1 = 0;
   my $num2 = 0;
   my $suma = 0;

   for (my $i = 1; $i <= $pre; $i++) {
      if ($i eq 2) {
         $num1 = 1;
         $num2 = 0;
      }
      $suma = $num1 + $num2;
      $num1 = $num2;
      $num2 = $suma;
   }

   print "el fibonacci es $suma\n";
   
}