http://www.perlmonks.org?node_id=488554

blahblah has asked for the wisdom of the Perl Monks concerning the following question:

Hello,

First off, I am really embarressed to be posting something that I thought would be so easy. I'm trying to parse filenames into hash trees. I'm humbled that I can't make this work. Arg.

#!/usr/bin/perl -w use strict; use Data::Dumper; $Data::Dumper::Deepcopy=1; $Data::Dumper::Purity=1; $Data::Dumper::Sortkeys=1; my @filenames = <DATA>; chomp @filenames; my $files = (); foreach my $file (@filenames) { print "processing file: $file\n"; foreach my $part (reverse split(/[-_.]/,$file)) { print "processing part: $part\n"; # $files = \{$part}; # nope # $files = \$files->{$part}; # nope # $files = \${$files->{$part}}; # nope # $files = \%{$files->{$part}}; # nope # $files = $files->{$part}; # nope # $files = {$files->{$part}}; # nope # $files = {$files->{$part}}; # nope # $files = ($files->{$part}); # nope # $files = \($files->{$part}); # nope # $files = ${$files->{$part}}; # nope # $files = {$part => $files}; # nope $files->{$part} = \$files; } } print "\n\nit looks like this:\n"; print Dumper($files); print "\n\nBut I want it to end up like this:\n"; my $test; $test->{'0001'}{test}{thing}{sgi} = 1; $test->{'1'}{tif} = 1; $test->{'2'}{tif} = 1; $test->{'10'}{tif} = 1; $test->{final}{'0001'}{tif} = 1; $test->{final}{'0002'}{tif} = 1; $test->{final}{'0003'}{tif} = 1; $test->{final}{'0004'}{tif} = 1; # etc.... print Dumper($test); __DATA__ 0001-test-thing.sgi 1.tif 10.tif 2.tif final-0002.tif final-0003.tif final-0004.tif final-0001.tif

reluctantly resigned,
blahblah