Paso a Paso

[Marco Mora]

Hola,

	soy nuevo en esto de perl, pero tengo la necesidad de hacer unos
programas en este lenguaje, solo que me esta pasando algo estra#o, tengo
una variable llamada $window, despues de que se le asigna el valor la
imprimo y funciona bien, pero un poco mas abajo en el probrama el valor
de esta variable es -1, esto si que sea modificada por el programa.

el programa va mas o menos asi:

    if (/win ([0-9]*) /) {
    $window = $1;
print " Win $window ";
    } else {
    $window = -1;
    }
    if (/ack ([0-9]*) /) {
        $ack = $1;
        if ($lastndx) {
            $ack -= $firstseq[0];
        } else {
            $ack -= $firstseq[1];
        }
    } else {
        $ack = -1;
    }

    if ($lastndx eq 0){
        print $frompl "darrow $time $sendseq\n";
        print $frompl "uarrow $time $sendseqlast\n";
        print $frompl "line $time $sendseq $time $sendseqlast\n";
    }

    if (($ack != -1) && ($lastndx eq 1)){
print " Win $window ";            <---------- Aqui ya me imprime -1
print "Ack $ack ";

...

	Alguna idea? es posible corres un programa paso paso

Saludos
__________________________________________________________________

     Marco A. Mora Arvizo                 \ _ /
   <mora@gdl.cinvestav.mx>              -= (_) =- Telecomunicaciones
                                          /   \ Cinvestav-Guadalajara
     .\//\/.         ,\/,   ,\/.//,                     ,~
     /o//o\\ ,.,.,   //o\   /o\\o\\                     |\
      |  |  /###/#\    |     |  |                      /| \
      |  |  |' '|:|    |`=.='|  |                     /_|__\
 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^""""""""""~~~~~~~~~~~~~~~~~~
___________________________________________________________________