#!C:\\Perl\bin\perl.exe
opendir(Musik,"C:\Dokumente und Einstellungen\Stormy\Eigene Dateien\Eigene Musik\");
#ist mein Musikverzeichnis was ich hier öffne
@Liederliste=readdir Musik;
#hier speichere ich das Verzeichnis als
#.txt Datei in die @Liederliste
closedir(Musik);
$Anzahllieder=$Liederliste;
#hier zähle ich die Anzahl meiner Lieder durch
for ($s=0;$s<=$Anzahllieder;$s=$s+1)
#Angabe wieviele Titel es der Liste hinzufügen soll
{$Titel=index($Liederliste[$s],"@");push(@Titelliste,$Titel);}
#Befehl dass nur die einzelnen Werte der Liste bis zum "@"-Zeichen gelesen
#werden und in einer extra Liste abgespeichert werden
open(SPEICHERN,">C:\\Meine Verwaltung von Multimedia\Musik\Liederliste.txt");
print SPEICHERN @Liederliste;
close(SPEICHERN);
open(SPEICHERN2,">C:\\Meine Verwaltung von Multimedia\Musik\Titelliste.txt");
print SPEICHERN2 @Titelliste;
close(SPEICHERN2);
#Speicherung der 2 Listen in meinem Verwaltungsordner.