<div>
@class=qw(aa bb cc dd ee ff);<br />
@money{@class}=(22,22,22,1<wbr />1,11,11);<br />
@height{@class}=(150,150,1<wbr />60,160,150<wbr />,160);<br />
@age{@class}=(9,10,9,10,9,<wbr />10);<br />
@lastname{@class}=(1,2,3,1<wbr />,2,3); &nbsp;#are you sure this is numeric?<br />

</div>


@class=qw(aa bb cc dd ee ff);
@money{@class}=(22,22,22,11,11,11);
@height{@class}=(150,150,160,160,150,160);
@age{@class}=(9,10,9,10,9,10);
@lastname{@class}=(1,2,3,1,2,3);  #are you sure this is numeric?


<div>
<div class="content wysiwyg-content">
I have the O'Reily Programming Perl book (2nd Ed.) that has sample code for sorting on multiple fields. &nbsp;The example is on page 218. &nbsp;I'll include the example here too.<br />
<br />
sub prospects {<br />
&nbsp; $money{$b} &lt;=&gt; $money{$a}<br />
&nbsp; &nbsp; or<br />
&nbsp; $height{$b} &lt;=&gt; $height{$a}<br />
&nbsp; &nbsp; or<br />
&nbsp; $age{$a} &lt;=&gt; $age{$b}<br />
&nbsp; &nbsp; or<br />
&nbsp; $lastname{$a} &lt;=&gt; $lastname{$b}<br />
&nbsp; &nbsp; or<br />
&nbsp; $a cmp $b;<br />
}<br />
@sortedclass = sort prospects @class;<br />
<br />
I understand what this code is supposed to do but I can't figure out the format of the data. &nbsp;Can someone explain what @class looks like. &nbsp;Is it some kind of array of hash tables?<br />
<br />
I need to sort a set of records based on multiple fields and print out the list of records in order. &nbsp;Any help with this would be appreciated.
</div>
</div>


I have the O'Reily Programming Perl book (2nd Ed.) that has sample code for sorting on multiple fields.  The example is on page 218.  I'll include the example here too.

sub prospects {
  $money{$b} <=> $money{$a}
    or
  $height{$b} <=> $height{$a}
    or
  $age{$a} <=> $age{$b}
    or
  $lastname{$a} <=> $lastname{$b}
    or
  $a cmp $b;
}
@sortedclass = sort prospects @class;

I understand what this code is supposed to do but I can't figure out the format of the data.  Can someone explain what @class looks like.  Is it some kind of array of hash tables?

I need to sort a set of records based on multiple fields and print out the list of records in order.  Any help with this would be appreciated.

Sorting on multiple fields

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.