Organizujte si svojí hudební sbírku pomocí Picarda

Ja mam hudebni kolekci cca 300 GB coz je docela dost a nejvic se mi osvedcil program Kid3, ale zacinal sem s Picardem a nejakym id tagerem pro win prez wine. Stejne ale maji moje tagy daleko k dokonalosti…

Na Picardovi jsem podobne pohorel. Mam otagovano ke vsi spokojenosti pomoci EasyTag.

(v clanku je to dvakrat ruzne) Ja bych kazdopadne radsi Kirka.

pokud je nekdo zastance cli tak se muze hodit par mych starych zkratek pouzivajici prikaz rename (soucast perlu a da se mu dat regularni vyraz nebo kod v perlu kerej pousti nad kazdym jmenem souboru)

tohle jsem pouzival jeste v dobe kdy ty prejmenovavace pro mp3 nejak moc nebyly

ps. je to psano jeste v dobe kdy rename mel prepinac -t (test) a bez nej neni to hrani a opravovani regularnich vyrazu ono (ja si ho tam radej znovu dopsal…) pac si pri kazde chybe zmrsite jmena souboru.

rename -v -t 's/xx/yy/ *

rename -v -t ‚s/_/ /g‘ *mp3

rename -v -t ‚$_=ucfirst($_);‘ * #rename – prvni velky

# Prvni Velky Vsech Slov rename -v -t ‚my @x = split(" „); foreach (@x) { $_=ucfirst($_)}; $_=join(“ ", @x)‘ *mp3

#123456×xx ⇒ 12inserted3456×xx rename -v -t ‚s/(.{2})(.*)/$1 -$2/‘ *mp3

#odcesti vsechno z il2 rename -v -t ‚use Cz::Cstocs; my $il2_to_ascii = new Cz::Cstocs „il2“, „ascii“; $_=&$il2_to_as­cii($_);‘ * #odcesti – dir il2 to ascii, v. 2

#odcesti vsechno z 1250 rename -v -t ‚use Cz::Cstocs; my $il2_to_ascii = new Cz::Cstocs „1250“, „ascii“; $_=&$il2_to_as­cii($_);‘ * #odcesti – dir 1250 to ascii, v. 2 #pri znaku Z~ zmrsi terminal (staci prikaz reset)

#‚02 The Sign.mp3‘ ⇒ ‚xxxx – 02 – The Sign.mp3‘ rename -v -t ‚s/^[^\d](\d)[\t \-_](.)/ xxxx – $1 – $2/‘ *mp3

# CoKoLiV 00 XxXxX ⇒ Cokoliv 00 Xxxxx rename -v -t ‚$_=lc($_); my ($x1, $x2, $x3) = ($_ =~ /^([^\-]?)[ \-_]+(\d)[ \-_]+(.*?)$/); $_=ucfirst($x1)." – $x2 – ".ucfirst($x3)‘ *mp3

#mv ‚01 Gabrielle – Out Of Reach.mp3‘ ‚Gabrielle – 01 – Out Of Reach.mp3‘ rename -v -t ‚s/^[^\d](\d)[ \-_]([^\-]?)[ _]-[ \-_](.*?)$/$2 – $1 – $3/‘ *mp3 #rename mp3

#mv ‚Gabrielle – 01 – Out Of Reach.mp3‘ ‚01 – Gabrielle – Out Of Reach.mp3‘ rename -v -t ‚s/^([^\-]) – (\d)[\t \-_](.)/$2 – $1 – $3/‘ *mp3 #rename mp3

#prejmenuje jmena mp3 souboru dle id3tagu #pozaduje mit nainstalovan mpginfo rename -v -t ‚$_ = mpginfo "$_" | grep title | cstocs 1250 ascii; chop; s/^\stitle[^:]: (.)/$1/; s/\s$//; s/[\?*\&]/ /g; my $was2 = $was; $was2 =~ s/^[^\d](\d).*/$1/; $_ = „X-Men – ".$was2.“ – „.$_.“.mp3"‘ *.mp3 #rename mp3 from id3 tag, v. 14

#a pokud je to id3v2 tag je nutno pouzit: #pozaduje program id3v2 rename -v -t ‚$_ = id3v2 --list "$_" | grep TIT2 | cstocs 1250 ascii; chop; s/^TIT2[^:]: //;my $was2 = $was; $was2 =~ s/^[^\d](\d)./$1/; $_ = „Kabat – ".$was2.“ – „.$_.“.mp3"‘ *.mp3 #rename mp3 from id3v2 tag, v. 15

# prebere jmena z textaku – jmena souboru musi obsahovat cislo, to si grepne z textaku a z te radky rozebere kusy pro nazev ciloveho souboru: rename -v -t ‚my $cislo = $_; $cislo =~ s/^[^\d](\d)./$1/; $_ = cat < seznam.txt | grep $cislo | cstocs 1250 ascii; chop; s/^\d\d\/ ([^\d])/$1/; s/\s$//; s/[\?*\&]/ /g; my $was2 = $was; $was2 =~ s/^[^\d](\d)./$1/; $_ = $was2.„-“.$_.„.mp3“‘ *.mp3 #rename mp3 from text file v. 15

http://www.scinet.cz/…zsireno.html