Mercurial > ec-dotfiles

comparison bin/ren @ 19:b975a587f8f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Commented insane zero-remover from renamer.
author Edho Prima Arief <me@myconan.net>
date Fri, 20 Aug 2010 09:49:15 +0700
parents 8a0391d8e8d0
children 3bcef95c376c
comparison
equal deleted inserted replaced
16:83fb6c590b38 19:b975a587f8f6
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/;