Boa tarde,<br><br>Faz algum tempo que fiz um script p/ copiar arquivos conforme uma lista p/ uma determinada pasta no mesmo local do script. Agora preciso fazer com que os mesmos arquivos que estou copiando p/ esta pasta seja copiado tbm p/ uma outra pasta em outro computador em minha rede já pesquisei na net porem não consegui entender como faço isso... alguem pode me ajudar.<br>
<br>Segue código e modelo de Arquivo de Listagem:<br><br>[Código]<br><br>#!c:/Perl/perl.exe -w<br><br>use strict;<br>use warnings;<br><br>my $Lista = 'Arquivos.txt';<br>my $Caminho = 'BKP';<br><br>BKP($Lista,$Caminho);<br>
<br>sub BKP{<br># ARQV, DESTINO<br> use File::Copy;<br> open(my $file, q{<}, $_[0]);<br> foreach my $arquivo ( <$file> ) {<br> #Remove o último caractere apenas se for igual a $/ "Separador de regsitro" <br>
chomp($arquivo);<br> # Verifica se o arquivo existe<br> if (-e $arquivo){<br> mkdir $Caminho;<br> copy($arquivo,$_[1]."/".DataHora()."_".$arquivo) or die "Copy failed: $!";<br>
}<br> }<br> }<br><br># Criar layout de data<br>sub DataHora{<br> my($dd,$mm,$yy,$day,$hh,$nn) = (localtime)[3,4,5,6,2,1];<br> my $today = join '', map sprintf("%02d", $_),($yy%100,$mm+1,$dd,);<br>
my $hr = join '', map sprintf("%02d", $_),($hh,$nn);<br><br> # "Vasio" = Data e hora | "1" Apenas Data<br> my $data = $_[0] ? $today:$today.'_'.$hr;<br> <br>
my $datahora = $data;<br>
<br> return ($datahora);<br> }<br><br><br><br>-------------------------------------------------------------------------------------------------<br><br><br>[Arquivo de Listagem]<br><br>dbDados.mdb<br>dbContato.mdb<br>
<br><br><br clear="all">Obrigado!<br>