Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

my @multi_array;

push @multi_array, [split] for <DATA>;
  2. or download this
    #!/usr/bin/perl

# my @multi_array = map {[split]} <DATA>;
  3. or download this
    my @by_vocation = sort {$a->[2] cmp $b->[2]} @multi_array;

...
Mary Heartman Priest
John Ericsson Mathmetician
Tony Cisneros Chef