Discussion :

[shiva-djedi]

Bonjour,

Je ne trouve pas la bonne variable/syntaxe pour y parvenir :

#!/usr/bin/perl

use MP3::Tag;
$mp3 = MP3::Tag->new('C:\RIP\BANDS\A Black People\Black Recluse.mp3'); # create object

$mp3->get_tags(); # read tags

if (exists $mp3->{ID3v2}) { # print track information
print "Artist: " . $mp3->{ID3v2}->artist . "\n";
print "Title: " . $mp3->{ID3v2}->title . "\n";
print "Album: " . $mp3->{ID3v2}->album . "\n";
print "Year: " . $mp3->{ID3v2}->year . "\n";
print "Genre: " . $mp3->{ID3v2}->genre . "\n";
print "Beats: " . $mp3->{ID3v2}->beats_per_minute . "\n";}

Quelqu'un peut-il m'aider ?
Merci

[Philou67430]

Remplace simplement les \ par des / dans le chemin du nom de fichier.

[cmcmc]

J'ai essayé le code suivant sur un certain nombre de mp3 de diverses origines chez moi. Apparemment aucun ne renseigne TBPM (qui d'après ce document , section 4. Declared ID3v2 frames, est le nom de la frame que tu recherches). Peut-être auras-tu plus de chance avec tes mp3. Exemple de code chez moi testant différentes frames :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Taisha:~/perl/forum $ perl -MMP3::Tag -E'
for (@ARGV) {
  say +"-"x50;
  $mp3 = MP3::Tag->new($_);
  $mp3->get_tags;
  if (exists $mp3->{ID3v2}) {
    for (qw(TALB TRCK TIT1 TIT2 TIT3 TCON TCOM TYER TPE2 TPE2 TPE3 TPE4 TBPM)) {
      ($name, $info) = $mp3->{ID3v2}->get_frame($_);
      print "$_: ($name, $info)\n"
  }
 }
}' 'i:/Music/Kris Bowers - Heroes Misfits/03 #TheProtester.mp3' 'i:/Music/Miles Davis - Birth of the Cool/01 Move.mp3' 'i:/Music/Talk_To_Your_Daughter/B003A7OWVI_(disc_1)_01_-_Talk_To_Your_Daughter.mp3'
--------------------------------------------------
TALB: (Heroes Misfits, Album/Movie/Show title)
TRCK: (03, Track number/Position in set)
TIT1: (, )
TIT2: (#TheProtester, Title/songname/content description)
TIT3: (, )
TCON: (Jazz, Content type)
TCOM: (Kris Bowers, Composer)
TYER: (2014, Year)
TPE2: (Kris Bowers, Band/orchestra/accompaniment)
TPE2: (Kris Bowers, Band/orchestra/accompaniment)
TPE3: (, )
TPE4: (, )
TBPM: (, )
--------------------------------------------------
TALB: (Birth Of The Cool, Album/Movie/Show title)
TRCK: (01/12, Track number/Position in set)
TIT1: (, )
TIT2: (Move, Title/songname/content description)
TIT3: (, )
TCON: (Jazz, Content type)
TCOM: (, )
TYER: (1950, Year)
TPE2: (, )
TPE2: (, )
TPE3: (, )
TPE4: (, )
TBPM: (, )
--------------------------------------------------
TALB: (Talk To Your Daughter, Album/Movie/Show title)
TRCK: (1/9, Track number/Position in set)
TIT1: (, )
TIT2: (Talk To Your Daughter, Title/songname/content description)
TIT3: (, )
TCON: (Jazz, Content type)
TCOM: (Lenoir, Composer)
TYER: (1987, Year)
TPE2: (Robben Ford, Band/orchestra/accompaniment)
TPE2: (Robben Ford, Band/orchestra/accompaniment)
TPE3: (, Conductor/performer refinement)
TPE4: (, )
TBPM: (, )
Taisha:~/perl/forum $

[shiva-djedi]

Hi,
Your piece oof code works perfectly. Actually the TBPM frame is filled in in my mp3.
Thanks to BPM Counter and you.