my $backup_nome = "$destino" . "$prefixo" . "$data_backup" . ".tar.bz2"; Que desperdício de processamento :P my $backup_nome = "$destino$prefixo$data_backup" . '.tar.bz2';
2011/1/14 Hélder Máximo Botter Ribas <helderri...@gmail.com>: > 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 >> >> > > > > -- > ------------------------------------ > 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 > -- "If you’ve never written anything thoughtful, then you’ve never had any difficult, important, or interesting thoughts. That’s the secret: people who don’t write, are people who don’t think." =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