Opened by timehandler at 2012-06-04 15:49
Hey ich bin relativ neu bei perl und bräuchte ein bisschen hilfe.
ich soll ein program schreiben was von mp3 datein die tags einliest und ausgibt. das funktioniert auch gut, aber dann soll ich noch einen ordner erstellen. das geht auch, aber ich bekomme einfach nicht hin das die tags an die ordner sub übergeben werden, damit ich den ordner nach der mp3 erstellen kann.
hier nun der code
über hilfreiche tipps bin ich sehr dankbar.
Last edited: 2012-06-04 16:13:58 +0200 (CEST)
ich soll ein program schreiben was von mp3 datein die tags einliest und ausgibt. das funktioniert auch gut, aber dann soll ich noch einen ordner erstellen. das geht auch, aber ich bekomme einfach nicht hin das die tags an die ordner sub übergeben werden, damit ich den ordner nach der mp3 erstellen kann.
hier nun der code
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/usr/bin/perl -w
use strict;
use MP3::Tag;
use File::Find;
print "Pfad angeben wo die MP3's sind!!!\n";
while (<STDIN>) {
chomp;
$_ = <*.mp3>;
find(\&wanted, $_);# findet alles was in dem angegebenen Verzeichnis ist
}
sub wanted {
my ($mp3, $track, $artist);
return unless /mp3$/i; # alles was keine *.mp3 Endung hat wird nicht beachtet
if ($mp3=MP3::Tag->new($_)) {
print "$_ (Tags: ", join(", ",$mp3->get_tags),")\n";
my @info=$mp3->autoinfo;
print "* Song: $info[0]\n";
print "* Track: $info[1]\n";
print "* Artist: $info[2]\n";
print "* Album: $info[3]\n";
print "* Comment: $info[4]\n";
my @path_opt= ("$track","$artist");
ordner();
}
print "\n";
}
sub ordner {
my $directory = "Ordner";
unless(-e $directory or mkdir $directory) {
die "Unable to create $directory\n";
}
}
über hilfreiche tipps bin ich sehr dankbar.
Last edited: 2012-06-04 16:13:58 +0200 (CEST)