Re: How do I do a natural sort on an array?

[tye]

my %data;
foreach my $data (  @data  ) {
    ( my $sort= $data ) =~ s/(0*)(\d+)/
        pack("C",length($2)) . $1 . $2 /ge;
    $data{$sort}= $data;
}
my @sorted= @data{ sort keys %data };

Bugs and features

• Doesn't properly sort decimal values like 12.34
• Sorts negative integers in reverse after positive integers
• Requires more memory than other methods I'll be adding