[Cascavel-pm] Criar diretorio/subdiretorio

[Patty Silva]

Pessoal... Obrigada pela ajuda..
eu usei o use File::Path;

$dir = strftime('%Y/%m', localtime(time));

if(-e $dir)
{
print "EXISTE\n";
}
else
{
eval { mkpath($dir) };
if($@)
{
    print "Nao foi possivel criar $dir: $@";
}



deu certoo.. :D

Oberdan Luiz May <oberdan.luiz em gmail.com> escreveu:    Olá,

   Podia tentar o seguinte:

   
   use strict;
   use warnings;
   use File::Path;

   my $date = '20030512';
   my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;

   mkpath("$year/$month/$day" , 0 , 0711)
     unless( -d "$year/$month/$day" );
   

    Mas que eu me lembre, não dá erro se o diretório já existe...

    []'s


On 5/8/07, Patty Silva 
 wrote:
>
> Ola Pessoal..
> Estou gerando uns arquivos e quero grava-los em diretorios com o ano mes e
> dia (algo organizado), estou fazendo:
> ex:
>
> my $date = '20030512';
> my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;
>
> mkdir $year unless -d $year;
> mkdir "$year/$month" unless -d "$year/$month";
> mkdir "$year/$month/$day" unless -d "$year/$month/$day";
>
> Tem outra maneira?
> Outra coisa... tenho que verificar se ja existe para nao criar de novo..
>
> Obrigada
> :P
>
>
>
> __________________________________________________
> Fale com seus amigos de graça com o novo Yahoo! Messenger
> http://br.messenger.yahoo.com/
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070508/260a1dec/attachment.html