eu gosto de utilizar o GetOpt Tipo
use Getopt::Long; my $destino $result = GetOptions ("destino=s" => \$destino); Dá uma olhada http://perldoc.perl.org/Getopt/Long.html Hélder 2011/1/14 "Flávio R. Lopes" <flavio.lo...@links.inf.br>: > Nossa!...que horrível ficou minha pergunta. Escrevi tudo errado!....deixa eu > corrigir: > > Fiz este Script com a intenção de gerar Backups Full e Incremental. > Acho que tem muito código repetido, principalmente nos blocos onde defino as > variáveis: > my $destino > my $prefixo > my $backup_nome > > Pensei em inserí-las dentro do escopo dos blocos por elas assumirem valores > diferentes. E inserindo dentro dos blocos, não teria que criar estas > variáveis com nomes diferentes. Não sei se estou sendo claro. > > E o que vocês melhorariam neste código? > > Hélder, você poderia me dar um exemplo de como usar os diretórios como > parâmetros? > > > Em 14-01-2011 23:23, Hélder Máximo Botter Ribas escreveu: >> >> os diretorios poderiam ser parametros, >> >> 2011/1/14 "Flávio R. Lopes"<flavio.lo...@links.inf.br>: >> >>> >>> Boa noite pessoal. >>> >>> Fiz um script para gerar backups: Incremental e Full. >>> Acho que além de te muito código repetido. >>> Se alguém tiver um tempinho, por favor dê uma olhada e que possa dar >>> alguma >>> sugestão de como melhorar mais este programa. >>> >>> O código está aqui: https://gist.github.com/780559 >>> >>> Abraço, >>> Flávio >>> >>> =begin disclaimer >>> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ >>> SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org >>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> >>> =end disclaimer >>> >>> >>> >> >> >> > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > -- ------------------------------------ Hélder Máximo Botter Ribas ------------------------------------ msn/gtalk: helderribas (at) gmail (dot) com ------------------------------------ =begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer