exemple progressbar in perl

Exemple progressbar in perl

#!/usr/bin/perl
# Exemplo de progressbar by v4p0r
# Ajuda em http://www.perlmonks.org/?node_id=980562
# Data: 31/AGO/2017
# Horas: 02:12

use strict;
use warnings;
use utf8;

sub banner {
print "[";
print "ProgressBar em perl";
print "]\n";
}

my $n = "1"; # Número que começa os "::"
my $e = "30"; # Número que termina os "::"
my $v = "0.30"; # Velocidade que os "::" vão percorrer

sub tempo {
  my ($segundos,$minutos,$hora) = localtime();
  print "[";
  print "$hora:$minutos:$segundos";
  print "] ";
}

sub progressbar {
  $| = 1;
  binmode STDOUT, ":utf8";
  print "[!] ";
  tempo();
  my $d  = "::"; # Caracter que ira decorrer
  for ($n..$e) {
    select(undef, undef, undef, $v);
    print "$d";
  }
  print"\n";
}

banner();
progressbar();