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

[Flavio S. Glock]

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
> >
>