use strict; use warnings; use File::Find; use Cwd; use Getopt::Long; sub gen_playlist { my @files = @_; my $num_files = @files; my $plist; return if not @files; $plist = < Playlist generated by Perl XML for my $file (@files) { $plist .= qq( \n); } $plist .= < XML return $plist; } sub help { print <<'TXT'; findplay VERZECIHNIS DATEITYP Findet Musikdateien und erzeugt Windows Media Player Playlist findplay VERZECIHNIS DATEITYP Aufrufbeispiel: * Suche mit Angabe von Verzeichnis und typ findplay -dir "C:\Users\Test\Music" -type=.mp3 * Suche im aktuellen Verzeichnis mit Typ .mp3 findplay TXT exit 255; } # ----------------------------- my $dir = cwd(); my $file_type = '.mp3'; my $verbose = 0; my $result = GetOptions ( "dir=s" => \$dir, "type=s" => \$file_type, "help|?" => \&help ); my @files = <*$file_type> or die qq(Fehler: Keine Dateien mit Endung $file_type in "$dir"\n); print gen_playlist(@files); __END__ =pod * commandline wmplayer /Playlist NameOfPlayList * WPL PlayList format Bach Organ Works =cut