Pessoal... Obrigada pela ajuda..<br>eu usei o use File::Path;<br><br>$dir = strftime('%Y/%m', localtime(time));<br><br>if(-e $dir)<br>{<br>print "EXISTE\n";<br>}<br>else<br>{<br>eval { mkpath($dir) };<br>if($@)<br>{<br> print "Nao foi possivel criar $dir: $@";<br>}<br><br><br><br>deu certoo.. :D<br><br><b><i>Oberdan Luiz May <oberdan.luiz@gmail.com></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Olá,<br><br> Podia tentar o seguinte:<br><br> <code><br> use strict;<br> use warnings;<br> use File::Path;<br><br> my $date = '20030512';<br> my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;<br><br> mkpath("$year/$month/$day" , 0 , 0711)<br> unless( -d "$year/$month/$day" );<br> </code><br><br> Mas que eu me lembre, não dá erro se o diretório já existe...<br><br> []'s<br><br><br>On 5/8/07, Patty Silva <ptfzs@yahoo.com.br>
wrote:<br>><br>> Ola Pessoal..<br>> Estou gerando uns arquivos e quero grava-los em diretorios com o ano mes e<br>> dia (algo organizado), estou fazendo:<br>> ex:<br>><br>> my $date = '20030512';<br>> my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;<br>><br>> mkdir $year unless -d $year;<br>> mkdir "$year/$month" unless -d "$year/$month";<br>> mkdir "$year/$month/$day" unless -d "$year/$month/$day";<br>><br>> Tem outra maneira?<br>> Outra coisa... tenho que verificar se ja existe para nao criar de novo..<br>><br>> Obrigada<br>> :P<br>><br>><br>><br>> __________________________________________________<br>> Fale com seus amigos de graça com o novo Yahoo! Messenger<br>> http://br.messenger.yahoo.com/<br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> Cascavel-pm@pm.org<br>>
http://mail.pm.org/mailman/listinfo/cascavel-pm<br>><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></ptfzs@yahoo.com.br></blockquote><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/