Ao invez de usar dezenas de funcoes print() voce pode escrever quantas linhas quiser em um arquivo de forma simplificada.

• Download print.pl.txt
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w
#Carlos Carvalho <h4sh@globo.com>

open(W,">saida.out") or die "$!" ;
sub INFO () {
print W <<EOF

hello world!
  The book is on the table!

EOF
}
&INFO;
close(W);

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Múltiplos de 7 - Decrescente

Gerando senhas aleatórias

impares e pares

Lista de números aleatórios não-repetidos de um intervalo em Perl