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,

• Download listadir.pl
• Enviar nova versão

Esconder código-fonte

#!/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";
}

arruma_nomes.pl

Compara colunas

Manipulação de Arquivos Orientada a Objetos

Alterar senha no shadow

Contagem de linhas em Perl (= wc -l)

Nenhum comentário foi encontrado.