WCM Forum - Files-Sortierung spezial

WCM Forum (http://www.wcm.at/forum/index.php)

- Linux, UNIX, Open Source (http://www.wcm.at/forum/forumdisplay.php?f=13)

- - Files-Sortierung spezial (http://www.wcm.at/forum/showthread.php?t=37759)

kingchaos01

27.11.2001 19:05

Files-Sortierung spezial

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

27.11.2001 19:13

Meinst du eine Playlist für das Apachemodul mod_mp3?

Sloter

kingchaos01

27.11.2001 19:28

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	27.11.2001 20:06

Code:

#!/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

27.11.2001 20:25

Thx!

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

Greetz,
Roland

_m3	27.11.2001 20:36

Natürlich!
Perl rulez! :cool:

Alle Zeitangaben in WEZ +2. Es ist jetzt 12:18 Uhr.