Na Documentação diz haver um parâmetro( o "<meta http-equiv="content-type" content="text/html; charset=utf-8"><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: medium; "><a name="untaint_skip"><code>untaint_skip</code></a></span>" ) que faz um skip do diretório, ou se preferir há uma extensão desse módulo que permiti vários tipos de controle, File::Find::Closures - <meta http-equiv="content-type" content="text/html; charset=utf-8"><a href="http://search.cpan.org/~bdfoy/File-Find-Closures-1.09/lib/Closures.pm">http://search.cpan.org/~bdfoy/File-Find-Closures-1.09/lib/Closures.pm</a><div>
<br></div><div>Quanto a descriptografia, é melhor perguntar como ela será realizada ? Talvez seja melhor você passar o(s) arquivo(s) como parâmetro, ou fazer uma consulta ao banco de dados, JSON, enfim.</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>
<br></div><div>Nunca testei esse módulo, mas se isso não resolver posta novamente que posso testar.<br clear="all"><br>[]s,<br><br><div>@webgenes<br>Marcio Ferreira<br><br></div><div><span style="font-family:sans-serif;line-height:16px"><span style="font-size:x-small">"<a style="text-decoration:none"><font color="#000000">Perl</font></a> lives as the 'toolbox for Unix' "</span></span></div>
<br>
<br><br><div class="gmail_quote">Em 26 de setembro de 2010 01:08, "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Olá pessoal.<br>
Na verdade estou "requentando" uma dúvida minha sobre um programa que comecei e não terminei.<br>
<br>
Estou tentando fazer 2 programas que tratam de criptografar e descriptografar dados recursivamente dentro de uma árvore de diretórios.<br>
<br>
O código deles está aqui: <a href="http://gist.github.com/597573" target="_blank">http://gist.github.com/597573</a><br>
<br>
No programa "<a href="http://criptografa.pl" target="_blank">criptografa.pl</a>" ele já consegue criptografar dados dos diretórios, mas está acontecendo um problema que ele criptografa o nome dos diretórios inclusive os ocultos. Supondo que eu aponte para um determinado diretório e que dentro dele eu tenha um diretório chamado "dir1" e mais dois arquivos chamados "arquivo1" e "arquivo2" ao rodar o programa e se eu der o comando "ls -al" dentro do tal diretório me aparece o seguinte:<br>
<br>
<br>
dir1<br>
arquivo1<br>
arquivo1.gpg<br>
arquivo2<br>
arquivo2.gpg<br>
dir1.gpg --> aqui criptograga o nome do diretorio<br>
..gpg -- > e aqui e no debaixo os diretórios ocultos<br>
..gpg.gpg<br>
<br>
Como faço para o programa "pegar" somente os arquivos para criptografar, ignorando os diretórios ?<br>
<br>
<br>
Já o programa "<a href="http://descriptografa.pl" target="_blank">descriptografa.pl</a>" ocorre um erro que não consegui descobrir e os arquivos não são descriptografados. Acredito que eu esteja errando alguma coisa ao utilizar o módulo File:Find na passagem de parâmetros.<br>
A mensagem de erro é esta:<br>
<br>
Protocol error: expected NEED_PASSPHRASE.* got NODATA<br>
at /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 154<br>
GnuPG::abort_gnupg('GnuPG=HASH(0xf99b48)', 'Protocol error: expected NEED_PASSPHRASE.* got NODATA\x{a}') called at /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 345<br>
GnuPG::send_passphrase('GnuPG=HASH(0xf99b48)', 123456) called at /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 740<br>
GnuPG::decrypt_postwrite('GnuPG=HASH(0xf99b48)', 'ciphertext', ., 'output', '..txt', 'symmetric', 1, 'passphrase', 123456, ...) called at /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 725<br>
GnuPG::decrypt('GnuPG=HASH(0xf99b48)', 'ciphertext', ., 'output', '..txt', 'symmetric', 1, 'passphrase', 123456, ...) called at /home/flavio/workspace/TESTE/<a href="http://decripto_teste.pl" target="_blank">decripto_teste.pl</a> line 34<br>
main::busca() called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 854<br>
File::Find::_find_dir('HASH(0xf99bd8)', '/home/flavio/teste_cripto', 3) called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 722<br>
File::Find::_find_opt('HASH(0xf99bd8)', '/home/flavio/teste_cripto/') called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 1297<br>
File::Find::find('CODE(0x11617a8)', '/home/flavio/teste_cripto/') called at /home/flavio/workspace/TESTE/<a href="http://decripto_teste.pl" target="_blank">decripto_teste.pl</a> line 18<br>
<br>
<br>
Parece que ele não localiza a senha. Mas eu tentei inclusive colocar a senha dentro da sub eliminando a variável $secret. Ou seja, fez desta forma: passphrase => "123456"<br>
<br>
O que está errado?<br>
<br>
Abraço,<br>
Flávio<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote></div><br></div>