Doh!! Makes me humble every time.....
Thanks for your help. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Tuesday, August 05, 2003 12:54 PM To: Smith Jeff D; '[EMAIL PROTECTED]' Subject: RE: Structuring Data in Perl ------------------------------------------------ On Tue, 5 Aug 2003 12:03:34 -0400 , Smith Jeff D <[EMAIL PROTECTED]> wrote: > Thanks for the response-I think that's got it. I must have tried > everything but the correct approach, which looks so obvious after the > fact. > > One small question. In your sample code below, what format can I use > to refer to the individual members of the array referenced by $array > in the "each" loop? > > --I know that @$array will produce all members of the array within the > hash--how do I refer to the individual members of this array > reference, however big it might be--1 to whatever number of elements. > In other words, if @$array for server01 contains "SUCCESS Today's Date > Other Details" and "WARNING Today's date Other", how do I refer to > array0 and array1 properly in a loop so I can deal with each one > separately---I know it isn't @$array[0] and @array$[1] because of the > errors I get, so it must be something else, ->[0], ->[1] but see the > following warning even though it gives me a result (this is a loop > following the grabbing of the $server and $array in the while/each > loop snippet you sent---- > > foreach my $i (@$array) { Right here you have alraedy stored the array reference to $array, so when you foreach over the array you are actually getting each element (detail line) into $i. So... > print "Detail: @$array->[$i]\n"; #Produces the following > warning: In the above you are trying to index into an array using the value from that array rather than an index. In other words what you are trying to retrieve is already in $i. If you want to access individual elements of the array by index you need to loop over an index range, not the array values themselves. For instance, foreach (0 .. @$array) { print $array->[$_]; } > Argument "SUCCESS06/01/2003What wasn't done > before\n" isn't numeric in array ele > ment at > C:\local\win32app\EventLog\EventDumperinPerl\ha.pl line 29, <DATA> line > 5. > Detail: WARNING06/01/2003Here are some details > Now the really cool thing is that you can remove (if you want) the temporary array dereference and access the elements directly, say you want the first element of the 'server1's log... $servers->{'server1'}->[0]; Or the first 5 elements of each of the servers... - Untested - foreach my $servername (keys (%$servers)) { my @first5lines = $servers->{$servername}->[0 .. 4]; } There are any number of ways to access into the data structure directly. Experience is about the only way to truly "get it" and once you do you won't lose it again, and the doors will seemingly flood open to its uses, and of course there is Perl OOP... http://danconia.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
