Foro - Perl en Español

por **Aceitunas** » 2013-12-10 07:28 @353

Creo que un tema donde podamos poner algoritmos y funciones estaría bastante bien, ya que no hay ninguno. Dejo una función para comenzar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Pasa una cadena en mayusculas a morse.
# Aceitunas
 
use strict;
 
print "Introduce una cadena: ";
my $datos = <STDIN>;
 
my @letras = <DATA>;
 
my $len = length($datos);
my $i = 0;
 
while($i < ($len-1))
{
    my $char = $letras[ord(substr($datos,$i,1))-65];
        
        chomp($char);
        $char =~ s/ //g;
        
        print $char . " ";
        
        $i++;
}
 
print "\n";
exit(0);
 
__DATA__
.-      
-...
-.-.
-..
.
..-.
--.
....
..
.---
-.-
.-..
--
-.
---
.--.
--.-
.-.
...
-
..-
...-
.--
-..-
-.--
--.  
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
# Ordenamiento burbuja
# Aceitunas
 
use strict;
 
my @datos = (1,5,9,5,7,6,3,2,7,4);    
my $CantidadDatos = 10;
 
for (my $i = 0; $i < $CantidadDatos; $i++)
{
    for (my $a = $i; $a < $CantidadDatos ; $a++)
        {
                if ($datos[$i] > $datos[$a])
                {
                        my $temp = $datos[$a];
                
                        $datos[$a] = $datos[$i];
                        $datos[$i] = $temp;
                }
        }
}
 
foreach my $e (@datos)
{
    print $e . "\n";
}
 
exit(0);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-12-10 13:27 @602

Recordar que existe la web RosettaCode.org, donde se pueden encontrar ejemplos de implementación.

Por otra parte, está bien intentar hacer por uno mismo esos algoritmos, y ver las distintas formas que Perl nos permite implementarlos.

Esta es mi versión de la ordenación de burbuja:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Ordenamiento de burbuja
# Joaquín Ferrero
use v5.16;
 
my @datos = qw(1 5 9 5 7 6 3 2 7 4);    
 
my @datos_ordenados = burbuja(@datos);
 
say "@datos_ordenados";
 
 
sub burbuja {
    my @datos = @_;
 
    my $CantidadDatos = @datos;
 
    for (my $i = 0;  $i < $CantidadDatos; $i++) {
    for (my $j = $i; $j < $CantidadDatos; $j++) {
 
        @datos[$j, $i] = @datos[$i, $j]
            if $datos[$i] > $datos[$j];
    }}
 
    return @datos;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Aceitunas** » 2013-12-11 04:41 @237

Sí, explorer, ¡je,je! Está bastante bien comparar los algoritmos que hace uno con los que hace otro para así poder aprender. Además, se ahorran muchas preguntas tipo "cómo sería este ejercicio en Perl", etc.

Otro sencillito pero bastante preguntado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Obtener el número mas grande que contiene un array.
# Aceitunas
 
use strict;
 
my @numeros = (1,85,64,23,78,54,69,25,1,2);
 
my $NumMayor = 0;
 
foreach my $num (@numeros)
{
    $NumMayor = $num if ($num > $NumMayor);
}
 
print "El numero mayor es: " . $NumMayor . "\n";
 
exit(0);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Aceitunas** » 2013-12-11 07:27 @352

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Obtener e imprimir las cadenas que están entre números
# Aceitunas
 
use strict;
use v5.16;
 
my $cadena = "223hola 1que 78tal??0";
my @frase;
 
while($cadena =~ /[0-9]*(.+?)[0-9]/g)
{
    push(@frase,$1);
}
 
say "@frase";
 
exit(0);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Le voy pillando el truco a la expresiones regulares :lol:

Dejo otro ejercicio puesto mientras que lo hago:

Sintáxis: [ Descargar ] [ Ocultar ]

Hacer un programa con el que, a partir de un fichero del siguiente tipo:
12345:Lopez,Juan:JL
58694:Martinez,Luis:LM
36495:Abad,Ramon:RA
93764:Garcia,Jose:JG
obtengamos una salida del siguiente tipo:
ID Iniciales Nombre
12345 JL Juan Lopez
58694 LM Luis Martinez
36495 RA Ramon Abad
93764 JG Jose Garcia

EDITO: pongo mi solución al ejercicio que he puesto antes.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# Aceitunas
 
use strict;
 
open(FILE,"datos.txt");
 
print "ID      Iniciales    Nombre\n";
 
while(<FILE>)
{
    $_ =~ /^([0-9]*)\:(.+?),(.+?)\:(.+?)\s+$/;
        
        print "$1     $4         $3  $2  \n";  
}
 
close (FILE);
 
exit(0);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-12-11 08:25 @392

Mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.16;                                     # a partir de v5.14 se activa el modo estricto
use autodie;                                   # el programa se muere en caso de problemas con los archivos
 
say join "\t", qw(ID Iniciales Nombre);
 
open my $FILE,'<', 'datos.txt';
while (<$FILE>) {
    if (/(\d+):(.+),(.+):(\S+)/) {             # estamos usando $_. Por eso es la variable "por defecto"
        say join "\t", $1, $4, "$3 $2";
    }
}
close   $FILE;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Observa que no hace falta "escapar" el carácter ':'.

por **Aceitunas** » 2013-12-11 10:31 @480

explorer escribiste:Observa que no hace falta "escapar" el carácter ':'.

¡Cierto!, anímate y pon tu ahora algún ejercicio.

Foro - Perl en Español

Algoritmos y funciones

Algoritmos y funciones

Publicidad

Re: Algoritmos y funciones

Re: Algoritmos y funciones

Re: Algoritmos y funciones

Re: Algoritmos y funciones

Re: Algoritmos y funciones

Re: Algoritmos y funciones

¿Quién está conectado?