Listar arquivos de um diretório.
Este script mostra como trabalhar com listagem de arquivos, verificação de existência de tal arquivo, e outras mais, bem pequeno e resumido e de facil compreenção,
Descrição
Este script mostra como trabalhar com listagem de arquivos, verificação de existência de tal arquivo, e outras mais, bem pequeno e resumido e de facil compreenção,
#!/bin/perl
$diretorio = "./";
opendir(diretorio, "$diretorio");
@lista = readdir(diretorio);
closedir(diretorio);
foreach $arquivo(@lista)
{
if ($arquivo eq "senhas.pwd"){print "senhas:->"}
if ($arquivo eq "me_pule.jfs") {next}
print qq~$arquivo~. "\n";
}