HASH issues

[Firemyst]

Hi there,

I have the following hash data structure. I have two issues:
1) how do I add to it?
2) how do I reference the lowest level array values from it?

For example, if I want to add another "test" value in the "heading" key of the "datestamp1" key of the "demo1" key, how do I do it?

Similarily, if I later want to print that value, how do I reference it?

I can't seem to figure it out.

Thanks!

%cals => {
"demo1" => {
"datestamp1" => {
"heading" => ["test1","test2", ... "testx"]
"event_num" => ["1","2",..."x"]
}
"datestampx" => {
"heading" => ["test1","test2", ... "testx"]
"event_num" => ["1","2",..."x"]
}
}
"demox" => {
"datestamp1" => {
"heading" => ["test1","test2", ... "testx"]
"event_num" => ["1","2",..."x"]
}
"datestampx" => {
"heading" => ["test1","test2", ... "testx"]
"event_num" => ["1","2",..."x"]
}
}
}

 

[AHinMaine]

I do something similar in one of my scripts.

%enable = (
    #just for testing
    'testvar1' =>
        {
            'directory'    =>    '/tmp',
             'command'     =>    "ls -la /tmp/testvar1
                                  date"
        },
    #qmail
    'alias' =>
        {
            'directory'    =>    $qmaildir,
            'command'      =>    "putdiff.sh /var/qmail/alias alias"
        }

If I want the value for directory under alias, I could reference it like:

$enable{'alias'}->{'directory'}

Since yours goes a bit deeper, it should just be:

$foo{'bar'}->{'baz'}->{'quux'}

If you want to add a new value:

$foo{'bar'}->{'baz'}->{'quux'} = $quuux;

--
Andy

http://www.nachoz.com

"Historically speaking, the presence of wheels in Unix has never precluded their reinvention."
Larry Wall

 

[Haunter]

%cals => {
"demo1" => {
"datestamp1" => {
"heading" => "test1","test2", ... "testx"
"event_num" => "1","2",..."x"
}
"datestampx" => {
"heading" => "test1","test2", ... "testx"
"event_num" => "1","2",..."x"
}
}
OK this is dereferencing issue

try something like this.

$deref = $cals{demo1}->{datestamp1}->{heading}[0]

push $cals{demo1}->{datestamp1}->{heading}[0], $somearay_element;



haunter@battlestrata.com