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

Shadow Post It

Contagem de linhas em Perl (= wc -l)

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Inserindo sites em Lista do Squid

Adiciona-Altera senhas/usuarios no sistema

Nenhum coment�rio foi encontrado.