[gentoo-user-de] Re: Audacious kann nach update keine playlists laden

[tannhauser]

Hallo,

könnte schöner sein, funktioniert aber. In einer Datei speichern,
ausführbar machen und die umzuwandelnde Datei als Parameter angeben, zB
so > ./neueplaylist.pl alteplayliste 
Raus kommt eine xspf, zwar ohne das ganze id3-Zeugs, aber Audacious
nimmt sie.

#!/usr/bin/perl 

use strict;
use warnings;

my @trackliste;
my $anfang = "<?xml version=\"1.0\"?>\n";
$anfang .= "<playlist>\n  <trackList>\n";
my $ende = "  </trackList>\n</playlist>";
push (@trackliste, $anfang);

open(ALT, "<$ARGV[0]") or die;
while (<ALT>) {
     chomp $_;
     push (@trackliste, "    <track>\n      <location>", $_,);
     push (@trackliste, "</location>\n    </track>\n");
}
close(ALT);
push (@trackliste, $ende);
 
open(NEU, ">$ARGV[0].xspf");
print NEU @trackliste;
close(NEU);

-- 
gentoo-user-de@g.o mailing list