Lendo diretórios em PHP

Olá galera, tudo bem?

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 vetor).

-

  closedir (MEUDIR);

- Encerro a leitura do diretório

1. Lendo os arquivos do diretório e imprimindo seus dados

Irei utilizar o comando

  foreach

para pegar os nomes dos arquivos no vetor e abrí-los.

A seguir o código e a explicação da utilização parte a parte.

 #!/usr/bin/perl

print "Content-type: text/html"; # Digo ao script o conteúdo do documento

# abro o diretório
opendir (MEUDIR, "/home/LOGIN/www/meudir"); 
@pegoodir = readdir(MEUDIR); 
closedir (MEUDIR);
# já peguei todos os dados e armazenei no vetor, fecho o diretório
 
foreach (@pegoodir) {
$dados = $_; # como só existe uma coluna no vetor, utilizei o $_ para pegar esta coluna.

if ($dados eq ".") { next; } #prossigo se o nome do arquivo for só . (ver explicação abaixo)
if ($dados eq "..") { next; } #prossigo se o nome do arquivo for só ..
 
open (MEUFILE, "/home/LOGIN/www/meudir/$dados");
@minhas_linhas = <MEUFILE>;
close (MEUFILE);

print "<b>Arquivo $dados</b>: @minhas_linhas 

"; # imprimo os arquivos do diretório.

} # fecho o foreach

Agora explicando o comando:

  if ($dados eq ".") { next; } #prossigo se o nome do arquivo for só . 
if ($dados eq "..") { next; } #prossigo se o nome do arquivo for só ..

Um diretório é formado pela seguinte sequencia:

  
. # este significa a volta a pasta raiz
.. # este volta para a pasta anterior
a # pasta de nome a
b # pasta de nome b
c # pasta de nome c
a.EXT  # arquivo a.ext
b.EXT # arquivo b.ext
c.EXT # arquivo c.ext

Utilizei o código porque, sem ele, o script intenderá o dado "." e ".." como arquivos e irá abrí-los, demorando na execução do sistema.

Inserindo este comando