¿Cómo se puede hacer una señal de carga animada en Perl?

Donoru 2019-07-12 16:58.

Necesito saber cómo hacer una señal de carga animada en Perl para mantener a la gente entretenida mientras mi programa busca actualizaciones.

Ya intenté usar

print ".";
sleep(0.1);
print ".";

pero eso no parece funcionar. ¡Que alguien me ayude!

print ".";
sleep(0.1);
print ".";

no está funcionando

Solo quiero que el programa espere 1/10 de segundo para imprimir el siguiente .

perl loading

4 answers

zdim 2019-07-13 00:41.

Uso de Time :: HiRes para necesidades de temporización inferiores a un segundo, de varias formas

use warnings;
use strict;
use feature 'say';    
use Time::HiRes qw(sleep);

STDOUT->autoflush(1);  # or $| = 1; my $tot_sleep = 0; 

# Print dots
print "Loading "; 
while (1) {
    $tot_sleep += sleep 0.1; print "."; last if $tot_sleep >= 2;
} 
say " done\n";  $tot_sleep = 0; # Print "spinning" cursor while waiting print "Loading ... "; WAIT: while (1) { for (qw(- \ | /)) { print; $tot_sleep += sleep (0.1);  print "\b";
        last WAIT if $tot_sleep >= 2; } } say "\b done\n"; # Print (overwrite) percentile completed (if you know the job size) my $tot_percent = 0;  
while ($tot_percent < 100) { $tot_percent += 5;  
    print "Loading ... $tot_percent%\r"; 
    sleep 0.1;
} 
say "\n";

Simulo la "finalización" (de la carga) sumando esperas a 2 segundos. Por tanto, las ifcomprobaciones de este tiempo representan comprobaciones de si se completó la "carga", qué presumiblemente se puede hacer en ese punto del código (si es un hilo / proceso separado, o si este código se ejecuta en un proceso bifurcado).

Para un "spinner" quizás más agradable puede usar

use Time::HiRes qw(sleep);
use utf8;
use open qw(:std :encoding(UTF-8));
STDOUT->autoflush(1);

print "Waiting ... ";
WAIT: {
    my $tot_sleep;
    while (1) {
        for ('◑', '◒', '◐', '◓') {
            print; $tot_sleep += sleep 0.1; print "\b"; last WAIT if $tot_sleep >= 5;
        }   
    }
};
say "\b done";

Idea para símbolos tomados de Term :: Spinner :: Color .

Tales "hilanderos", por supuesto, no dan pistas visuales de cuánto tiempo esperan (ed), como hacen los puntos.

ikegami 2019-07-13 04:50.

Las soluciones existentes asumen que realmente quieres dormir / esperar. No se adaptan fácilmente para reemplazar el sueño / espera con trabajo real. Mi solución es para cuando estás haciendo un trabajo real (por ejemplo, cargando), no solo esperando algo.

use Time::HiRes qw( );

$| = 1; { my @syms = qw( - \ | / ); my ( $i, $t ); sub start_spinner { $t = Time::HiRes::time;
      $i = 0; print $syms[$i]; } sub update_spinner { my $now = Time::HiRes::time;
      return if $now - $time < 0.1;  # Prevent spinner from spinning too fast.

      $time = $now;
      $i = ( $i + 1 ) % @syms;
      print "\b$syms[$i]";
   }

   sub stop_spinner {
      print "\b \b";
   }
}

start_spinner();
for (1..500) {
   update_spinner();          # Call this as often as possible.
   Time::HiRes::sleep(0.01);  # Simulate a little bit of work.
}
stop_spinner();

La clave es usar la resolución más alta de Time :: HiRes time(y sleep, si es necesario), así como un limitador de velocidad ( ).return if $now - $time < 0.1;

Si realmente desea imprimir una línea de puntos, se puede utilizar el mismo enfoque.

{
   my $t; sub start_spinner { $t = Time::HiRes::time;
   }

   sub update_spinner {
      my $now = Time::HiRes::time; return if $now - $time < 0.1; # Prevent spinner from spinning too fast. $time = $now;
      print ".";
   }

   sub stop_spinner {
      print "\n";
   }
}

Grinnz 2019-07-13 00:01.

La función de suspensión estándar opera en segundos enteros. Puede utilizar las funciones de suspensión de Time :: HiRes como un reemplazo directo que admite fracciones de segundo.

use strict;
use warnings;
use Time::HiRes 'sleep';

sleep 0.1;

stevieb 2019-07-13 06:44.

Otra forma más, sin usar un módulo, es abusando de select () :

use warnings;
use strict;
$|=1;

while (1){
    print '.';
    select(undef, undef, undef, 0.1);
}

O un spinner estilo FreeBSD por diversión (usa una llamada al sistema Linux para actualizar la pantalla. En Windows, cambie cleara cls):

while (1){
    for (qw(- \ | / -)){
        system 'clear';
        print $_;
        select(undef, undef, undef, 0.1);
    }
}

Japanese Spanish German French Thai Portuguese Russian Vietnamese Italian Korean Turkish Indonesian Polish Hindi

MORE COOL STUFF

La estrella de HGTV, Christina Hall, revela que tiene 'envenenamiento por mercurio y plomo' probablemente por voltear 'casas asquerosas'

La estrella de HGTV, Christina Hall, revela que le diagnosticaron envenenamiento por mercurio y plomo, probablemente debido a su trabajo como manipuladora de casas.

2022-12-22.

La estrella de 'Love Is Blind' Brennon Lemieux responde a los cargos de violencia doméstica

Recientemente salió a la luz un informe policial que acusa a la estrella de 'Love Is Blind', Brennon, de violencia doméstica. Ahora, Brennon ha respondido a los reclamos.

