Foro - Perl en Español

por **leonardocollado** » 2012-11-29 12:56 @580

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
print "Ingrese un numero en base 2: ";
$num   = <stdin>;
$b4    = 0;
$pot11 = 1;
$pot1  = 1;
$sum1  = 0;
$b8    = 0;
$pot22 = 1;
$pot2  = 1;
while ( $num != 0 ) {
    $a    = int( $num / 10 );
    $d    = $num - 10 * $a;
    $num  = $a;
    $sum1 = $sum1 + $d * $pot1;
    $sum2 = $sum2 + $d * $pot2;
    $pot1 = $pot1 * 2;
    $pot2 = $pot2 * 2;
    if ( $pot1 == 4 ) {
        $b4    = $b4 + $sum1 * $pot11;
        $pot11 = $pot11 * 10;
        $pot1  = 1;
        $sum1  = 0;
    }
    if ( $pot2 == 8 ) {
        $b8    = $b8 + $sum2 * $pot22;
        $pot22 = $pot22 * 10;
        $pot2  = 1;
        $sum2  = 0;
    }
}
$b4 = $b4 + $sum1 * $pot11;
$b8 = $b8 + $sum2 * $pot22;
print "El numero en base 4 es $b4\n\nEl munero en base 8 es $b8\n\n"
$b16  = 0;
$p3   = 1;
$sum3 = 0;
while ( $num = !0 ) {
    $a1   = int( $num / 10 );
    $d1   = $num - 10 * $a1;
    $num  = $d1;
    $sum3 = $sum3 + $d1 * $pot3;
    $pot3 = $pot3 * 2;
    if ( $p3 == 16 ) {
        if ( $sum3 == 10 ) {
            $sum3 = a;
        }
        if ( $sum3 = 11 ) {
            $sum3 = b;
        }
        if ( $sum3 == 12 ) {
            $sum3 = c;
        }
        if ( $sum3 == 13 ) {
            $sum3 = d;
        }
        if ( $sum3 == 14 ) {
            $sum3 = e;
        }
        if ( $sum3 == 15 ) {
            $sum3 = f;
        }
        if ( $sum <= 9 )
            $b16 = $sum3 . $b16
            $sum3 = 0;
        $p3 = 1;
    }
}
print "el numero con base 16 es $b16\n";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Esta programa me dice los siguientes errores

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Scalar found where operator expected at ./tarealab.pl line 38, near "$b16"

        (Missing semicolon on previous line?)

Scalar found where operator expected at ./tarealab.pl line 75, near ")

     $b16"

        (Missing operator before $b16?)

Scalar found where operator expected at ./tarealab.pl line 76, near "$b16

     $sum3"

        (Missing operator before $sum3?)

syntax error at ./tarealab.pl line 38, near "$b16"

syntax error at ./tarealab.pl line 75, near ")

     $b16"

Execution of ./tarealab.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Ojalá me ayuden para solucionarlo.

Foro - Perl en Español

Correción de errores de código

Correción de errores de código

Publicidad

Re: Correción de errores de código

¿Quién está conectado?