stephan01
Erfahrenes Mitglied
mp3-dateien eines ordners aufzeigt und mich bei jeder nach ihrere nummer in der playlist fragt. diese sollte dann vor dem bisherigen namen der datei stehen....soweit (abfrage usw) funktioniert alles, nur nachher sind die datein noch genau wie vorher und in der erstellten Playlist stehen die alten (in der falschen reihenfolge)
hier der code:
danke für jede hilfe
hier der code:
Code:
#!/perl/
$target_file = shift() || "playlist.m3u";
open(WRITE,">> $target_file") or die "Falschgeschrieben - NANANANANAAAA!";
@filelist = <*.mp3>;
foreach $filename (@filelist) {
print $filename."\n";
print "\# in Playlist:\n";
$nr = <STDIN>;
rename($filename, $nr.$filename); #<--- hier hab ich irgendwie probleme....hab schon viele möglichkeiten, "'s einzufügen probiert
}
print "Alle Dateien durch - schreiben in Playlist\n";
@filelist2 = <*.mp3>;
foreach $filename2 (@filelist2){ print WRITE $filename2."\n"}
print "DONE.\n";
close(WRITE);
kill;
danke für jede hilfe