use Win32API::File 0.08 qw( :ALL );
#use Win32::Unicode::File;
binmode STDOUT, ":utf8";

open F, "Result_fineName.txt";
#binmode F, ":utf8"; # binmode or not still won't work
my @list = <F>;
close F; chomp @list;

my %hash;
foreach (@list) {
	my ( $id, $name ) = split /\t/, $_, 2;
	$name =~ s/[\\\/\<\>\?\:\|\*]/ /g;
	$name =~ s/ {2,}/ /g;
	$hash{$id} = $name;
}


chdir ( "./doRename/2.4" ) ;
my $source = `dir /b`; 
my @src = split /\n/, $source;
chomp @src;

foreach my $f ( @src ) {
	my @parts = split /[ _]/, $f;
	print $f ;
	MoveFile $f, "$hash{$parts[1]}.mp3" or print  fileLastError() ; #Win32API::File
        #moveW $f, "$hash{$parts[1]}.mp3" or print errorW; # Win32::Unicode::File

	print $/;	
}