thx erstmal,
ich kann zwar kein Perl aber ich hab das Script mal meinen Bedürfnissen angepasst.
Das sieht jetzt so aus
Code:
#!/usr/bin/perl -w
#
#
#
#
my $INPUT='/home/olly/tmp/';
chdir $INPUT;
my @mp3s;
push (@mp3s, glob "*.mp3");
push (@mp3s, glob "*.MP3");
my $anzahl = @mp3s;
my $mp3ex = ".mp3";
print "Es sind $anzahl Songs in $INPUT \n";
print "Tags werden gelöscht ...";
my $id3delete = "id3v2 -D *.mp3";
qx($id3delete);
print "done. \n";
foreach (@mp3s) {
my @title = split(/ - /, $_);
my $artist = $title[0];
my $song = $title[1];
my $realsong = substr($song,0,length($song) - 4);
print "Tags für $_ werden geschrieben...";
my $befehl = "id3v2 -a \"$artist\" -t \"$realsong\" \"$_\"";
qx($befehl);
print "done. \n";
}
print "Die mp3s werden gegaint...\n";
my $befehl2 = "mp3gain -r -c -d 5 *.mp3";
qx($befehl2);
print "done. \n";
und es läuft genau so wie ich mir es vorgestellt habe.
Gruß Olly
Lesezeichen