Mercurial > ec-dotfiles

comparison bin/ren @ 21:8fa64e01b85b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge
author Edho Prima Arief <me@myconan.net>
date Wed, 08 Dec 2010 09:09:45 +0700
parents b975a587f8f6
children 3bcef95c376c
comparison
equal deleted inserted replaced
18:e913e2dd95ef 21:8fa64e01b85b
10 my $newname = $_; 10 my $newname = $_;
11 print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_; 11 print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_;
12 $newname =~ s/ \'[^']+\'//; 12 $newname =~ s/ \'[^']+\'//;
13 #$newname =~ s/ Kiss x Sis OVA / Kiss x Sis OAD /; 13 #$newname =~ s/ Kiss x Sis OVA / Kiss x Sis OAD /;
14 $newname =~ s/x264//; 14 $newname =~ s/x264//;
15 $newname =~ s/ - 0/ - /; 15 #$newname =~ s/ - 0/ - /;
16 $newname =~ s/\[HorribleSubs\] Lilpri /[HorribleSubs] Hime Chen! Otogi Chikku Idol Lilpri - /i; 16 $newname =~ s/\[HorribleSubs\] Lilpri /[HorribleSubs] Hime Chen! Otogi Chikku Idol Lilpri - /i;
17 $newname =~ s/\[HorribleSubs\] Uraboku /[HorribleSubs] Uragiri wa Boku no Namae wo Shitteiru - /i; 17 $newname =~ s/\[HorribleSubs\] Uraboku /[HorribleSubs] Uragiri wa Boku no Namae wo Shitteiru - /i;
18 $newname =~ s/ GIG E/ GIG - /; 18 $newname =~ s/ GIG E/ GIG - /;
19 $newname =~ s/^Kidou_Keisatsu_Patlabor_\(1990\)_-_([[:digit:]]+)\[16\]_-_.+_\[640x480\]\[DVD\]\[A-Et\]\[([[:xdigit:]]{8})\]\.(mkv)$/[A-Et] Patlabor (1990) - $1 [DVD][${2}].$3/; 19 $newname =~ s/^Kidou_Keisatsu_Patlabor_\(1990\)_-_([[:digit:]]+)\[16\]_-_.+_\[640x480\]\[DVD\]\[A-Et\]\[([[:xdigit:]]{8})\]\.(mkv)$/[A-Et] Patlabor (1990) - $1 [DVD][${2}].$3/;
20 $newname =~ s/^Witchblade_-_([[:digit:]]+)\[24\]_-_.+\[(Makoto|AniSubs)\]\[([[:xdigit:]]{8})\]\.(mkv)$/[$2] Witchblade - $1 [DVD][${3}].$4/; 20 $newname =~ s/^Witchblade_-_([[:digit:]]+)\[24\]_-_.+\[(Makoto|AniSubs)\]\[([[:xdigit:]]{8})\]\.(mkv)$/[$2] Witchblade - $1 [DVD][${3}].$4/;