"...get rid of string "Patch_" and compare only by the decimal point numbers...any ideas..."
Yep. Or i hope so. To me the output of this little TMTOWTDI looks "natural":
#!/usr/bin/env perl use strict; use warnings; use feature qw(say); use Data::Dump; my @array = qw(Patch_1.0 Patch_2.0 Patch_3.1 Patch_5.0 Patch_4.2 Patch_6.0 Patch +_7.0 Patch_8.0 Patch_9.3 Patch_10.2); dd \@array; say for sort { $a <=> $b } map { /.+_(.+)/; $1 } @array; __END__ karls-mac-mini:playground karl$ ./levW.pl [ "Patch_1.0", "Patch_2.0", "Patch_3.1", "Patch_5.0", "Patch_4.2", "Patch_6.0", "Patch_7.0", "Patch_8.0", "Patch_9.3", "Patch_10.2", ] 1.0 2.0 3.1 4.2 5.0 6.0 7.0 8.0 9.3 10.2
Best regards, Karl
«The Crux of the Biscuit is the Apostrophe»
perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help
In reply to Re: sorting an array with decimal points
by karlgoethebier
in thread sorting an array with decimal points
by levW
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |