#!/usr/bin/perl

foreach(@ARGV) {
	chomp;      # strip record separator
	if (/^(.*)\.mp3$/) {
		$f=$_;
		($n=$1)=~s;^.*/;;;
		@F=split(/ - /,$n);
		@E=();
		if(@F==2){
			@E=("mp3info","-a",$F[0],"-t",$F[1],"-c"," ","--",$f);
		}elsif(@F==3){
			@E=("mp3info","-a",$F[0],"-t",$F[1],"-c",$F[2],"--",$f);
		}elsif((@F==4)&&($F[2] =~ /^\d+/)){
			@E=("mp3info","-a",$F[0],"-t",$F[3],"-n",$F[2],"-l",$F[1],"-c"," ","--",$f);
		}
		if(@E){
			if(($f=fork())>0) { wait();}
			elsif($f<0) {die "fork error: $!";}
			else{exec {$E[0]} @E;}
}	}	}