[SP-pm] Como incluir a opção "delete-before" (Modulo File::Rsync)

["Flávio R. Lopes"]

Isto mesmo!....já está funcionando!

Obrigado Lucas.

Em 15-09-2010 17:13, zechim, lucas escreveu:
> Flávio,
>
> Não seria como as opções compress, archive?
>
> delete-before =>  1?
>
>
> Lucas Zechim
>
>
>
>
> 2010/9/15 "Flávio R. Lopes"<flavio.lopes em links.inf.br>:
>    
>> Pessoal, estou fazendo um programa para sincronizar dados entre servidores.
>> Estou usando o módulo File::Rsync
>>
>> O programa funciona, mas agora eu precisarei incluir a opção "delete-before"
>> para apagar os arquivos de origem após a transferência, porém eu não sei
>> onde (ou como) incluir esta opção no programa.
>>
>> Pelo que andei lendo, eu acredito que tenho que colocar dentro da criação do
>> objeto, mas como é um hash então tenho que ter uma chave/valor, como em:
>>
>> my $obj = File::Rsync->new( { archive =>  1, compress =>  1, rsh =>
>> '/usr/bin/ssh', 'rsync-path' =>  '/usr/bin/rsync' } );
>>
>> Seria algo parecido com isso?
>> my $obj = File::Rsync->new( { archive =>  1, compress =>  1, rsh =>
>> '/usr/bin/ssh', 'rsync-path' =>  '/usr/bin/rsync', chave =>  'delete-before' }
>> );
>>
>> ou
>>
>> my $obj = File::Rsync->new( { archive =>  1, compress =>  1, rsh =>
>> '/usr/bin/ssh', 'rsync-path' =>  '/usr/bin/rsync', delete-before =>  'valor' }
>> );
>>
>>
>> Ou teria que incluir na chamada dele?
>> $obj->exec( { src =>  'flavio em servidor:/meu/path', dest =>  "$destino" } ) or
>> warn "rsync failed\n";
>>
>> abraço,
>> Flávio
>>
>> _______________________________________________
>> SaoPaulo-pm mailing list
>> SaoPaulo-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>>
>>      
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm