Em 14-01-2011 23:37, Daniel de Oliveira Mantovani escreveu:
my $date = Date::Simple->new(today);
my $data_backup = $date->format("%d-%m-%Y");
my $dia_da_semana = $date->day_of_week();
blééééh ^
my $date = DateTime->now;
...
preciso do "date_backup" => $date->ymd('/');
...
Putz!...muito mais simples!
Obrigado Daniel.
2011/1/14 Daniel de Oliveira Mantovani<daniel.oliveira.mantov...@gmail.com>:
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
