Foro - Perl en Español

por **BigBear** » 2012-09-24 17:50 @785

Tengo el siguiente código en Ruby

Sintáxis: [ Descargar ] [ Ocultar ]

Using ruby Syntax Highlighting

logo=[
"testando",
"esto",
"ahora"
]
 
def mostrar text
  w="|"
  text.each do |str|
    str.scan(/./) do |c|
        STDOUT.flush
      if w=="|" 
        print "\b"+c +w
        w="/"
      elsif w=="/" 
        print "\b"+c +w
        w="-"  
      elsif w=="-" 
        print "\b"+c +w
        w="\\" 
      else
      print "\b"+c +w
      w="|"
      end
      sleep 0.04
    end
    print "\b "
    puts ""
  end
end
 
mostrar(logo)
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Mi pregunta es si alguien me podría ayudar a traducirlo a Perl porque lo he intentado pero nunca logro el mismo resultado.

¿ Alguien me podría ayudar ?

#!/usr/bin/env perl
use v5.14;
use IO::File;
use Time::HiRes 'usleep';
 
my @logo = qw( testando esto ahora );   #    logo=[
                                        #    "testando",
                                        #    "esto",
                                        #    "ahora"
                                        #    ]
                                        #
sub mostrar {                           #    def mostrar text
    my @text = @_;                      
    my $w    = '|';                     #    w="|"
                                        
    for my $str (@text) {               #    text.each do |str|
        for my $c (split //, $str) {    #       str.scan(/./) do |c|
            STDOUT->flush;              #       STDOUT.flush
            if ($w eq '|') {            #       if w=="|" 
                print "\b$c$w";         #           print "\b"+c +w
                $w = '/';               #           w="/"
            }
            elsif ($w eq '/') {         #       elsif w=="/" 
                print "\b$c$w";         #           print "\b"+c +w
                $w = '-';               #           w="-"  
            }
            elsif ($w eq '-') {         #       elsif w=="-" 
                print "\b$c$w";         #           print "\b"+c +w
                $w = '\\';              #           w="\\" 
            }
            else {                      #       else
                print "\b$c$w";         #       print "\b"+c +w
                $w = '|';               #       w="|"
            }                           #       end
            usleep(40_000);             #       sleep 0.04
        }                               #       end
        print "\b ";                    #       print "\b "
        say;                            #       puts ""
    }                                   #    end
}                                       #    end
                                        #
mostrar(@logo);                         #    mostrar(logo)
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

pero se puede reducir bastante... hay código repetido...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
use Time::HiRes 'usleep';
 
$|++;  # autoflush STDOUT
 
my @w = ('|', '/', '-', '\\');
 
my @logo = qw( testando esto ahora );
 
sub mostrar {
    my $i = 0;
 
    for my $str (@_) {
        for my $c (split //, $str) {
            print "\b$c" . $w[($i++) % 4];
            usleep(40_000);
        }
        say "\b ";
    }
}
 
mostrar(@logo);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-09-27 19:56 @872

perfecto, explorer, pero te quería preguntar qué otras alternativas tengo para la parte de los if() del segundo código que publicaste en la línea 16.

¿ Me podrías dar algunos ejemplos ?

por **explorer** » 2012-09-27 20:51 @910

En el segundo código, en la línea 16, no hay ningún if()... es solo una operación matemática.

por **BigBear** » 2012-09-29 12:01 @542

Entonces me expresé mal. Quería preguntarte qué otra forma habría de hacer los if() de una forma reducida pero sin usar la operación matemática.

por **explorer** » 2012-09-29 16:48 @742

Lo único que se me ocurre es reducir los print() que sacan los caracteres individuales, a uno solo, justo antes de los if(). Pero nada más, y solo ahorrarías tres líneas.

Otra forma sería usa given/when pero no reducirías el número de líneas. Solo simplificarías la notación.

Otra forma sería usando un for() junto con modificadores when (no probado, necesita Perl >= v5.10):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "\b$c$w";
for ($w) {
    when ('|') { $w = '/'  }
    when ('/') { $w = '-'  }
    when ('-') { $w = '\\' }
    when ('\\'){ $w = '|'  }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La solución matemática es más elegante, y reduce el código en veinte líneas.

En perlsyn tienes ejemplos de cómo construir un switch/case de varias formas distintas, precisamente para demostrar que Perl no necesita de un switch/case

por **BigBear** » 2012-09-29 18:08 @797

Ya casi termino mi versión de la función que estoy haciendo a mi manera pero cuando quise sacar unsleep por el sleep el script no hace el efecto marquesina y se muestra todo de una vez, ¿me podrías explicar por qué pasa eso y cómo podría reemplazar unsleep por sleep?

por **explorer** » 2012-09-29 18:42 @821

No entiendo a qué te refieres con unsleep.

El sleep del Perl solo entiende de valores enteros, para saber cuántos segundos debe esperar.
Así que si le pones

sleep 0.04;

en lugar de esperar 4 centésimas de segundo, no esperará nada (0 segundos). Más información en perldoc -f sleep.

Por eso usamos usleep(), del módulo Time::HiRes, para poder hacer esperas con un granularidad inferior a un segundo.

por **BigBear** » 2012-09-29 18:47 @824

Bueno , entonces el código me quedó así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use Time::HiRes "usleep";
 
my @test = ("testando ahora now");
 
sub marquesina {
 
my @logo = @_;
 
my $car = "|";
 
for my $uno(@logo) {
for my $dos(split //,$uno) {
 
$|++;
 
if($car eq "|") {
mostrar("\b".$dos.$car,"/");
}
elsif($car eq "/") {
mostrar("\b".$dos.$car,"-");
}
elsif($car eq "-") {
mostrar("\b".$dos.$car,"\\");
} else {
mostrar("\b".$dos.$car,"|");
}
usleep(40_000);  
}
print "\b ";
}
 
sub mostrar {
print $_[0];
$car = $_[1];
}
 
}
 
marquesina(@test);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Espero que no sea mucho pedir, pero encontré otro código en Ruby que necesitaría que me ayudes a traducirlo como el primero (si es que quieres).

El código está acá http://pastebin.com/kCMZq9Uz

por **explorer** » 2012-09-29 19:34 @857

Doddy escribiste:Espero que no sea mucho pedir, pero encontré otro código en Ruby que necesitaría que me ayudes a traducirlo como el primero (si es que quieres)

Yo no sé Ruby. Además, si el código original funciona, ¿para qué pasarlo a Perl?

Hay proyectos interesantes que se pasan de Ruby a Perl, como el protocolo Plack/PSGI, pero para programas pequeños... solo lo veo interesante si es para aprender Ruby y/o Perl.

Como a mi no me interesa aprender Ruby, te dejo la tarea a ti

Foro - Perl en Español

Traducir código Ruby

Traducir código Ruby

Publicidad

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

Re: Traducir código Ruby

¿Quién está conectado?