[SP-pm] Cópia de arquivos

Luis Motta Campos luismottacampos em yahoo.co.uk
Quarta Maio 23 05:59:19 PDT 2007


   Diogo, alguma vez na vida você escutou falar do rsync?

   Eu tenho a impressão de que o seu problema poderia ser resolvido  
de uma maneira muito mais simples e fácil com o rsync... dá uma  
perguntada para o Bibliotecário Bêbado sobre isso...

   Putamplexos!

On May 23, 2007, at 12:58 PM, Diogo Rocha Bezerra wrote:
> Caros,
> Bom dia!
>
> Necessito várias vezes durante o dia, fazer cópia de arquivos de  
> log (texto simples)que se encontram em vários servidores.
> Segue abaixo um esboço do que estou tentando automatizar..
>
> #carrega lista de servidores e ip
> $servidor = $dbh->prepare("SELECT nom_servidor,ip_servidor from  
> servidores where cod_servidor = 1") or die "$DBI::errstr\n";
> $servidor->execute() or die "$DBI::errstr\n";
>
> # efetua cópia dos log´s para a estação
>
> while(my $result = $servidor->fetchrow_hashref())
> {
> 	$ip_server = $result->{ip_servidor};
> 	$ip_server =~ s/ //gi;
> 	$server = $result->{nom_servidor};
> 	$server =~ s/ //gi;
>
>   #mapeia unidade de rede
>   print "Conectando-se ao ".$server."\n";
> 	system("NET USE X: \\\\".$server. "\\compartilhamento\\LOG / 
> USER:AAAAA BBBBB");
>
>   #cria diretório se não existir
> 	system("IF NOT EXIST ".$dir_sistema."\\temp\\".$server." (MKDIR ". 
> $dir_sistema."\\temp\\".$server.")");
>
>   #copia log
> 	print "Copiando ".$nom_log_proc."\n";
> 	system("copy x:\\".$nom_log_proc." ".$dir_sistema."\\temp\\". 
> $server."\\ /Y");
>
> print "\n";
>
>   #deleta unidade de rede
> 	system("NET USE X: /D");
>
> }
>
> Porém como o arquivo a ser copiado é muito grande +- 3,5Mb, quando  
> realizo a cópia ele fica bloqueado para edição impedindo que sejam  
> inseridas novas informações no log.
>
> Existe alguma forma de codificar, sem usar o Sistema Operacional,  
> que eu consiga realizar essa cópia sem bloquear o arquivo?
>
> Desde já agradeço a atenção de todos.
>
> Diogo Rocha Bezerra
> Operações - Suporte SIV
> HBSIS Informática Ltda - CMMI
> ' (47) 2123-5845
> diogo em hbsis.com.br
> www.hbsis.com.br
> msn: op3drb
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm

--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}




Mais detalhes sobre a lista de discussão SaoPaulo-pm