vc. pode fazer isto em Perl (isto dará uma quantidade menor de linhas) usando
recursividade não sei sabe Perl ... em caso positivo seria algo mais ou menos
assim:
sub ProcArvore
my ($DirInicial) = @_;
SubDirs = KdSubDir($DirIncial); # Esta rotina retornará os subdiretórios
válidos (não '.' e '..' ) de um diretório.
ProcDir(DirInicial);
foreach @SubsDirs {
ProcDir($_); # Realiza o
processamento que vc. deseja no diretório.
}
}
Acho que isto é um bom começo.
Espero ter ajudado.
Um abraço,
Nivaldo
wendel wrote:
> Olá lista,
>
> Já andei testando alguns scripts de compactação (uma
> forma de backup manula), de forma que compactaria todo
> o conteúdo de umd diretório, mas preciso comptactar
> somente alguns tipos de arquivos, como .TIF, .JPG e
> outras imagens, o que fiz for um script que pesquisava
> em find e passava para o gzip para compactar, mas todo
> o diretório era compactado, o que me fez perder muitos
> arquivos por erros em disco. O que preciso é o seguinte:
>
> O script que pesquise no diretório atual e compacte todas
> as as extenções passadas à ele e vá pra o próximo diretório e
> assim por diante. Idéias?
>
> (___) dotpix://wendelmaques.r.pereira
> oo / [EMAIL PROTECTED] // 447-3686
> |_/ http://www.dotpix.com.br/
>
> --
> To UNSUBSCRIBE, email to [EMAIL PROTECTED]
> with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
