Re: (jeffa) Re: When I try to create different objects i end up getting the same one over and over...

Replies are listed 'Best First'.
(jeffa) 3Re: When I try to create different objects i end up getting the same one over and over... by jeffa (Bishop) on Apr 26, 2002 at 16:40 UTC
I thought about why you chose a hash and didn't see the benefit. I guess i need to see your requirements first before making that judgement, but again, my point was to show you how to get the most out of Perl - how to break away from C-style coding. The resulting data structure is an array reference. This may not be what you want, however. Check this out (assuming your data file): `$_->dump_os for @agents; # yields: $VAR1 = [ 'SUN', 'Solaris 8' ]; $VAR1 = [ 'IBM', 'AIX 4.3.3' ]; # etc.` [download] Again, since i really do not know what your target is, i had to improvise. Now is the time when i wish i could be at your computer ... but alas ... if you want to continue this disussion, let's work via /msg and scratchpad's - no need to waste database space. ;) UPDATE: After some discussion via /msg's, i feel that storing the os's in a hash is not necessary at all. If you store them in an array reference as i have done, you can test for a particular OS by using grep. Here is an example: `foreach (@agents) { $_->dump_os if grep /AIX/, @{$_->{os}}; }` [download] Of course, you could also grep a hash, but that seems a bit like using a square on a round hole to me. ;) Good luck! jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l] [select]
Re: (jeffa) 3Re: When I try to create different objects i end up getting the same one over and over... by krujos (Curate) on Apr 26, 2002 at 20:17 UTC
jeffa thank you so much for your help, you have been great. I have been playing around with this a little more this afternoon, there is one thing I cant figure out. How do I refrence a specific element in os now? thanks Josh	[reply]
(jeffa) 5Re: When I try to create different objects i end up getting the same one over and over... by jeffa (Bishop) on Apr 26, 2002 at 21:53 UTC
So much for not wasting database space! :D Easy, let's say that i want to print the third object's second 'os' element. Piece of cake: `print $agents[2]->{os}->[1], "\n"; # or more succinctly print $agents[2]{os}[1], "\n";` [download] Read up on perlreftut and perlref for more info. jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]