Hi, Please, I mean adjust not ajust. Thanks On Sat, Jul 7, 2012 at 10:33 PM, timothy adigun <2teezp...@gmail.com> wrote:
> Hi, > Just ajust Ken's code a little and you have your output just like you > wanted it. > > On Sat, Jul 7, 2012 at 3:00 PM, Ken Slater <kenslate...@gmail.com> wrote: > >> On Sat, Jul 7, 2012 at 9:07 AM, Chris Stinemetz >> <chrisstinem...@gmail.com> wrote: >> > Hello list, >> > >> > I have constructed an anonymous array with all the data I need. >> > I am having some difficulty in accessing and printing out the data the >> way >> > I want. >> > For the sake of not cluttering this thread too much I have uploaded the >> > anonymous array Data::Dumper output at github:gist >> > >> > https://gist.github.com/3066287 >> > >> > The output I am trying to achieve is simply printing out each index 0 >> for >> > each unique occurrence of index 1 (name1-6). >> > >> > For example: for name 5 in the anonymous array the output should be: >> > >> > 801 CDM 1, CCU 1, CE 3 2 >> > 812 CDM 1, CCU 1, CE 5 37 >> > 816 CDM 1, 2, CBR 3, 15MHz 12 >> > 817 CDM 1, 2, CBR 3, 15MHz 32 >> > 817 CDM 1, 2, CBR 1, 15MHz 4 >> > 831 CDM 1, 2, CBR 3, 15MHz 22 >> > 848 CDM 1, CCU 2, CE 1 8 >> > 873 CDM 1, CCU 1, CE 3 2 >> > 874 CDM 3, CCU 1, CE 5 18 >> > 886 ASMB 1 TXAMP 9 2 >> > >> > Cluster: Name5 >> > >> > _____________________________ >> > >> > 302 CDM 1, 2, CBR 1, 15MHz 2 >> > 317 CDM 1, 2, CBR 2, 15MHz 17 >> > 317 ASMB 1 TXAMP 6 15 >> > 340 TFU 1 4 >> > 371 CDM 1, 2, CBR 3, 15MHz 1 >> > 400 TFU 2 1 >> > 517 TFU 1 2 >> > 543 TFU 2 2 >> > >> > Cluster: Name6 >> > >> > >> > and print the rest of the instances just like the above. >> > >> > Sorry if this isn't clear let me know if there are any questions. >> > >> > Thanks in advance, >> > >> > Chris >> >> Hello, >> Probably many ways to do this. >> Below is an example using a subset of the data you posted )chaning >> $VAR1 to $arrayRef): >> >> use warnings; >> use strict; >> >> my $arrayRef = [ >> [ >> '9 TFU 2 1 >> ', >> 'Name1', >> 71, >> 1, >> 9 >> ], >> [ >> '33 CDM 1, 2, CBR 2, 5MHz 2 >> ', >> 'Name2', >> 72, >> 1, >> 33 >> ], >> [ >> '38 CDM 1, 2, CBR 1, 15MHz 4 >> ', >> 'Name2', >> 72, >> 1, >> 38 >> ], >> [ >> '46 CDM 1, 2, CBR 2, 15MHz 1 >> ', >> 'Name1', >> 71, >> 1, >> 46 >> ], >> [ >> '58 CDM 1, 2, CBR 3, 15MHz 4 >> ', >> 'Name3', >> 71, >> 1, >> 58 >> ], >> [ >> '917 ASMB 1 TXAMP 9 4 >> ', >> 'Name4', >> 90, >> 1, >> 917 >> ], >> [ >> '917 CDM 1, 2, CBR 2, 15MHz 5 >> ', >> 'Name4', >> 90, >> 1, >> 917 >> ], >> [ >> '965 CDM 1, CCU 1, CE 5 1 >> ', >> 'Name4', >> 90, >> 1, >> 965 >> ] >> ]; >> >> my %hashByName; >> >> # Store all lines of interest by name >> foreach my $anotherArrayRef ( @$arrayRef ) >> { >> push @{$hashByName{$anotherArrayRef->[1]}}, $anotherArrayRef->[0]; >> } >> >> foreach my $name ( sort keys %hashByName ) >> { >> > print $/; > >> foreach my $value ( @{$hashByName{$name}} ) >> { >> # These lines appear to have a newline included >> print $value; >> } >> > print "Cluster: ",$name,$/; > >> } >> >> HTH, Ken >> >> -- >> To unsubscribe, e-mail: beginners-unsubscr...@perl.org >> For additional commands, e-mail: beginners-h...@perl.org >> http://learn.perl.org/ >> >> >> > > > -- > Tim > > -- Tim
