[MP3::Tag] Trackliste erstellen (Fragen zu Perl-Modulen)

[thread]18651[/thread]

[MP3::Tag] Trackliste erstellen

Tags: perl5 mp3 mp3::tag id3 tags Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
Gast PerlJam

2013-10-05 11:03
moin, moin.
wie im Title erwähnt möchte ich gerne mit Hilfe des Moduls MP3::Tag eine Tracklist erstellen. Ich möchte alle .mp3 Dateien aus einem angegebenen Ordner nach ID3-Tags untersuchen und die gebrauchten Informationen in einem Array speichern. ich habe das ganze jetzt mal so angegangen
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

use MP3::Tag; $Verzeichnis = '/home/liam'; opendir(DIR, $Verzeichnis) || die "Kann $Verzeichnis nicht oeffnen"; @VerzeichnisInhalt = grep{ $_ =~ /\.mp3$/ }readdir(DIR); closedir(DIR); foreach $file (@VerzeichnisInhalt) { $mp3 = MP3::Tag->new("$file"); # create object $mp3->get_tags(); # read tags if (exists $mp3->{ID3v2}) { # print track information $artist = $mp3->{ID3v2}->artist; $title = $mp3->{ID3v2}->title; $track = $mp3->{ID3v2}->track; } $eintrag = "$track $artist - $title"; print "$eintrag\n"; }
bin mir aber nicht ganz im Klaren darüber wie ich die Informationen in einem Array zusammenfasse, um diesen dann als
Code: (dl )

qtracklist
zu speichern.
würde mich über Hilfe sehr freuen.
Last edited: 2013-10-05 12:48:57 +0200 (CEST)
- GwenDragon
  
  2013-10-05 13:00
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Und wie ist ein Tracklist aufgebaut? M3U, PLS? oder was soll das bedeuten?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- pq
  
  2013-10-05 14:09
  User since
  2003-08-04
  12208 Artikel
  Admin1
  im array @VerzeichnisInhalt befinden sich nur die dateinamen ohne pfad. von daher sollte das skript eh nur korrekt laufen, wenn du dich in dem durchsuchten verzeichnis befindest.
  ausserdem fehlen strict und warnings, alles in allem sieht das nach etwas veraltetem perl aus.
  lies mal Modern Perl - The Book.
  Zu finden z.b. hier: http://perl-tutorial.org/
  
  hier eine etwas bereinigte variante:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
  
  use strict; use warnings; use MP3::Tag; my $Verzeichnis = '/home/liam'; opendir my $dh, $Verzeichnis or die "Kann $Verzeichnis nicht oeffnen: $!"; my @VerzeichnisInhalt = grep { m/\.mp3$/ } readdir $dh; closedir $dh; foreach my $file (@VerzeichnisInhalt) { my $mp3 = MP3::Tag->new("$Verzeichnis/$file"); # create object $mp3->get_tags(); # read tags my ($artist, $title, $track); if (exists $mp3->{ID3v2}) { # print track information $artist = $mp3->{ID3v2}->artist; $title = $mp3->{ID3v2}->title; $track = $mp3->{ID3v2}->track; } my $eintrag = "$track $artist - $title"; print "$eintrag\n"; }
  
  was du mit "qtracklist" meinst, ist mir leider auch nicht klar.
  
  in einem array zusammenfassen geht so:
  am anfang: my @tracklist;
  in der schleife: push @tracklist, $eintrag;
  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
- GUIfreund
  
  2013-10-13 19:44
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Guest PerlJam
  bin mir aber nicht ganz im Klaren darüber wie ich die Informationen in einem Array zusammenfasse, um diesen dann als
  
  Code: (dl )
  
  qtracklist
  
  zu speichern.
  
  Vor der Schleife: my @trackliste;
  Unten beim print: push @trackliste, $eintrag;
  Nach der Schleife:
  
  Code (perl): (dl )
  
  1 2 3
  
  open (my $trli, '>', 'qtracklist') or die "S!"; print $trli @trackliste; close $trli or die "S!";
  
  Änderungen nicht getestet.
  
  Edit: Aber bitte zuvor die Antwort von pq beachten.
  Last edited: 2013-10-14 14:45:21 +0200 (CEST)
  Gruß
  GUIfreund

View all threads created 2013-10-05 11:03.