Galera, de boa... Por que todo programador de Perl tem aversão ao velho e bom printf()?!
my $backup_nome = sprintf '%s%s%s.tar.bz2', $destino, $prefixo, $data_backup; ABS() 2011/1/15 Eden Cardim <edencar...@gmail.com> > perl -MO=Concise -le'print $destino . $prefixo . $data_backup . > q{.tar.bz2};'
=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