Changeset 24 in mp3-find for trunk

Timestamp:

04/09/06 19:36:20 (19 years ago)

Author:

peter

Message:

• use Sort::Key natural sorting in Filesystem.pm, if Sort::Key is installed

File:

• trunk/lib/MP3/Find/Filesystem.pm (modified) (2 diffs)

trunk/lib/MP3/Find/Filesystem.pm

@@ -9 +9 @@
 use MP3::Info;
 use Scalar::Util qw(looks_like_number);
+
+eval {
+    require Sort::Key;
+    Sort::Key->import(qw(multikeysorter));
+    use Sort::Key::Natural;
+};
+my $USE_SORT_KEY = $@ ? 0 : 1;
 
 use_winamp_genres();
@@ -46 +53 @@
     # sort the results
     if (@$sort) {
-        @results = sort {
-            my $compare;
-            foreach (map { uc } @$sort) {
-                # use Scalar::Util to do the right sort of comparison
-                $compare = (looks_like_number($a->{$_}) && looks_like_number($b->{$_})) ?
-                    $a->{$_} <=> $b->{$_} :
-                    $a->{$_} cmp $b->{$_};
-                # we found a field they differ on
-                last if $compare;
-            }
-            return $compare;
-        } @results;
+        if ($USE_SORT_KEY) {
+            # use Sort::Key to do a (hopefully!) faster sort
+            #TODO: profile this; at first glance, it doesn't actually seem to be any faster
+            #warn "Using Sort::Key";
+            my $sorter = multikeysorter(
+                sub { my $info = $_; map { $info->{uc $_} } @$sort },
+                map { 'natural' } @$sort
+            );
+            @results = $sorter->(@results);
+        } else {
+            @results = sort {
+                my $compare;
+                foreach (map { uc } @$sort) {
+                    # use Scalar::Util to do the right sort of comparison
+                    $compare = (looks_like_number($a->{$_}) && looks_like_number($b->{$_})) ?
+                        $a->{$_} <=> $b->{$_} :
+                        $a->{$_} cmp $b->{$_};
+                    # we found a field they differ on
+                    last if $compare;
+                }
+                return $compare;
+            } @results;
+        }
     }