[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 :)

0 0

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

Obrigado pelo comentário e pelas sugestoẽs.

0 0