Help for this page

Select Code to Download

Select or download this

use Data::Dumper;
...
...
    print STDERR Dumper \%metrics;
    $metrics{$product}{$date}{$hour}{$user} = $val;
    print STDERR Dumper \%metrics;

Select or download this

C:\usr\local\share\PassThru\perl>perl -MData::Dumper -le "$metrics{pro
+duct}{today} = 'Wed'; print STDERR Dumper \%metrics"
$VAR1 = {
...
                         'today' => 'Wed'
                       }
        };