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
Partager