[Cascavel-pm] [Spam] Criar diretorio/subdiretorio

[André Garcia Carneiro]

> 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})$/;

perldoc -f localtime
 
> mkdir $year unless -d $year;
> mkdir "$year/$month" unless -d "$year/$month";
> mkdir "$year/$month/$day" unless -d "$year/$month/$day";


> Tem outra maneira?

Em Perl quase sempre tem outra maneira....

> Outra coisa... tenho que verificar se ja existe para nao criar de novo..

Dá uma olhada nos últimos e-mails, acabamos de discutir exatamente sobre isso.

> Obrigada
> :P
> 

Cheers!

--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org