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

"Flávio R. Lopes" flavio.lopes at links.inf.br
Thu Sep 16 07:04:07 PDT 2010


Olá Fábio.
Me desculpe, pois me expressei de forma errada!
Vou apagar no diretório do servidor de DESTINO. Que aliás é o que faz o 
rsync.

E inclusive já fiz funcionar seguindo a sugestão do Lucas....

abraço,
Flávio

Em 16-09-2010 07:43, Fabio Adriano Soares escreveu:
> Flávio,
>
> Você disse que quer apagar os arquivos na origem após a sincronização, porém este comando que você está utilizando apagaria os arquivos no destino antes de iniciar a sincronização.
>
> É isso mesmo?
>
> Neste link você encontra o man do rsync:
> http://www.samba.org/ftp/rsync/rsync.html
>
> Abraço,
>
> Fábio
>
> -----Mensagem original-----
> De:<saopaulo-pm-bounces em pm.org>   Em nome de "Flávio R. Lopes"
> Enviada em: quarta-feira, 15 de setembro de 2010 16:15
> Para: Perl - SP
> Assunto: [SP-pm] Como incluir a opção "delete-before" (Modulo File::Rsync)
>
> 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
>
>    



More information about the SaoPaulo-pm mailing list