Como a primeira matéria/dica em CGI-Perl, irei ensinar hoje a como ler diretórios e abrir arquivos nos mesmos.
O código é simples, segue:
opendir (MEUDIR, “/home/LOGIN/www/meudir”);
@pegoodir = readdir(MEUDIR);
closedir (MEUDIR);
Explicando o código:
- opendir (MEUDIR, “/home/LOGIN/www/meudir”);
- Este código abre o diretório especificado
- @pegoodir = readdir(MEUDIR);
- Neste, coloco todos os arquivos do diretório em um vetor (o @pegoodir é um [...]

Um simples código, lê o tamanho e informa para você.
#!/usr/bin/perl
$arquivo = “/home/USUARIO/www/download/flashtrial.zip”; # caminho p/ o arquivo a ser lido
$tamanho=(-s “$arquivo”); # este código que faz a leitura do tamanho
print “Content-type: text/html\n\n”; # indico o tipo de documento (texto html)
print qq~ o arquivo $arquivo tem $tamanho bytes ~; # imprimo o resultado

Há duas maneiras:
1 - Com o módulo CGI:
#!/usr/bin/perl
use CGI; #chamo o módulo CGI
use CGI::Cookie; #dentro dele, chamo o módulo do cookie
$cgi = new CGI;
if ($cgi->cookie(’meu_cookie’)) { #caso o cookie exista, imprimo
print “Content-type: text/html\n\n”; #tipo de documento: HTML
print “Cookie ativo!
“;
print $cgi-cookie(’meu_cookie’); #meu cookie
} else { #se não existe, ele grava
$cookie = $cgi->cookie( -name=>’meu_cookie’, -value=>”Estou gravado!”, -expires=>”+2m”); [...]