Resposta!<br><br><br>my $Lista = 'Arquivos.txt';<br>my $Caminho = 'Caminhos.txt';<br><br>BKP($Lista,$Caminho);<br><br>sub BKP{<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 registro" <br> chomp($arquivo);<br> # Verifica se o arquivo existe<br> if (-e $arquivo){<br> open(my $caminho1, q{<}, $_[1]);<br>
foreach my $caminho2 ( <$caminho1> ) {<br> chomp($caminho2);<br> my $caminho3 = $caminho2."/".DataHora();<br> mkdir $caminho3;<br> copy($arquivo,$caminho3."/".$arquivo) or die "Copy failed: $!";<br>
}<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> my $datahora = $data;<br>
<br> return ($datahora);<br> }<br><br><br><div class="gmail_quote">2009/7/16 Samir Cury <span dir="ltr"><<a href="mailto:rimasy@gmail.com">rimasy@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Agora fiquei curioso, em Perl??<br><br><div class="gmail_quote">2009/7/16 Ailton Zacarias <span dir="ltr"><<a href="mailto:ailtonzsilva@yahoo.com.br" target="_blank">ailtonzsilva@yahoo.com.br</a>></span><div class="im">
<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Muito Obrigado a todos consegui!!!!<br><br><div class="gmail_quote">2009/7/15 Dr Daniel Hughes <span dir="ltr"><<a href="mailto:dsth@cantab.net" target="_blank">dsth@cantab.net</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div></div><div>
use NFS. assim não precisa modificar a programa.<br><font color="#888888">
<br clear="all"><br>-- <br>Dr Daniel S. T. Hughes M.Biochem (Hons; Oxford), Ph.D (Cambridge)<br>------------------------------------------------------<br>Tel: +55 21 8344 9098<br>Email: <a href="mailto:dsth@cantab.net" target="_blank">dsth@cantab.net</a><br>
</font><br></div></div><div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></div></blockquote></div><div><div></div><div><br><br clear="all"><br>-- <br>Ailton Zacarias<br>
(11) 8405-8334<br><br>MSN|<a href="mailto:ailtonzsilva@yahoo.com.br" target="_blank">ailtonzsilva@yahoo.com.br</a><br>
Skype|ailton.zacarias<br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div></div><br>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Ailton Zacarias<br>(11) 8405-8334<br><br>MSN|<a href="mailto:ailtonzsilva@yahoo.com.br">ailtonzsilva@yahoo.com.br</a><br>
Skype|ailton.zacarias<br>