Mercurial > ec-dotfiles

changeset 583:0d928126fcf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update renames
author nanaya <me@myconan.net>
date Tue, 23 Feb 2016 15:52:19 +0900
parents 3e051a850ecf
children 4130d41c6acb
files bin/prename bin/ren
diffstat 2 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/bin/prename	Fri Feb 05 00:42:02 2016 +0900
+++ b/bin/prename	Tue Feb 23 15:52:19 2016 +0900
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 #
 #  This script was developed by Robin Barker (Robin.Barker@npl.co.uk),
 #  from Larry Wall's original script eg/rename from the perl source.
--- a/bin/ren	Fri Feb 05 00:42:02 2016 +0900
+++ b/bin/ren	Tue Feb 23 15:52:19 2016 +0900
@@ -258,6 +258,8 @@
   $newname =~ s/\[Elysium\] Baka to Test to Shokanju/[Elysium] Baka to Test to Shokanju /;
   $newname =~ s/ Baka to Test to Shou?kanjuu? / Baka to Test to Shokanju /;
   $newname =~ s/\(BD\.1080p\.FLAC\)/[1080p BD]/;
+  $newname =~ s/\(1920x1080\) \[BD\]/[1080p BD]/i;
+  $newname =~ s/\[1080p\]\[BD\]/[1080p BD]/i;
   $newname =~ s/Saizen & SD/Saizen-SD/;
   $newname =~ s/Bleach - (\d{2}) /Bleach - 0$1 /;
   $newname =~ s/Omamori Himari - ED \(Clean\) - 0(\d) / Omamori Himari - Ending $1 (Clean) /;
@@ -479,7 +481,7 @@
   $newname =~ s/\(DVD ?\)/ [DVD] /i;
   $newname =~ s/ Ep(\d+) / - $1 /;
   $newname =~ s/ Ep(\d+)v2 / - $1 [v2]/;
-  $newname =~ s/ (\d+) / - $1 /;
+  #$newname =~ s/ (\d+) / - $1 /;
   $newname =~ s/ (\d+)v(2|3) / $1 [v${2}]/;
   $newname =~ s/\[720x480 AR FLAC\]//i;
   $newname =~ s/\[DVD 640x480\]/[DVD]/;
@@ -500,7 +502,7 @@
   $newname =~ s/ +(\.\w{3})$/$1/;
   $newname =~ s/\[\]//g;
   $newname =~ s/\(\)//g;
-  $newname =~ s/ - (\d+) - (\d+) / $1 - $2 /;
+  #$newname =~ s/ - (\d+) - (\d+) / $1 - $2 /;
   #EXCEPTIONS
   $newname =~ s/^\[DB&L-E\]/[DB L-E]/;
   $newname =~ s/ VS Knight Lamune & - 40 fire / VS Knight Lamune & 40 fire /;
@@ -556,6 +558,7 @@
   $newname =~ s/^\[N - F\]/[N-F]/;
   $newname =~ s/^\[K-F & AKUPX\]/[K-F AKUPX]/;
   $newname =~ s/^\[([&!\.\s\w\- ]+)\] (Love Get Chu|Air Master|Crystal Blaze|Fairy Tail|Yawara|Ultraviolet Code 044|Gintama|Prince of Tennis|Lupin III S2|Kyou Kara Maou|Bleach|Naruto|One Piece|Detective Conan) - (Ending \d+|Opening \d+|Special \d+|\d+|\d+-\d+) /$2 - $3 [$1]/;
+  $newname =~ s/ (Senran Kagura|Aquarion EVOL|Amagami SS Plus) - (Opening|Ending) 0/ $1 - $2 /;
   $newname =~ s/^Naruto - (\d{2}) /Naruto - 0$1 /;
   $newname =~ s/^Fairy Tail - (\d{2}) /Fairy Tail - 0$1 /;
   $newname =~ s/^Naruto - (\d{2})-(\d{2}) /Naruto - 0$1-0$2 /;