[Cascavel-pm] Criar diretorio/subdiretorio

[Oberdan Luiz May]

   Olá,

   Podia tentar o seguinte:

   <code>
   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" );
   </code>

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

    []'s


On 5/8/07, Patty Silva <ptfzs em yahoo.com.br> 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
>