[Rio-pm] Cópia de arquivos entre computadores...

[Ailton Zacarias]

Resposta!


my $Lista = 'Arquivos.txt';
my $Caminho = 'Caminhos.txt';

BKP($Lista,$Caminho);

sub BKP{
    use File::Copy;
    open(my $file, q{<}, $_[0]);
    foreach my $arquivo ( <$file> ) {
       #Remove o último caractere apenas se for igual a $/ "Separador de
registro"
       chomp($arquivo);
       # Verifica se o arquivo existe
       if (-e $arquivo){
        open(my $caminho1, q{<}, $_[1]);
        foreach my $caminho2 ( <$caminho1> ) {
            chomp($caminho2);
            my $caminho3 = $caminho2."/".DataHora();
            mkdir $caminho3;
            copy($arquivo,$caminho3."/".$arquivo) or die "Copy failed: $!";
        }
       }
    }
    }

# Criar layout de data
sub DataHora{
    my($dd,$mm,$yy,$day,$hh,$nn) = (localtime)[3,4,5,6,2,1];
    my $today =  join '', map sprintf("%02d", $_),($yy%100,$mm+1,$dd,);
    my $hr = join '', map sprintf("%02d", $_),($hh,$nn);

    # "Vasio" = Data e hora | "1" Apenas Data
    my $data = $_[0] ? $today:$today.'_'.$hr;
    my $datahora = $data;

    return ($datahora);
    }


2009/7/16 Samir Cury <rimasy em gmail.com>

> Agora fiquei curioso, em Perl??
>
> 2009/7/16 Ailton Zacarias <ailtonzsilva em yahoo.com.br>
>
>> Muito Obrigado a todos consegui!!!!
>>
>> 2009/7/15 Dr Daniel Hughes <dsth em cantab.net>
>>
>>>  use NFS. assim não precisa modificar a programa.
>>>
>>>
>>> --
>>> Dr Daniel S. T. Hughes M.Biochem (Hons; Oxford), Ph.D (Cambridge)
>>> ------------------------------------------------------
>>> Tel:        +55 21 8344 9098
>>> Email:   dsth em cantab.net
>>>
>>> _______________________________________________
>>> Rio-pm mailing list
>>> Rio-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/rio-pm
>>>
>>
>>
>>
>> --
>> Ailton Zacarias
>> (11) 8405-8334
>>
>> MSN|ailtonzsilva em yahoo.com.br
>> Skype|ailton.zacarias
>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Ailton Zacarias
(11) 8405-8334

MSN|ailtonzsilva em yahoo.com.br
Skype|ailton.zacarias
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20090722/abb6b7c6/attachment.html>