[Cascavel-pm] Criar diretorio/subdiretorio
Patty Silva
ptfzs em yahoo.com.br
Terça Maio 8 10:34:58 PDT 2007
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
Mais detalhes sobre a lista de discussão Cascavel-pm