Anfänger (Allgemeines zu Perl)

[thread]18968[/thread]

Anfänger

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+10 replies

Gast Friedel

2014-03-15 18:55

Ich möchte aus einem Verzeichniss, in dem eine unbestimmte Anzahl von mp3 Filmchen sind mir eine Datei (Playliste) erstellen, die der Windows-Mediaplayes hintereiunander abspielt. So habe ich es probiert!
start wmplayer /fullscreen "E:\Filme\Hanna\Erste-Schritte.mp4" Leider wird nur der letzte Film in der Datei abgespielt. Kann mir jemad helfen! Vielen Dank für Eure Bemühungen
Friedel
Last edited: 2014-03-15 19:34:55 +0100 (CET)

+4 replies
bianca

2014-03-15 20:08

User since
2009-09-13
7016 Artikel
BenutzerIn

Häufig sind die Wiedergabelisten einfache Textdateien in denen die Titel untereinander aufgelistet sind. Ist das beim WMP auch so?
10 print "Hallo"
20 goto 10
- +3 replies
- Gast Friedel
  
  2014-03-15 20:53
  
  Das hatte ich mir auch so gedacht. Aber schreibe ich mehrere Aufrufe in die Datei, so wird nur der Letzte Eintrag ausgeführt. Die Filme sind recht kurz. Deshalb der Versuch über eine Batchdatei alle aus dem Verzeichniss zu starten. Hat jemand eine Idee, wie der Aufruf für mehrere mp3 Dateien im Perl Skript lauten muss?
  Vielen Dank
  Last edited: 2014-03-15 22:14:54 +0100 (CET)
  - Gast wer
    
    2014-03-15 23:18
    
    such mal im netz nach playlist format
    Last edited: 2014-03-16 00:07:14 +0100 (CET)
  - bianca
    
    2014-03-16 00:21
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Guest Friedel
    Deshalb der Versuch über eine Batchdatei alle aus dem Verzeichniss zu starten. Hat jemand eine Idee, wie der Aufruf für mehrere mp3 Dateien im Perl Skript lauten muss?
    
    Was genau soll den Perl denn hier machen? Nur die Playlist in einer Datei erstellen oder den Player steuern?
    10 print "Hallo"
    20 goto 10
+5 replies

GwenDragon

2014-03-16 09:27

User since
2005-01-17
14746 Artikel
Admin1

Erzeugt eine Playlist für Windows Media Player:

Code (perl): (dl )

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 = <<XML;
<?wpl version="1.0"?>
<smil>
    <head>
        <meta name="Generator" content="Microsoft Windows Media Player -- 11.0.5721.5145"/>
        <meta name="ItemCount" content="$num_files"/>
        <author/>
        <title>Playlist generated by Perl</title>
    </head>
    <body>
        <seq>
XML
    
        for my $file (@files) {
           $plist .= qq(            <media src="$file"/>\n);
    }   
        
        $plist .= <<XML;
        </seq>
    </body>
</smil>
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

<?wpl version="1.0"?>
<smil>
    <head>
        <meta name="Generator" content="Microsoft Windows Media Player -- 11.0.5721.5145"/>
        <meta name="AverageRating" content="33"/>
        <meta name="TotalDuration" content="1102"/>
        <meta name="ItemCount" content="3"/>
        <author/>
        <title>Bach Organ Works</title>
    </head>
    <body>
        <seq>
            <media src="\\server\vol\music\Classical\Bach\OrganWorks\cd03\track01.mp3"/>
            <media src="\\server\vol\music\Classical\Bach\OrganWorks\cd03\track02.mp3"/>
            <media src="SR15.mp3" tid="{35B39D45-94D8-40E1-8FC2-9F6714191E47}"/>
        </seq>
    </body>
</smil>

=cut

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

+4 replies
Gast Friedel

2014-03-16 11:42

Recht herzlichen Dank für die Hilfe.
Friedel
Last edited: 2014-03-16 12:38:29 +0100 (CET)
- +3 replies
- Gast Friedel
  
  2014-03-19 19:09
  
  Hallo GwenDragon,
  nocheinmal vielen Dank für dein Skript. Eine Bitte hätte ich noch! Die Dateien sollten nach dem Datum aufsteigend sortieren werden.
  Friedel
  Last edited: 2014-03-19 19:52:25 +0100 (CET)
  - +2 replies
  - pq
    
    2014-03-19 19:53
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das änderungsdatum einer datei bekommst du mit my $mtime = (stat $filename)[9];
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Gast Friedel
      
      2014-03-21 21:26
      
      Ich möchte mich noch einmal für die schnelle spitzenmäßige Hilfe in diesem tollem Forum bedanken.
      Macht weiter so.
      Friedel
      Last edited: 2014-03-21 21:41:54 +0100 (CET)

View all threads created 2014-03-15 18:55.