Help for this page

Select Code to Download


  1. or download this
    my %inputdata = (
                 'Config->{blah}->{hat}' => "splat",
                 'Config->{cat}->[0]' => "doh",
                 'Config->{cat}->[1]' => "ray",
                );
  2. or download this
    my $evaltext;
foreach my $key (keys %inputdata) {
    $evaltext .= "\$$key = qq~$inputdata{$key}~;\n";
}#foreach
eval $evaltext;
  3. or download this
    foreach my $key (keys %inputdata) {
    my @keys = split(/->/, $key);
...
        }#if
    }#if    
}#foreach