Foro - Perl en Español

por **jairo15** » 2016-09-25 22:05 @962

Yo solía hacer matrices en C pero ahora en Perl veo que es algo diferente.

¿Cómo se puede hacer una matriz en la que el usuario ingrese el valor en cada posición?

my @matriz;
 
for ( $i = 1; $i <= 5; ++$i ) {
    for ( $j = 1; $j <= 5; ++$j ) {
        print "Ingrese el valor de la posición: [$i,$j]->";
        $matriz[$i][$j] = <STDIN>;
    }
}
 
for ( $i = 1; $i <= 5; ++$i ) {
    for ( $j = 1; $j <= 5; ++$j ) {
        print "\t$matriz[$i][$j]";
        print "\n";
    }
}
<>;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2016-09-26 15:22 @682

Es porque estás almacenando los valores junto con el carácter de fin de línea (al pulsar la tecla Enter, en el <STDIN>).

La solución es quitar esos caracteres:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        chomp($matriz[$i][$j] = <STDIN>);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y luego, a la hora de imprimir, hay que poner el "\n" al final de cada línea de la matriz, así que tienes que mover la línea 13 por debajo de la 14 (final del bucle for() entre 11 y 14).

Quedaría un poco más corto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @matriz;
 
for my $i (1 .. 5 ) {
for my $j (1 .. 5 ) {
        print "Ingrese el valor de la posición: [$i,$j]->";
        chomp($matriz[$i][$j] = <STDIN>);
    }
}
 
for my $i (1 .. 5 ) {
for my $j (1 .. 5 ) {
        print "\t$matriz[$i][$j]";
    }
    print "\n";
}
<>;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **charlygarcia** » 2017-02-27 16:32 @731

Alguna vez me hice un videillo, creo que se puede mejorar, pero en esa época era con fines ilustrativos.

Puedes revisarlo:

Foro - Perl en Español

Matriz

Matriz

Publicidad

Re: Matriz

Re: Matriz

Re: Matriz

Re: Matriz

¿Quién está conectado?