Cara,<br><br>Dê uma olhada no App::Rad (<a href="http://search.cpan.org/~garu/App-Rad-1.04/lib/App/Rad.pm">http://search.cpan.org/~garu/App-Rad-1.04/lib/App/Rad.pm</a>).<br><br>Solli M. Honorio<br><br><div class="gmail_quote">

Em 29 de setembro de 2010 20:12, &quot;Flávio R. Lopes&quot; <span dir="ltr">&lt;<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>&gt;</span> escreveu:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

Obrigado Nelson.<br>
Estarei estudando suas sugestões sim e vou ver no CPAN como funciona o Getopt::Long, pois até então não conhecia este módulo.<br>
<br>
abraço,<br>
Flávio<br>
<br>
<br>
<br>
<br>
Em 29-09-2010 19:33, Nelson Ferraz escreveu:<div><div></div><div class="h5"><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
2010/9/29 &quot;Flávio R. Lopes&quot;&lt;<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>&gt;:<br>
   <br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Olá pessoal.<br>
<br>
Fiz um programa que gera um backup dos diretórios informados pelo usuário e<br>
ainda criptografa o arquivo gerado.<br>
Gostaria que se possível vocês dessem uma olhada no código e me dessem<br>
sugestões para enxugar mais ou mesmo otimizá-lo.<br>
Quando digo &quot;enxugar&quot; e &quot;otimizar&quot; gostaria de sugestões, pois na verdade<br>
vocês poderiam escrever de outra forma que eu não tenha enxergado, para que<br>
eu possa ver outras formas de se escrever.<br>
<br>
Aqui segue ele: <a href="http://gist.github.com/603556" target="_blank">http://gist.github.com/603556</a><br>
<br>
Acho que a maior parte das funcionalidades para qual escrevi ele estariam<br>
prontas. O que ainda farei é dar a opção (STDIN) para que o usuário possa<br>
informar a senha, diretórios de origem, diretório de destino, nome do backup<br>
e tipo de compressão sem ter que ficar editando o código.<br>
     <br>
</blockquote>
Flavio,<br>
<br>
Parabéns pelo código, parece muito bom.<br>
<br>
Algumas recomendações:<br>
<br>
1) Escreva a interface do seu código em ingles. &quot;directory&quot; ao invés<br>
de &quot;diretorio&quot;, &quot;target&quot; ao invés de &quot;destino&quot;.<br>
<br>
2) Use o Getopt::Long para ler as opções de linha de comando. Alguma<br>
coisa como (obs: não testei o código a seguir):<br>
<br>
use Getopt::Long;<br>
<br>
my %options;<br>
<br>
my $result = GetOptions(<br>
     \%options,<br>
     &#39;directory|dir|d=s&#39;,<br>
     &#39;target|t=s&#39;,<br>
     &#39;prefix|p=s&#39;,<br>
);<br>
<br>
A partir daí você deve checar e usar as variáveis $opt{directory},<br>
$opt{target} e $opt{prefix}. Adicione mais opções de linha de comando<br>
se necessário.<br>
<br>
3) Escreva a documentação do seu código em formato POD, após o __END__:<br>
<br>
__END__<br>
<br>
=head1 NAME<br>
<br>
     <a href="http://backup.pl" target="_blank">backup.pl</a> - brief description of your script<br>
<br>
=head1 SYNOPSIS<br>
<br>
     <a href="http://backup.pl" target="_blank">backup.pl</a> [options]<br>
<br>
     Where options are:<br>
<br>
         --directory<br>
         --target<br>
         --prefix<br>
<br>
=head1 DESCRIPTION<br>
<br>
A more complete description of your module. (Purpose, etc)<br>
<br>
=head1 AUTHOR<br>
<br>
     Flávio R. Lopes&lt;<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>&gt;<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>
<br>
   <br>
</blockquote>
<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>
<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa<br>