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 = &#39;Arquivos.txt&#39;;<br>my $Caminho = &#39;BKP&#39;;<br><br>BKP($Lista,$Caminho);<br>

<br>sub BKP{<br># ARQV, DESTINO<br>    use File::Copy;<br>    open(my $file, q{&lt;}, $_[0]);<br>    foreach my $arquivo ( &lt;$file&gt; ) {<br>       #Remove o último caractere apenas se for igual a $/ &quot;Separador de regsitro&quot; <br>

       chomp($arquivo);<br>       # Verifica se o arquivo existe<br>       if (-e $arquivo){<br>           mkdir $Caminho;<br>           copy($arquivo,$_[1].&quot;/&quot;.DataHora().&quot;_&quot;.$arquivo) or die &quot;Copy failed: $!&quot;;<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 &#39;&#39;, map sprintf(&quot;%02d&quot;, $_),($yy%100,$mm+1,$dd,);<br>

    my $hr = join &#39;&#39;, map sprintf(&quot;%02d&quot;, $_),($hh,$nn);<br><br>    # &quot;Vasio&quot; = Data e hora | &quot;1&quot; Apenas Data<br>    my $data = $_[0] ? $today:$today.&#39;_&#39;.$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>