Parse Array Into Hash

[rigadon]

Hi everyone!

I have a form with various check boxes on it - each named something like:

community_change_setting_NOTIFY_BLOG_1_POST
community_change_setting_NOTIFY_BLOG_1_COMMENT
community_change_setting_NOTIFY_BLOG_2_POST
community_change_setting_NOTIFY_BLOG_2_COMMENT
community_change_setting_NOTIFY_POST
community_change_setting_NOTIFY_COMMENT

The values are stored in a hash %Q. I am trying to format these into the following hash:

  my $settings = {
                   NOTIFY => {
                               BLOG => {
                                         1 => {
                                                POST => $Q{whatever},
                                                COMMENT => $Q{whatever},
                                              },
                                         2 => {
                                                POST => $Q{whatever},
                                                COMMENT => $Q{whatever},
                                              },
                                       },
                               POST => $Q{whatever},
                               COMMENT => $Q{whatever},
                             },
                  };

Any thoughts? At the moment my best effort is the following but it obviously doesn't work

  my $settings;
  foreach my $k (sort keys %Q)
  { if ($k =~ m/^community_change_settings_(.*)$/)
    { my @keys = split('_', uc $1);
      my $set = $settings;
      foreach my $k (@keys)
      { $set = $set->{$k};
      }
      $set = $Q{$k};
    }
  }

Thanks
Jay

[Ultimater]

Is this the structure you are talking about?

my %Q=("community_change_setting_NOTIFY_BLOG_1_POST" => "post1", "community_change_setting_NOTIFY_BLOG_1_COMMENT" => "comment1", "community_change_setting_NOTIFY_BLOG_2_POST" => "post2", "community_change_setting_NOTIFY_BLOG_2_COMMENT" => "comment2",  "community_change_setting_NOTIFY_POST" => "post", "community_change_setting_NOTIFY_COMMENT" => "comment");
  my $settings = {
                   NOTIFY => {
                               BLOG => {
                                         1 => {
                                                POST => $Q{community_change_setting_NOTIFY_BLOG_1_POST},
                                                COMMENT => $Q{community_change_setting_NOTIFY_BLOG_1_COMMENT},
                                              },
                                         2 => {
                                                POST => $Q{community_change_setting_NOTIFY_BLOG_2_POST},
                                                COMMENT => $Q{community_change_setting_NOTIFY_BLOG_2_COMMENT},
                                              },
                                       },
                               POST => $Q{community_change_setting_NOTIFY_POST},
                               COMMENT => $Q{community_change_setting_NOTIFY_COMMENT},
                             },
                  };

[Ultimater]

Give this a try:

#!/usr/bin/perl -w
use warnings;
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
print header;
my %Q=("community_change_setting_NOTIFY_BLOG_1_POST" => "post1", "community_change_setting_NOTIFY_BLOG_1_COMMENT" => "comment1", "community_change_setting_NOTIFY_BLOG_2_POST" => "post2", "community_change_setting_NOTIFY_BLOG_2_COMMENT" => "comment2",  "community_change_setting_NOTIFY_POST" => "post", "community_change_setting_NOTIFY_COMMENT" => "comment");

  my ($settings,@keys,$set,$k1);
  foreach my $k (sort keys %Q)
  { if ($k =~ m/^community_change_setting_(.*)$/)
    {
     @keys = split('_', uc $1);
     eval '$settings->{'.join('}->{',@keys).'}=$Q{$k};';
    }
  }

print '<pre>',Dumper $settings,'</pre>';
exit;

Too bad it uses 'eval', but whatever works.

[rigadon]

Cheers Ultimater - yeah I think eval is the only way I'm gonna be able to do this? Seems strange that there isn't a better way...