Vlákno názorů k článku
Organizujte si svojí hudební sbírku pomocí Picarda od pepa - pokud je nekdo zastance cli tak se muze...

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