Ups, die ist wohl zwei mal raus gegangen. Egal, ich habe gerade das Script noch mal auf einigen Verzeichnisse angewendet und ein Problem bemerkt: Es sollten nicht mehrere Punkte im Dateinamen vorkommen. Da der Player sowieso nur MP3's will, habe ich das einfach "umgangen", indem die Dateinamenserweiterung fest auf "MP3" gesetzt wird: ------------------------------------------------------------ #!/usr/bin/perl -w use strict; use POSIX; my @dirlist; my $directory; my $outputfile; my $cd_dir; if ($ARGV[0] !~ /-h/) { $cd_dir=$ARGV[0]; } else { &printhelp; } opendir($directory,$cd_dir) or die ('unable to open directory '.$cd_dir.'!');; @dirlist = readdir $directory; close($directory); @dirlist = sort { lc($a) cmp lc($b) } @dirlist; my $output_file=$cd_dir.'/dirinfo.txt'; open($outputfile,'>'.$cd_dir.'/!dirinfo.txt') or die ('unable to open file'.$cd_dir.'/!dirinfo.txt'); foreach ( @dirlist) { if( $_ ne '.' && $_ ne '..' && $_ !~ 'dirinfo') { print $outputfile substr((split(/\./,uc($_)))[0],0,6)."~1.MP3:".$_."\r\n"; } } close($outputfile); exit 0; sub printhelp { print "Help\n"; print "usage: ./dirinfo.pl [cddir]\n"; print "script for generating info file with alphabetical list of music files in a directory for Loudlink.eu audio device\n"; print " no warranty no support. use for own risk!\n"; exit 0; } ------------------------------------------------------------ Jetzt sollte es problemlos funktionieren.... -- Mit freundlichen Grüßen Sebastian Reinhardt -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org