Help for this page

Select Code to Download


  1. or download this
    use List::Util 'reduce';
    use Carp 'carp';
    
    ...
        my $leaf = reduce { $a->{$b}{'tree'} ||= {} } $root, @{$keys}[ 0 .
    +. $#$keys - 1 ];
        $leaf->{$keys->[-1]}{'value'} = $value;
    }