[SP-pm] Dúvida com o módulo File::Find
"Flávio R. Lopes"
flavio.lopes at links.inf.br
Tue Jul 13 14:42:27 PDT 2010
Puxa vida!...Que desleixo iMperdoável o meu!!!...acho que fiz a tiazinha
revirar na tuMba!
Por favor me desculpe, oh amado mestre!
Em 13-07-2010 14:09, Alexei Znamensky escreveu:
> vou ver se implemento um modulo chamado "Portugues" que ira apontador
> erros crassos na lingua materna, como por exemplo "desemcripta". Como
> diria a tia da 1a. série: "m só antes de p ou b"
>
> 2010/7/13 Giuliani Sanches <giulianisanches em gmail.com
> <mailto:giulianisanches em gmail.com>>
>
> Flávio,
>
> troca o seu $diretorios por:
>
> @diretorios = ('meu_diretorio/')
>
> Dentro da sua sub busca, você não precisa fazer um foreach pois a
> função find automaticamente percorre o array passado e
> disponibilizando o path dentro do callback que você passou, na
> variável $_.
>
> []'s
>
> 2010/7/13 "Flávio R. Lopes" <flavio.lopes em links.inf.br
> <mailto:flavio.lopes em links.inf.br>>:
> > Olá Alexei!
> > Ok, vou dar uma lida novamente!
> >
> > De qualquer forma, abaixo segue o erro:
> >
> > #############
> > Use of uninitialized value $cmd in pattern match (m//) at
> > /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736, <GEN0>
> line 1.
> > Use of uninitialized value $cmd in concatenation (.) or string at
> > /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736, <GEN0>
> line 1.
> > protocol error: expected ENC_TO got :
> > at /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 154
> > GnuPG::abort_gnupg('GnuPG=HASH(0x176b220)', 'protocol error:
> expected
> > ENC_TO got : \x{a}') called at
> > /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 736
> > GnuPG::decrypt_postwrite('GnuPG=HASH(0x176b220)',
> 'ciphertext', ' . ',
> > 'output', ' . ', 'recipient', '0D59E2D1', 'passphrase',
> > '123-minha-senha-321', ...) called at
> > /usr/local/lib/perl5/site_perl/5.12.1/GnuPG.pm line 725
> > GnuPG::decrypt('GnuPG=HASH(0x176b220)', 'ciphertext', ' . ',
> 'output', '
> > . ', 'recipient', '0D59E2D1', 'passphrase',
> '123-minha-senha-321', ...)
> > called at /home/flavio/workspace/Ferramentas/Desemcripta.pl line 23
> > main::busca() called at
> /usr/local/lib/perl5/5.12.1/File/Find.pm line
> > 854
> > File::Find::_find_dir('HASH(0x1781b90)',
> '/home/flavio/teste_cripto', 5)
> > called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 722
> > File::Find::_find_opt('HASH(0x1781b90)',
> '/home/flavio/teste_cripto')
> > called at /usr/local/lib/perl5/5.12.1/File/Find.pm line 1297
> > #############
> >
> > Abraço!
> >
> > Em 13-07-2010 13:44, Alexei Znamensky escreveu:
> >
> > Se você não mostra a mensagem de erro, fica bem difícil de
> alguém te ajudar.
> > De cara, apesar de não causar (à primeira vista) um problema na
> execução,
> > você ter um laço do tipo foreach($_) { .. } dentro das suas subs
> é algo
> > desnecessário e indicativo de que você não entende direito o que
> está
> > fazendo.
> > Sugiro ler novamente, com mais cudado desta vez, a documentação do
> > File::Find.
> >
> > []s,
> > Russian
> > 2010/7/13 "Flávio R. Lopes" <flavio.lopes em links.inf.br
> <mailto:flavio.lopes em links.inf.br>>
> >>
> >> Pessoal, ainda não consegui fazer funcionar o programa para
> >> descriptografar os arquivos!
> >> Alguém poderia me dar uma ajudar?
> >>
> >> Abraço,
> >> Flávio
> >>
> >> Em 12-07-2010 20:40, "Flávio R. Lopes" escreveu:
> >>>
> >>> Boa noite pessoal!
> >>>
> >>> Fiz um programa (Encripta.pl) para encryptar recursivamente os
> arquivos
> >>> que ficam debaixo de uma árvore de um determinado diretório.
> >>> E o outro programa para desencriptar (Desencripta.pl) os
> arquivos que
> >>> foram encriptados pelo programa anterior.
> >>>
> >>> O programa para encriptar está funcionando:
> >>>
> >>> Encripta.pl:
> >>>
> >>> #!/usr/bin/perl
> >>>
> >>> use strict;
> >>> use warnings;
> >>> use 5.012;
> >>>
> >>> use File::Find;
> >>> use GnuPG qw( :algo );
> >>>
> >>> my $gpg = new GnuPG();
> >>>
> >>> my $diretorios = "/home/flavio/teste_cripto"; ## Aqui ainda
> pretendo
> >>> criar um array para "armazenar" uma lista com mais diretórios
> >>>
> >>>
> >>>
> >>> my $secret = "123-minha-senha-321"; ## Senha utilizada para
> criação da
> >>> Chave
> >>> my $arquivos;
> >>>
> >>> find( \&busca, $diretorios );
> >>>
> >>> sub busca {
> >>>
> >>> foreach ($_) {
> >>>
> >>> $gpg->encrypt(
> >>> plaintext => "$_",
> >>> output => "$_.gpg",
> >>> armor => 1,
> >>> sign => 1,
> >>> recipient => "0D59E2D1", ## Minha Chave
> >>> passphrase => $secret
> >>> );
> >>>
> >>> # say $_;
> >>>
> >>> }
> >>>
> >>> # unlink $_ if /\.gpg$/;
> >>>
> >>> # print "$arquivos\n" if -f $arquivos;
> >>>
> >>> }
> >>>
> >>>
> >>> O meu problema é para desencriptar os dados. Eu rodo o
> programa abaixo
> >>> (Desencripta.pl) e dá um erro que não estou conseguindo entender:
> >>>
> >>> Desencripta.pl:
> >>>
> >>> #!/usr/bin/perl
> >>>
> >>> use strict;
> >>> use warnings;
> >>> use 5.012;
> >>>
> >>> use File::Find;
> >>> use GnuPG qw( :algo );
> >>>
> >>> my $gpg = new GnuPG();
> >>>
> >>> my $diretorios = "/home/flavio/teste_cripto";
> >>>
> >>> my $secret = "123-minha-senha-321";
> >>> my $arquivos;
> >>>
> >>> find( \&busca, $diretorios );
> >>>
> >>> sub busca {
> >>>
> >>> foreach ($_) {
> >>> $gpg->decrypt(
> >>> ciphertext => " $_ ",
> >>> output => " $_ ",
> >>> recipient => "0D59E2D1",
> >>> passphrase => $secret
> >>> );
> >>>
> >>> ## say $_; --> Aqui eu dei um "say" nesta variável para
> verificar se
> >>> realmente estava trazendo os nomes dos arquivos e o
> >>> gozado é que é que ela lista todos os arquivos que foram
> >>> encriptados, mas mesmo assim dá um erro quando rodo o
> >>> programa
> >>>
> >>>
> >>>
> >>> }
> >>> }
> >>>
> >>> O que está errado no meu programa?
> >>>
> >>> Abraço,
> >>> Flávio
> >>> _______________________________________________
> >>> SaoPaulo-pm mailing list
> >>> SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
> >>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
> >>>
> >>
> >> _______________________________________________
> >> SaoPaulo-pm mailing list
> >> SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
> >> http://mail.pm.org/mailman/listinfo/saopaulo-pm
> >
> >
> >
> > --
> > Alexei Znamensky [russoz_gmail_com] [russoz.wordpress.com
> <http://russoz.wordpress.com>]
> > [www.flickr.com/photos/alexeiz
> <http://www.flickr.com/photos/alexeiz>]
> > "Though we live in trying times, we're the ones who have to try"
> >
> > _______________________________________________
> > SaoPaulo-pm mailing list
> > SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
> > http://mail.pm.org/mailman/listinfo/saopaulo-pm
> >
> > _______________________________________________
> > SaoPaulo-pm mailing list
> > SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
> > http://mail.pm.org/mailman/listinfo/saopaulo-pm
> >
>
>
>
> --
> Giuliani Sanches
> twitter.com/giulianisanches <http://twitter.com/giulianisanches>
> giulianisanches.blogspot.com <http://giulianisanches.blogspot.com>
>
> Como elaborar uma pergunta:
> http://www.istf.com.br/perguntas/
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org <mailto:SaoPaulo-pm em pm.org>
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
>
>
>
> --
> Alexei Znamensky [russoz_gmail_com] [russoz.wordpress.com
> <http://russoz.wordpress.com>] [www.flickr.com/photos/alexeiz
> <http://www.flickr.com/photos/alexeiz>]
> "Though we live in trying times, we're the ones who have to try"
>
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
-------------- Pr�xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20100713/f739597e/attachment.html>
More information about the SaoPaulo-pm
mailing list