[ulloita]

Hi!!
I have a little problem
I want to sort an alphanumerical array:
For example:
("A10","A1","A20","A2","A11","AB1","A19","A32","A3 ","B5","B10","AF5")
sorted array will be:
("A1","A2","A3","A10","A11","A19","A20","A32","AB1 ","AF5","B5","B10")
How can i do that???
Thanks a lot

[senza_nome]

The way I read it, you want to "break" the "value" into two components - an alpha component and a numeric component. The values are to be ordered alphabetically with respect to the alpha components and numerically with respect to the numeric components. Is this correct?

[senza_nome]

This what you want?

my(@out)=sort {
  my($aA,$aN,$bA,$bN);
  if ($a =~ /([a-zA-Z]+)(\d+)/) { $aA=$1;$aN=$2;};
  if ($b =~ /([a-zA-Z]+)(\d+)/) { $bA=$1;$bN=$2;};
  if ($aA lt $bA) { return -1;}
  elsif ($aA gt $bA) { return 1;}
  else { return $aN <=> $bN};
   } ("A10","A1","A20","A2","A11","AB1","A19","A32","A3","B5","B10","AF5");