[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

Hi,bacana,segue uma alternativa enquanto ao uso dessas funções acima,

Código:


#!/usr/bin/perl

while(<*>)
{
  print $_,"\n";
}



bye

show mano *-* , while(<*>) eu nao conhecia essa nao

Eu entendi, o tutorial direitinho. A unica coisa que eu não to entendendo ainda é o laço foreach e o while(<*>) que o root falou.

Mas valeu, se alguem quiser me explicar, ficaria agradecido.

o laço foreach permite repetir enquanto uma array tiver posiçao valida, segue o tuto abaixo

https://hacker.umforum.net/t142-tutorial-laco-foreach

ja o while(<*>) eu nao tenho certeza mais o while vai repetir enquanto for verdadeiro no caso <*> e uma entrada dos arquivos ou alguma coisa do tipo kkkkkkk