Сдобих се със една колекция от български парчета, на които имената на файловете бяха направени като хората, обаче таговете ги нямаше никакви. Затова реших да напише едно скриптче дето взима името на файла във формат „trackN artist – song.mp3″, конвертира от латиница на кирилица и пише таговете.

Може лесно да се смени формата на файла от regex-а и могат и да се добавят още много тагове по желание. Аз знаех предварително, че компилацията е от 500 парчета затова има $track/500. За момента е доста специфичен, но може лесно да се модифицира за различни нужди.

Конвертирането към кирилица не е перфектно, но ме мързи да го оправям , щото не е фатално.

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.