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_ascii($_);‘ * #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_ascii($_);‘ * #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
