<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>Sempre pode existir uma maneira melhor... você queria fazer exatamente o quê?<BR>
<BR>
Eu achei o trecho abaixo desnecessário:<BR>
<BR>
my $date = '20030512';<BR>my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;<BR><BR>
Por que você declarou isso dessa forma?<BR>
<BR>
E mesmo que Perl não lhe obrigue a usar parênteses abaixo:<BR>
<BR>mkdir $year unless -d $year;<BR>mkdir "$year/$month" unless -d "$year/$month";<BR>mkdir "$year/$month/$day" unless -d "$year/$month/$day";<BR><BR>Fica muito melhor visualizar dessa forma:<BR>
<BR>
mkdir($year) unless (-d $year);<BR>mkdir("$year/$month") unless (-d "$year/$month");<BR>mkdir("$year/$month/$day") unless -d ("$year/$month/$day");<BR><BR>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).<BR>
<BR>
Leitura obrigatória para você:<BR>
<BR>
perldoc perlstyle<BR>
<BR>
E essa aqui se você estiver preocupada com segurança.<BR>
<BR>
perldoc security<BR>
<BR>
Eu também escrevi um artigo sobre segurança básica no website <A href="http://www.perl.org.br">http://www.perl.org.br</A><BR>
<BR>
[]'s<BR>
Alceu<BR>
<BLOCKQUOTE>
<HR id=EC_stopSpelling>
Date: Tue, 8 May 2007 09:57:01 -0700<BR>From: ptfzs@yahoo.com.br<BR>To: cascavel-pm@pm.org<BR>Subject: [Cascavel-pm] Criar diretorio/subdiretorio<BR><BR>
<META content="Microsoft SafeHTML" name=Generator>
<STYLE>
.ExternalClass DIV
{;}
</STYLE>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: times new roman, new york, times, serif">
<DIV>Ola Pessoal..<BR>Estou gerando uns arquivos e quero grava-los em diretorios com o ano mes e dia (algo organizado), estou fazendo:<BR>ex:<BR><BR><PRE>my $date = '20030512';<BR>my ($year,$month,$day) = $date =~ /^(\d{4})(\d{2})(\d{2})$/;<BR><BR>mkdir $year unless -d $year;<BR>mkdir "$year/$month" unless -d "$year/$month";<BR>mkdir "$year/$month/$day" unless -d "$year/$month/$day";<BR><BR>Tem outra maneira?<BR>Outra coisa... tenho que verificar se ja existe para nao criar de novo..<BR><BR>Obrigada<BR>:P<BR></PRE><BR></DIV></DIV><BR>__________________________________________________<BR>Fale com seus amigos de graça com o novo Yahoo! Messenger <BR>http://br.messenger.yahoo.com/ </BLOCKQUOTE><br /><hr />Explore the seven wonders of the world <a href='http://search.msn.com/results.aspx?q=7+wonders+world&mkt=en-US&form=QBRE' target='_new'>Learn more!</a></body>
</html>