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";
}

Compilar e mover

FTP – Script para adicionar e remover usuários via WEB

Contagem de linhas em Perl (= wc -l)

arruma_nomes.pl

Inserindo sites em Lista do Squid

Nenhum comentário foi encontrado.