2022-12-14.

Wynonna Judd se dio cuenta de que ahora es la matriarca de la familia Judd en un momento festivo de pánico

Conozca cómo Wynonna Judd se dio cuenta de que ahora es la matriarca de la familia mientras organizaba la primera celebración de Acción de Gracias desde que murió su madre, Naomi Judd.

2022-12-09.

Experto en lenguaje corporal explica los 'paralelos' entre Kate Middleton y la princesa Diana

Descubra por qué un destacado experto en lenguaje corporal cree que es fácil trazar "tales paralelismos" entre la princesa Kate Middleton y la princesa Diana.

2022-12-07.

Continúan las Guerras Clon de Overwatch-Paladins

Brigitte de Overwatch Desde 2016, el shooter de héroes Paladins ha estado desviando las acusaciones de que los desarrolladores copiaron el exitoso shooter de héroes de Blizzard, Overwatch. Ayer, en un tweet que cambiaba las tornas, el presidente de Paladins, Stewart Chisam, miró de reojo a la nueva heroína de Overwatch, Brigitte, por sus similitudes con el héroe de Paladins, Ash.

2023-02-08 14:38.

Ponle una tapa. En realidad, ponle una tapa a todo. Consigue 12 tapas de cocina elásticas de silicona por $14. [Exclusivo]

Tapas elásticas de silicona de Tomorrow's Kitchen, paquete de 12 | $14 | Amazonas | Código promocional 20OFFKINJALids son básicamente los calcetines de la cocina; siempre perdiéndose, dejando contenedores huérfanos que nunca podrán volver a cerrarse. Pero, ¿y si sus tapas pudieran estirarse y adaptarse a todos los recipientes, ollas, sartenes e incluso frutas en rodajas grandes que sobran? Nunca más tendrás que preocuparte por perder esa tapa tan específica.

2022-11-02 18:37.

Cuéntanos tus mejores trucos de Washington, DC

Hemos pirateado algunas ciudades industriales en esta columna, como Los Ángeles y Las Vegas. Ahora es el momento de una ciudad militar-industrial-compleja.

2022-10-29 00:57.

Patinaje artístico de EE. UU. 'frustrado' por falta de decisión final en evento por equipos, pide una decisión justa

El equipo está a la espera de las medallas que ganó en los Juegos Olímpicos de Invierno de 2022 en Beijing, ya que se está resolviendo un caso de dopaje que involucra a la patinadora artística rusa Kamila Valieva.

2023-02-03.

Los compradores de Amazon dicen que duermen 'como un bebé mimado' gracias a estas fundas de almohada de seda que cuestan tan solo $ 10

Miles de compradores de Amazon recomiendan la funda de almohada de seda Mulberry, y está a la venta en este momento. La funda de almohada de seda viene en varios colores y ayuda a mantener el cabello suave y la piel clara. Compre las fundas de almohada de seda mientras tienen hasta un 46 por ciento de descuento en Amazon

2023-02-03.

Profesor de la Universidad de Purdue arrestado por presuntamente traficar metanfetamina y proponer favores sexuales a mujeres

El Departamento de Policía de Lafayette comenzó a investigar a un profesor de la Universidad de Purdue en diciembre después de recibir varias denuncias de un "hombre sospechoso que se acercaba a una mujer".

2023-02-03.

Concept Drift: el mundo está cambiando demasiado rápido para la IA

Al igual que el mundo que nos rodea, el lenguaje siempre está cambiando. Mientras que en eras anteriores los cambios en el idioma ocurrían durante años o incluso décadas, ahora pueden ocurrir en cuestión de días o incluso horas.

Language

Japanese

Spanish

German

French

Thai

Portuguese

Russian

Vietnamese

Italian

Korean

Turkish

Indonesian

Polish

Hindi

¿Cómo se puede hacer una señal de carga animada en Perl?

4 answers

Related questions

MORE COOL STUFF

La estrella de HGTV, Christina Hall, revela que tiene 'envenenamiento por mercurio y plomo' probablemente por voltear 'casas asquerosas'

La estrella de 'Love Is Blind' Brennon Lemieux responde a los cargos de violencia doméstica

Wynonna Judd se dio cuenta de que ahora es la matriarca de la familia Judd en un momento festivo de pánico

Experto en lenguaje corporal explica los 'paralelos' entre Kate Middleton y la princesa Diana

Los láseres arrojan luz sobre por qué necesita cerrar la tapa antes de descargar

The Secrets of Airline Travel Quiz

Where in the World Are You? Take our GeoGuesser Quiz

¿Caduca el repelente de insectos?

Continúan las Guerras Clon de Overwatch-Paladins

Retratos de héroes de Overwatch

Ponle una tapa. En realidad, ponle una tapa a todo. Consigue 12 tapas de cocina elásticas de silicona por $14. [Exclusivo]

Cuéntanos tus mejores trucos de Washington, DC

Patinaje artístico de EE. UU. 'frustrado' por falta de decisión final en evento por equipos, pide una decisión justa

Los compradores de Amazon dicen que duermen 'como un bebé mimado' gracias a estas fundas de almohada de seda que cuestan tan solo $ 10

Se busca al corredor de los Bengals Joe Mixon por orden de arresto emitida por presuntamente apuntar con un arma de fuego a una mujer

Profesor de la Universidad de Purdue arrestado por presuntamente traficar metanfetamina y proponer favores sexuales a mujeres

Concept Drift: el mundo está cambiando demasiado rápido para la IA

India me está pateando el culo

ℝ

¿Merrick Garland le ha fallado a Estados Unidos?

Es más de la mitad de la presidencia de Biden. ¿Qué está esperando Merrick Garland?

Language