Just delete what you don't want to sort by:
#!/usr/bin/perl -l # http://perlmonks.org/?node_id=1207205 use strict; use warnings; my @array = qw{ Patch_11.4 Patch_1.0 Patch_2.0 Patch_3.1 Patch_5.0 Patch_4.2 Patch_6.0 Patch_11.0 Patch_7.0 Patch_8.0 Patch_9.3 Patch_10.2 Patch_11.2 }; print for sort { $a =~ tr/0-9.//cdr <=> $b =~ tr/0-9.//cdr } @array;
In reply to Re: sorting an array with decimal points
by tybalt89
in thread sorting an array with decimal points
by levW
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |