Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
my $new_key    = join '.', @keys;

printf "\$meows{%s} = %s\n", $new_key, $flat_meows->{$new_key};
  2. or download this
    18:26 >perl 831_SoPW.pl
$meows{kittehs.weather.tailflic} = rain

18:26 >