Mercurial > ec-dotfiles

comparison bin/ren @ 41:9a0cbfe1195b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[ren] More rules
author Edho Prima Arief <me@myconan.net>
date Tue, 26 Apr 2011 12:52:47 +0700
parents 3bcef95c376c
children babf62f1bba7
comparison
equal deleted inserted replaced
40:34818dfa7f36 41:9a0cbfe1195b
10 print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_; 10 print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_;
11 my $newname = $_; 11 my $newname = $_;
12 #START HERE 12 #START HERE
13 $newname =~ s/_/ /g; 13 $newname =~ s/_/ /g;
14 #TITLE AND NAMES 14 #TITLE AND NAMES
15 $newname =~ s/^\[Jumonji-Giri\]\[Soldats\]\[AonE&HQA\] D\.C\. Da Capo /[Jumonji-Giri] Da Capo /i;
15 $newname =~ s/^PitaTen.* Ep (\d+) .*\.avi/[Hnk] Pita Ten - $1.avi/; 16 $newname =~ s/^PitaTen.* Ep (\d+) .*\.avi/[Hnk] Pita Ten - $1.avi/;
16 $newname =~ s/^\[a-S\] Inuyasha - (\d+|\d+-\d+) /Inuyasha - $1 [a-S]/; 17 $newname =~ s/^\[a-S\] Inuyasha - (\d+|\d+-\d+) /Inuyasha - $1 [a-S]/;
17 $newname =~ s/\[DVD\]\[AHQ\]/[AHQ][DVD]/; 18 $newname =~ s/\[DVD\]\[AHQ\]/[AHQ][DVD]/;
18 $newname =~ s/^mars daybreak /[V-A] Mars Daybreak - /; 19 $newname =~ s/^mars daybreak /[V-A] Mars Daybreak - /;
19 $newname =~ s/ Shuffle! Episode / Shuffle! /; 20 $newname =~ s/ Shuffle! Episode / Shuffle! /;