Foro - Perl en Español

por **explorer** » 2020-07-23 06:07 @297

El problema está en los índices dentro @grafica.

Estás usando la variable $. que para Perl tiene un significa especial, como la $_. $. es el número de "línea" o de "entrada" leída desde la entrada estándar. En tu caso, si has introducido 20 números, pues $. valdrá 20.

Es mejor que uses otra variable cualquiera para recorrer los índices de @grafica.

Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $i (0 .. $#grafica) {                   # recorrer los índices de 0 al índice más alto de @grafica
    # aquí saco la frecuencia y la multiplico por 10 para que me de un numero de entre el 0 y el 10.
    $grafica[$i] = int(10 * $grafica[$i] / $total);
 
    if ($grafica[$i] <= 2) { $grafica[$i] = '*' }
    ...
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
 
print "introduce números de 0 a 100, cuando no introduzcas nada saldrá la gráfica\n";
 
until (0) {
 
    chomp( $entrada = <STDIN> );
    last if !$entrada;
    if ( $entrada <= 20  && $entrada > 0 )  { $grafica[0]++; }
    if ( $entrada <= 40  && $entrada > 20 ) { $grafica[1]++; }
    if ( $entrada <= 60  && $entrada > 40 ) { $grafica[2]++; }
    if ( $entrada <= 80  && $entrada > 60 ) { $grafica[3]++; }
    if ( $entrada <= 100 && $entrada > 80 ) { $grafica[4]++; }
    $total++;
}
 
for ( $i = 0; $i <= ($#grafica); $i++ ) {
    $grafica[$i] = ( $grafica[$i] / $total ) * 10;
 
    if ( $grafica[$i] <= 2 ) { $grafica[$i] = '*'; }
    if ( $grafica[$i] > 2 && $grafica[$i] <= 4 )  { $grafica[$i] = '**'; }
    if ( $grafica[$i] > 4 && $grafica[$i] <= 6 )  { $grafica[$i] = '***'; }
    if ( $grafica[$i] > 6 && $grafica[$i] <= 8 )  { $grafica[$i] = '****'; }
    if ( $grafica[$i] > 8 && $grafica[$i] <= 10 ) { $grafica[$i] = '*****'; }
 
}
 
print "frecuencia de número introducidos del 0 al 20 $grafica[0] \n";
print "frecuencia de número introducidos del 20 al 40 $grafica[1] \n";
print "frecuencia de número introducidos del 40 al 60 $grafica[2] \n";
print "frecuencia de número introducidos del 60 al 80 $grafica[3] \n";
print "frecuencia de número introducidos del 80 al 100 $grafica[4] \n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2020-07-23 10:18 @471

Hay otro error: cuando el usuario no introduce ningún valor (porque quiere terminar la entrada) o introduce una cadena de caracteres alfabética, $entrada toma el valor 0, así que la gráfica resultante no es correcta (hay un valor $grafica[0] demás).

Por otra parte, seguro que se te ocurre alguna manera para evitar tener que repetir casi las mismas líneas 5 veces. Es cuestión de aplicar algo de matemáticas...

por **Miguel-ag82** » 2020-07-24 00:54 @079

Sí, cambio el bucle y le meto un last if.

Sobre hacerlo en menos líneas... Esta es la solución que me pareció más sencilla y mejor me funcionó. ¿Qué se me ha pasado por alto?

¡Gracias!

por **Miguel-ag82** » 2020-07-24 01:44 @114

EJERCICIO 3.1

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open( ENTRADA, "apellidosnombre.txt" );
 
print "listado de nombres: \n\n\n";
 
while (<ENTRADA>) {
    @linea = split;
    $contador{ $linea[ $#linea - 1 ] }++;
    $contador{ $linea[ $#linea - 2 ] }++;
 
    print "@linea \n";
 
}
 
print "\nrepetición de apellidos \n";
@claves = keys(%contador);
foreach (@claves) {
 
    print "el apellido $_ se repite $contador{$_} \n";
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Miguel-ag82** » 2020-07-24 01:49 @117

EJERCICIO 3.2 (siendo manta.pl, un programa que pide entrada por parte del usuario no sé cómo reducirlo a la mitad de líneas).

por **Miguel-ag82** » 2020-07-24 06:15 @302

EJERCICIO 3.3

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
die "falta nombre de fichero que contar" unless $ARGV[0];
 
$argumento1 = <$ARGV[0]>;
open( FICHERO1, "$argumento1" );
 
while (<FICHERO1>) {
 
    @palabras = split;
    $contadorpalabras = $contadorpalabras + ( $#palabras + 1 );
 
    @letras = split( '', $_ );
    $contadorletras = $contadorletras + ( $#letras + 1 );
    $contadorlineas++;
}
 
print "$contadorlineas lineas $contadorpalabras palabras $contadorletras Bytes $ARGV[0] \n";
 
if ( $ARGV[1] ) {
    $argumento2 = <$ARGV[1]>;
    open( FICHERO2, "$argumento2" );
    while (<FICHERO2>) {
 
        @palabras2         = split;
        $contadorpalabras2 = $contadorpalabras2 + ( $#palabras2 + 1 );
        @letras2           = split( '', $_ );
        $contadorletras2   = $contadorletras2 + ( $#letras2 + 1 );
        $contadorlineas2++;
 
    }
 
    print "$contadorlineas2 lineas $contadorpalabras2 palabras $contadorletras2 Bytes $ARGV[1] \n";
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Miguel-ag82** » 2020-08-03 06:24 @308

#EJERCICO 3.4 He tenido que usar expresiones regulares, que se dan un poco más adelante del tutorial y lo he hecho sobre un apache.log por si quieres probarlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open( LOG, "ficheros/apache.log" );
 
print "1- mostrar dominos de primer nivel \n";
print "2- mostrar dominios de segundo nivel \n";
 
chomp( $opcion = <STDIN> );
 
while (<LOG>) {
 
    $primernivel[$.] = $_;
    if ( $primernivel[$.] =~ /(https?\W+[A-Za-z0-9]+.[A-Za-z0-9]+.[com|es|org]+)/ && $opcion == 1 ) {
        $dominiosprimernivel{$1}++;
 
        #print "$1 \n";
    }
    elsif ( $primernivel[$.] =~ /(https?\W+[A-Za-z0-9]+.[A-Za-z0-9]+.[com|es|org]+\.[mx|org|net|eu]+)/ && $opcion == 2 )
 
    {
        $dominiossegundonivel{$1}++;
    }
}
 
close LOG;
 
@claves  = keys(%dominiosprimernivel);
@claves2 = keys(%dominiossegundonivel);
 
$i = 0;
 
if ( $opcion == 1 ) {
    foreach (@claves) {
        print "$i $claves[$i] visitas $dominiosprimernivel{$_} \n";
        $i++;
    }
}
 
if ( $opcion == 2 ) {
    foreach (@claves2) {
        print "$i $claves2[$i] visitas: $dominiossegundonivel{$_}\n";
        $i++;
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Miguel-ag82** » 2020-08-07 02:32 @147

EJERCICIO 3.5

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use MIME::Base64;
use Data::Dumper;
 
my @passwd;
open( DNI, "../ficheros/dni.txt" );
 
while (<DNI>) {
 
    my $gid      = int( rand(100) );           # genero un gid aleatorio.
    my @listadni = split;                      # separo $_ en palabras.
    my $password = encode_base64( $listadni[3] );    # utilizo el modulo MIME::Base64 para encriptar directamente
    my @letras   = split( '', $listadni[0] );  # separo el nombre en letras para luego solo usar la inicial
    my $user     = $letras[0] . $listadni[1];  # genero el usuario con la primera letra del nombre y el apellido.
 
    chomp($password);                          # me pillaba un salto de línea
 
    push @passwd,
        { usuario => $user, pass => $password, gid => $gid, nombre => $listadni[0], apellidos => $listadni[1]
        };                                     # meto el hash en un array para luego ordenarlo y añadir el uuid por orden alfabetico.
 
}
 
my @passwd_ordenado = sort { $a->{usuario} cmp $b->{usuario} } @passwd;    #ordeno alfabéticamente por usuario
 
$uuid = 1000;                                  # creo valor de uuid, lo añado y pinto todo
foreach (@passwd_ordenado) {
 
    $passwd_ordenado{ uuid => $uuid };
    print $passwd_ordenado[$i]{'usuario'} . ":"
        . $passwd_ordenado[$i]{'pass'} . ":"
        . $uuid . ":"
        . $passwd_ordenado[$i]{'gid'} . ":"
        . $passwd_ordenado[$i]{'nombre'} . ":"
        . $passwd_ordenado[$i]{'apellidos'} . "\n";
    $i++;
    $uuid++;
}
 
close DNI;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Miguel-ag82** » 2020-08-07 05:01 @250

EJERCICIOS 4

Realizar un programa que lea un fichero organizado en filas y columnas, tal como este

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

uno dos tres

cuatro cinco seis

siete ocho nueveColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y genere un documento HTML con los contenidos del fichero organizados en una tabla; cada elemento del fichero deberá ir en una celda diferente, así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html><table>
<td><tr>uno</tr><tr>dos</tr><tr>tres</tr></td>
<td><tr>cuatro</tr><tr>cinco</tr><tr>seis</tr></td>
<td><tr>siete</tr><tr>ocho</tr><tr>nueve</tr>></td>
 
</table>
</html>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aunque no es estrictamente necesario, usad una matriz bidimensional para hacerlo.

Foro - Perl en Español

Tutorial Retro

Re: Tutorial Retro

Publicidad

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

Re: Tutorial Retro

¿Quién está conectado?