Opened by PerlJam at 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
bin mir aber nicht ganz im Klaren darüber wie ich die Informationen in einem Array zusammenfasse, um diesen dann als
zu speichern.
würde mich über Hilfe sehr freuen.
Last edited: 2013-10-05 12:48:57 +0200 (CEST)
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 angegangenCode: (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
würde mich über Hilfe sehr freuen.
Last edited: 2013-10-05 12:48:57 +0200 (CEST)