[Cascavel-pm] Criar diretorio/subdiretorio

[Alceu Rodrigues de Freitas Junior]

Sempre pode existir uma maneira melhor... você queria fazer exatamente o quê?
 
Eu achei o trecho abaixo desnecessário:
 
my $date = '20030512';my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;
Por que você declarou isso dessa forma?
 
E mesmo que Perl não lhe obrigue a usar parênteses abaixo:
mkdir $year unless -d $year;mkdir "$year/$month" unless -d "$year/$month";mkdir "$year/$month/$day" unless -d "$year/$month/$day";Fica muito melhor visualizar dessa forma:
 
mkdir($year) unless (-d $year);mkdir("$year/$month") unless (-d "$year/$month");mkdir("$year/$month/$day") unless -d ("$year/$month/$day");Fora isso seu programa está sujeito a race conditions... procure fazer operações atômicas para gerar os diretórios (embora eu confesse que não tenho certeza se dá para fazer com diretórios; com arquivos eu sei que sim).
 
Leitura obrigatória para você:
 
perldoc perlstyle
 
E essa aqui se você estiver preocupada com segurança.
 
perldoc security
 
Eu também escrevi um artigo sobre segurança básica no website http://www.perl.org.br
 
[]'s
Alceu


Date: Tue, 8 May 2007 09:57:01 -0700From: ptfzs em yahoo.com.brTo: cascavel-pm em pm.orgSubject: [Cascavel-pm] Criar diretorio/subdiretorio




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/ 
_________________________________________________________________
Explore the seven wonders of the world
http://search.msn.com/results.aspx?q=7+wonders+world&mkt=en-US&form=QBRE
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070508/99704d8a/attachment.html