Perl

DevonB · 02-18-2010, 07:06 AM

Greetings everyone -

I'm trying to figure out how to code for this specific type of instance -

I want to use a hash and have the key be a reference to an array, and not use the key in the standard way of it being a scalar. Basically, I have a large output that I need to process line by line, and rather have access to it as an array than a big block in a scalar.

For the big block hash as a scalar I would do -

Code:

foreach $CONTROLLER (<CONTROLLER_LIST>) {
  $ALL_DISKS{$CONTROLLER} = `ssh -n <commands>`;
  }

Now I know I could take the scalar and split it to another array after the fact like -

Code:

@TEMP_HOLD = split (/\s+/,$ALL_DISKS{$CONTROLLER});

How would I code it that I would have access to the key information as an array and not a scalar? I know it needs to be a pointer and we're going to have -> in there somewhere, but not sure how to approach it. Some of the documentaiton I've been reading about referencing I've found a little confusing so far, and trying to figure out how to use them in context of what I'm working on.

Thanks for the help!

Devon

Sergei Steshenko · 02-18-2010, 07:57 AM

Quote:

Originally Posted by DevonB

Greetings everyone -

I'm trying to figure out how to code for this specific type of instance -

I want to use a hash and have the key be a reference to an array, and not use the key in the standard way of it being a scalar. Basically, I have a large output that I need to process line by line, and rather have access to it as an array than a big block in a scalar.

For the big block hash as a scalar I would do -

Code:

foreach $CONTROLLER (<CONTROLLER_LIST>) {
  $ALL_DISKS{$CONTROLLER} = `ssh -n <commands>`;
  }

Now I know I could take the scalar and split it to another array after the fact like -

Code:

@TEMP_HOLD = split (/\s+/,$ALL_DISKS{$CONTROLLER});

How would I code it that I would have access to the key information as an array and not a scalar? I know it needs to be a pointer and we're going to have -> in there somewhere, but not sure how to approach it. Some of the documentaiton I've been reading about referencing I've found a little confusing so far, and trying to figure out how to use them in context of what I'm working on.

Thanks for the help!

Devon

Read

perldoc perlreftut
.