Este é um contador muito simples, tem comentarios explicativos somente no arquivo para download!

• Download contador.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl                      
open(contador, "contador.txt");
$acessos = <contador>;            
close(contador);                
$acessos++;                   
open(contador, ">contador.txt");  
print contador $acessos;          
close(contador);                  
print "$acessos acessos.";

Lendo o conteúdo de uma página da Internet

impares e pares

Múltiplos de 7 - Decrescente

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

Calculando a média entre dois valores

Nenhum coment�rio foi encontrado.