Graficos com barras em Perl

Publicado por alexandre (última atualização em 05/07/2011)

[ Hits: 5.232 ]

Download graf.pl




Script para gerar gráficos com barras a partir da inserção de um número inteiro.

  



Esconder código-fonte

#!/usr/bin/perl

print "Insira um número de 1 a 30\n";
$num=<STDIN>;

chomp $num;

if($num<=30){

print  "|" x$num, "\n";

}
elsif ($num>30){
print "opcao invalida\n";
}

Scripts recomendados

Cálculo de área de uma figura geométrica

Renomeando arquivos de forma padronizada

Separa os dígitos de um número

Crivo de Eratóstenes Simples em Perl

Soma varios valores e mostra sua media


  

Comentários
[1] Comentário enviado por SatoshiHayazaki em 05/07/2011 - 03:00h

Minha dicas:

Faltou use strict e use warnings. Faltou declarar a variável $num lexicalmente com "my". Faltou indentação no código. Num código pequeno assim é desculpável, mas pegue o costume de dar nomes melhores às suas variáveis.

Você poderia reescrever a parte principal como:

print "|" x$num, "\n" if $num <= 30;


Por enquanto é isso, e boa sorte no Perl :)

[2] Comentário enviado por alexandre035 em 05/07/2011 - 17:35h

Obrigado pelo comentário e pelas sugestoẽs.


Contribuir com comentário