tr8000+2007-10-05 09:43:52--

Ich sortiere in meinem Script ein multidimensionales Array folgendermaßen:

Code: (dl )

@data = sort{ lcfirst $a->[1] cmp lcfirst $b->[1] } @data;

1
2
3
4

my $arr = [
  ['Bratwurst', 3.50, 'Eur']
  ['Eier', 70, 'Cent']
];