Recently I got a collection of bulgarian songs with very nice filenames but no ID3 tags. So I wrote a simple script that reads a file with name like so: “trackN artist - song.mp3″, converts it to cyrillic and writes the tags.

The format of the filename can be easily changed by modifying the regex and you can add other tags as well. I knew in advance that my compilation will have 500 songs, that’s why the track numbers are set to “$track/500″. At this point is is quite custom script for my needs but can be easily changed to translate to other languages and modify other tags.

The cyrillic conversion is not perfect, but I’m too lasy to fix it as it isn’t that bad either.

1. #!/usr/bin/perl -w
2. use Data::Dumper;
3. use MP3::Tag;
4. use Encode;
5.  
6. my $filename = $ARGV[0];
7. my $artist;
8. my $track;
9. my $song;
10.  
11. print "Working on $filename\n";
12.  
13. @cyr = ('ч','щ','ш','ю','а','б','в','г','д','е','ж','з','и','й','к'
14. ,'л','м','н','о','п','р','с','т','у','ф','х','ц','ъ','ь','я',
15. 'у','Ч','Щ','Ш','Ю','А','Б','В', 'Г','Д','Е','Ж','З','И','Й',
16. 'К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ъ','Ь','Я','У');
17.  
18. @lat = ('ch','sht','sh','iu','a','b','v','g','d','e','j','z','i','j',
19. 'k','l','m','n','o','p','r','s','t','u','f','h','c','y','y',
20. 'q','w','Ch','Sht','Sh','Iu','A','B','V', 'G','D','E','J','Z',
21. 'I','J','K','L','M','N','O','P','R','S','T','U','F','H','C','Y','Y','Q','W');
22.  
23. sub trim($)
24. {
25. my $string = shift;
26. $string =~ s/^\s+//;
27. $string =~ s/\s+$//;
28. return $string;
29. }
30.  
31. $temp=$filename;
32. $temp=~s/\.mp3//gi;
33. if ($temp =~ m/([\d]{3})\s+(.+\s*.+)\s?-\s?(.+\s?.+)/)
34. {
35. $track = $1;
36. $artist = $2;
37. $song = $3;
38. }
39. my $retext = "$track $artist - $song";
40. print $retext."\t";
41. $i = 0;
42. while($i < @lat) {
43. $l = $lat[$i];
44. $c = $cyr[$i];
45. $artist=~s/$l/$c/g;
46. $song=~s/$l/$c/g;
47.  
48. #print $l."\t".$c."\n";
49. $i++;
50. }
51.  
52.  
53. $songname = "$track ".trim($artist)." - ".trim($song);
54. print $songname."\n";
55.  
56. $mp3 = MP3::Tag->new($filename);
57. $mp3->get_tags;
58. my $id3v2 = $mp3->new_tag("ID3v2");
59. $id3v2->add_frame('TRCK', "$track/500");
60. $id3v2->add_frame('TIT2', decode('UTF-8',$song));
61. $id3v2->add_frame('TPE1', decode('UTF-8',$artist));
62. $id3v2->write_tag;
63.  

I also left 2 heads outside to see how well it stays good so I know next year.

I hope it is still good after thawing it, but I don’t think there will be problems by freezing it.

3 threads, 4 threads and 4 threads baked

4 threads, 4 threads baked in the bread maker

Of course, I’ve made bread in the machine as well.

BTW According to other sources Darina also has a name day on Todor’s name day, and I’ve heard on Christmas as well?…

Good luck Dari