[tutorial] abrindo diretorio e listando arquivos

bom galera eu ja fiz um tutorial ensinado a abrir arquivo com open, nesse tutorial vou ensinar abrir um diretorio e lista todos os arquivos e pasta q tem dentro dele, vamos usar 3 funçoes uma para abrir outra para ler a outra para fechar, para abrir agente usar opendir() e passamos como argumento um ponteiro e local

Código:

#!/usr/bin/perl

opendir(FTS,"c:\\");

na minha source acima eu usei o ponteiro FTS e abri a unidade c:\ , bom agora vamos fechar o diretorio para isso usamos a funçao closedir() e passamos como argumento o ponteiro

Código:

#!/usr/bin/perl

opendir(FTS,"c:\\");
closedir(FTS);

agora vamos listar os arquivos para isso antes de fechar o diretorio agente cria um array e atribuimos a ela a funçao readdir() e passamos como argumento para essa funçao o ponteiro

Código:

#!/usr/bin/perl

opendir(FTS,"c:\\");
@hack = readdir(FTS);
closedir(FTS);

agora so agente ler as posiçao da array, para isso basta usar o laço foreach

Código:

#!/usr/bin/perl

opendir(FTS,"c:\\");
@hack = readdir(FTS);
closedir(FTS);

foreach(@hack)
{
  print $_ . "\n";
}

by hacker fts315