#!/usr/bin/perl -w

use strict;               
use MP3::Tag;
use File::Find;
use File::Copy;

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";
	
	ordner("$info[2] - $info[3]");#übergabe der tags zum ordner erstellen
    }
    
    print "\n";
    
}

sub ordner {
	my ($directory) = @_;

	unless(-e $directory or mkdir $directory) {
		die print "Unable to create $directory\n";
		
	}
}