Files-Sortierung spezial

[kingchaos01]

Hallo!
Ich habe in einen Directory Files nach folgendem Schema:
bla bla - foo foo - 06-2000.mp3
bla foo - foo bar - 09-1987.mp3

also:
Interpret - Titel - Erscheinungsdatum.mp3

Ich hätte jetzt gerne eine Playlist erstellt, die ich nach dem Erscheinungsdatum aufsteigend sortiert haben möchte (Zuerst nach Jahr, dann nach Monat).

Ist sicher kein Problem, aber wie geh ichs an???

Danke + Grüße
Roland

[Sloter]

Meinst du eine Playlist für das Apachemodul mod_mp3?


Sloter

[kingchaos01]

nö, ich verwende einen "custom"-mp3-Player, an dem ich gerade umbastle...
Mit ir-Fernbedienung ;-)

Die Playlist ist einfach ein Directory-Listing....
Glaub das ganze ist auch unter ".nmu" oder so bekannt.

[_m3]

#!/usr/bin/perl
use strict;

my %sortlist;
my @files;
my $file;

opendir(DIR, $ARGV[0]) or die "can't opendir $ARGV[0]: $!";
@files = readdir(DIR);
closedir DIR;

foreach $file (@files) {
        next if($file eq '.' or $file eq '..');
        my @data = split(/\s*[-\.]\s*/,$file);
        $sortlist{"$data[3]$data[2]$data[0]$data[1]"} = $ARGV[0] . "/" . $file;
}

foreach (reverse sort keys %sortlist) {
        print $sortlist{$_} . "\n";
}

[kingchaos01]

Muchas Gracias!
Sieht echt lecker aus *gg*
Man braucht also DOCH Perl....

Greetz,
Roland

[_m3]

Natürlich!
Perl rulez!