Bom dia a todos, conforme observação estou
complementando a minha pergunta enviada ontem...
Tenho um script feito em perl...q "espiona" um
diretório, estou mandando um trecho dele, que lê uma
imagem antiga e cria uma nova...
faço isso e outras diversas funções com o diretório
"/blabla/web", como foi declarado...
$pathDirSpyNow="/blabla/web"; #diretório a ser
espionado
O meu problema é que dentro do diretório
/blabla/web tem vários subdiretórios e arquivos e
tem um subdiretório que não preciso "espionar"...
Como faço para exclui-lo na execução do script...?
Agradeço a ajuda...
# PROGRAMA : spy.pl
# FUNCAO : verifica se houve alteracao
#-------------------------------------------
# package : SpyDir
# processa o snap_dir.txt :
# imagem anterior do diretorio
#--------------------------------------------
package SpyDir;
sub new {
my $x=93;
my $ref= \$x;
bless $ref, SpyDir;
return $ref;
}
sub initFile {
($class, $pathFile) [EMAIL PROTECTED];
open(ARQ, $pathFile) or die("ERRO_001 : nao achou o
arquivo
$pathFile");
}
sub getNextRow {
while (<ARQ>) {
$linha=$_;
@temp=split(' ',$linha);
if ( @temp != 10 ) { next; }
$firstChar = substr($temp[1],0,1);
if ( $firstChar eq "-" ) {
return $linha;
}
}
return("[FIM]");
}
#---------------------------------------------
# package : SpyDir1
# cria o snap_now.txt
# imagem atual do diretorio
#----------------------------------------------
package SpyDir1;
sub new {
my $x=94;
my $ref= \$x;
bless $ref, SpyDir1;
return $ref;
}
sub initFile {
($class, $pathScripts, $pathFileSnapNow,
$pathDirSpyNow ) [EMAIL PROTECTED];
system("$pathScripts/snap.sh $pathFileSnapNow
$pathDirSpyNow ");
open(ARQ1, $pathFileSnapNow) or die("ERRO_001 : nao
achou o
arquivo
$pathFileSnapNow");
}
sub getNextRow {
while (<ARQ1>) {
$linha=$_;
@temp=split(' ',$linha);
if ( @temp != 10 ) { next; }
$firstChar = substr($temp[1],0,1);
if ( $firstChar eq "-" ) {
return $linha;
}
}
return("[FIM]");
}
sub syncFiles {
($class, $pathScripts, $pathFileNow,
$pathFileAnterior) = @_;
system("$pathScripts/copia.sh $pathFileNow
$pathFileAnterior");
}
#------------------------------
# package : Parametro
#------------------------------
package Parametro;
$pathRoot="/qqcoisa/auditoria"; #diretorio base
$file = $pathRoot . "/dados/snap_now.txt"; #imagem
atual
$fileDir= $pathRoot . "/dados/snap_dir.txt"; #imagem
anterior
$pathScripts=$pathRoot . "/scripts"; #onde está o
script
$pathDirSpyNow="/blabla/web"; #diretório a ser
espionado
$pathDados=$pathRoot . "/dados";
$pathArchive=$pathRoot . "/archives";
sub new {
my $x=91;
my $ref= \$x;
bless $ref, Parametro;
return $ref;
}
sub getPathArchive {
return $pathArchive;
}
sub getPathSnap {
return $pathDados . "/snap_dir.txt";
}
sub getPathRoot {
return $pathRoot;
}
sub getSnapFile {
return $pathDados . "/snap.txt";
}
sub getPathFileSnapNow { # @01
return $pathDados . "/snap_now.txt";
}
sub getPathHist {
return $pathDados . "/history.txt";
}
sub getPathDirSpyNow { # @01
return $pathDirSpyNow;
}
sub getPathScripts { # @01
return $pathScripts;
}
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
---------------------------------------------------------------------------
Esta lista é patrocinada pela Conectiva S.A. Visite http://www.conectiva.com.br
Arquivo: http://bazar2.conectiva.com.br/mailman/listinfo/linux-br
Regras de utilização da lista: http://linux-br.conectiva.com.br
FAQ: http://www.zago.eti.br/menu.html
