perl -MData::Dumper -e &#39;$n=\%h;for(split m#/#,&quot;/usr/bin/perl&quot;){$n-&gt;{$_}={}if$_;$n=\%{$n-&gt;{$_}}}print Dumper\%h&#39;<br><br><div><span class="gmail_quote">Em 13/06/07, <b class="gmail_sendername">Flavio S. Glock
</b> &lt;<a href="mailto:fglock@gmail.com">fglock@gmail.com</a>&gt; 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 &#39; my $p =&quot;/var/log/syslog&quot;; my $h =<br>{}; my $f = $h; grep { length $_ ? do { $f-&gt;{$_} = {}; $f = $f-&gt;{$_} }<br>: () } split( &quot;/&quot;, $p ); print Dumper $h &#39;
<br>$VAR1 = {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#39;var&#39; =&gt; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;log&#39; =&gt; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&#39;syslog&#39; =&gt; {}<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;};
<br><br>- Flavio S. Glock<br><br>Em 13/06/07, Flavio S. Glock&lt;<a href="mailto:fglock@gmail.com">fglock@gmail.com</a>&gt; escreveu:<br>&gt; $ perl -Mstrict -MData::Dumper -e &#39; my $p =&quot;/var/log/syslog&quot;; print
<br>&gt; Dumper( { map { length $_ ? ($_, 1) : () } split( &quot;/&quot;, $p ) } ); &#39;<br>&gt; $VAR1 = {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;syslog&#39; =&gt; 1,<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;var&#39; =&gt; 1,<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;log&#39; =&gt; 1
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; };<br>&gt;<br>&gt; Mas para quê você precisa disso?<br>&gt;<br>&gt; - Flavio S. Glock<br>&gt;<br>&gt; Em 13/06/07, Solli Honorio&lt;<a href="mailto:shonorio@gmail.com">shonorio@gmail.com</a>&gt; escreveu:
<br>&gt; &gt; Pessoal,<br>&gt; &gt;<br>&gt; &gt; Tem alguma sugestão, quem sabe um Golf, para transformar um path,<br>&gt; &gt; /var/log/syslog por exemplo, em um hash {var}{log}{syslog}, sem ser via uma<br>&gt; &gt; função recursiva ?
<br>&gt; &gt;<br>&gt; &gt; Obrigado,<br>&gt; &gt;<br>&gt; &gt; Solli M. Honório<br>&gt; &gt;<br>&gt; &gt; --<br>&gt; &gt; &quot;o animal satisfeito dorme&quot;. - Guimarães Rosa<br>&gt; &gt;<br>&gt; &gt; _______________________________________________
<br>&gt; &gt; Cascavel-pm mailing list<br>&gt; &gt; <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>&gt; &gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br>&gt; &gt;<br>&gt;<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>[]&#39;s Fernando