Simples script que sorteia 6 números de forma aleatória para a mega sena.

Obs: Este script não faz nenhum jogo preciso, pois é aleatório.

• Download mega_sena.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

print "\n Mega-Sena \n\n";

my @range = (0 .. 60);

for ($x=0; $x<=5; $x++)
        {
        @random_number = int(rand(@range)+1);
        print "@random_number "; 
        }
        print "\n\n";

Testando a agilidade do sistema de arquivos

Check All Process

Verificação se utilizador existe ou não

fonte.pl

Gravar CDROM