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

Conversão de textos UTF-8 para ISO8859-1

Apaga fila do Exim...

Script para adicionar sites ao Squid

Compara colunas

Contagem de linhas em Perl (= wc -l)

Nenhum comentário foi encontrado.