Hi, I have tried following an example for a Hash of Hash to add an extra layer but it has not worked. When I try to get hold of the third and final hash the keys are not found in the second hash.
The data structure is.
Database (Pages (Page Hits or instances)))
I can get hold of the pages but not the page instances.
Here is the code:
dbmopen (%hitsdb,$db,0755) || print "can't dbmopen hitsb: $!";
if ($hitsdb{$page}) {
$key = "$Year$Month$hour$referer";
print $key;
if ($hitsdb{$page}->{$key}) {
$hitsdb{$page}->{$key}->{'counter'}++;
print "increment instance";
}
else {
%hitsdb = (
$page => {
$key => {
'year' => $Year,
'month' => $Month,
'day' => $month_day,
'referer' => $referer,
'counter' => 1
}
}
);
print "new instance";
}
}
else {
$key = "$Year$Month$hour$referer";
print $key;
%hitsdb = (
$page => {
$key => {
'year' => $Year,
'month' => $Month,
'day' => $month_day,
'referer' => $referer,
'counter' => 1
}
}
);
print "new instance and page";
}
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.