perl -MData::Dumper -e '$n=\%h;for(split m#/#,"/usr/bin/perl"){$n->{$_}={}if$_;$n=\%{$n->{$_}}}print Dumper\%h'<br><br><div><span class="gmail_quote">Em 13/06/07, <b class="gmail_sendername">Flavio S. Glock
</b> <<a href="mailto:fglock@gmail.com">fglock@gmail.com</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Acho que entendi errado - era isso?
<br><br>$ perl -Mstrict -MData::Dumper -e ' my $p ="/var/log/syslog"; my $h =<br>{}; my $f = $h; grep { length $_ ? do { $f->{$_} = {}; $f = $f->{$_} }<br>: () } split( "/", $p ); print Dumper $h '
<br>$VAR1 = {<br> 'var' => {<br> 'log' => {<br> 'syslog' => {}<br> }<br> }<br> };
<br><br>- Flavio S. Glock<br><br>Em 13/06/07, Flavio S. Glock<<a href="mailto:fglock@gmail.com">fglock@gmail.com</a>> escreveu:<br>> $ perl -Mstrict -MData::Dumper -e ' my $p ="/var/log/syslog"; print
<br>> Dumper( { map { length $_ ? ($_, 1) : () } split( "/", $p ) } ); '<br>> $VAR1 = {<br>> 'syslog' => 1,<br>> 'var' => 1,<br>> 'log' => 1
<br>> };<br>><br>> Mas para quê você precisa disso?<br>><br>> - Flavio S. Glock<br>><br>> Em 13/06/07, Solli Honorio<<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>> escreveu:
<br>> > Pessoal,<br>> ><br>> > Tem alguma sugestão, quem sabe um Golf, para transformar um path,<br>> > /var/log/syslog por exemplo, em um hash {var}{log}{syslog}, sem ser via uma<br>> > função recursiva ?
<br>> ><br>> > Obrigado,<br>> ><br>> > Solli M. Honório<br>> ><br>> > --<br>> > "o animal satisfeito dorme". - Guimarães Rosa<br>> ><br>> > _______________________________________________
<br>> > Cascavel-pm mailing list<br>> > <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> > <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br>> ><br>><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando