[Cascavel-pm] Transformar 'path directory' em hash

[Fernando Oliveira]

perl -MData::Dumper -e '$n=\%h;for(split
m#/#,"/usr/bin/perl"){$n->{$_}={}if$_;$n=\%{$n->{$_}}}print Dumper\%h'

Em 13/06/07, Flavio S. Glock <fglock em gmail.com> escreveu:
>
> Acho que entendi errado - era isso?
>
> $ perl -Mstrict -MData::Dumper -e ' my $p ="/var/log/syslog"; my $h =
> {}; my $f = $h; grep { length $_ ? do { $f->{$_} = {}; $f = $f->{$_} }
> : () } split( "/", $p ); print Dumper $h '
> $VAR1 = {
>           'var' => {
>                      'log' => {
>                                 'syslog' => {}
>                               }
>                    }
>         };
>
> - Flavio S. Glock
>
> Em 13/06/07, Flavio S. Glock<fglock em gmail.com> escreveu:
> > $ perl -Mstrict -MData::Dumper -e ' my $p ="/var/log/syslog"; print
> > Dumper( { map { length $_ ? ($_, 1) : () } split( "/", $p ) } ); '
> > $VAR1 = {
> >           'syslog' => 1,
> >           'var' => 1,
> >           'log' => 1
> >         };
> >
> > Mas para quê você precisa disso?
> >
> > - Flavio S. Glock
> >
> > Em 13/06/07, Solli Honorio<shonorio em gmail.com> escreveu:
> > > Pessoal,
> > >
> > > Tem alguma sugestão, quem sabe um Golf, para transformar um path,
> > > /var/log/syslog por exemplo, em um hash {var}{log}{syslog}, sem ser
> via uma
> > > função recursiva ?
> > >
> > > Obrigado,
> > >
> > > Solli M. Honório
> > >
> > > --
> > > "o animal satisfeito dorme". - Guimarães Rosa
> > >
> > > _______________________________________________
> > > 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
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070613/7f457ec7/attachment.html