ec-dotfiles: bin/ren annotate

annotate bin/ren @ 8:b5d0c1892294

Forgot to add remover for inputrc

author	Edho Prima Arief <me@myconan.net>
date	Mon, 19 Jul 2010 16:49:38 +0700
parents	94ee419ad047
children	8a0391d8e8d0

rev	line source
4 94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	1 #!/usr/bin/env perl
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	2
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	3 use warnings;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	4 use strict;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	5 use File::Basename;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	6
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	7 my @files = @ARGV or print("Usage: ",basename($0)," file1 ... fileN\n") && exit(1);
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	8 my $skip=0;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	9 foreach (@files) {
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	10 my $newname = $_;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	11 print(qq(Could not find file "$_", skipping\n)) and next() unless -e $_;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	12 $newname =~ s/Sakura\.Wars\.([[:digit:]]{2}).*/[AM] Sakura Wars - $1.mkv/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	13 #$newname =~ s/Legend Of The Crystals OAV - 0/- Legend of the Crystals OVA - /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	14 #$newname =~ s/^Kaleido_Star_-_([[:digit:]]{2}).*(\[[[:xdigit:]]{8}\]\.mkv)$/[joseole99] Kaleido Star - $1 [DVD]$2/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	15 #$newname =~ s/^Kaleido_Star_-_Clean_ED([[:digit:]]).*(\[[[:xdigit:]]{8}\]\.mkv)$/[joseole99] Kaleido Star - Ending $1 (Clean) [DVD]$2/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	16 #$newname =~ s/^Kaleido_Star_-_Clean_OP([[:digit:]]).*(\[[[:xdigit:]]{8}\]\.mkv)$/[joseole99] Kaleido Star - Opening $1 (Clean) [DVD]$2/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	17 #$newname =~ s/._-_([[:digit:]]{2})\[47\].(\[[[:xdigit:]]{8}\]\.mkv)$/[AniMecha] - $1 [DVD]$2/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	18 #$newname =~ s/.\.([[:digit:]]{2})\.\[.([[:xdigit:]]{8}\]\.mkv)$/[Arigatou] Blade of the Immortal - $1 [$2/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	19 #$newname =~ s/.* ([[:digit:]]+) .*/[AonE-AnY] Ah My Goddess - $1.avi/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	20 #$newname =~ s/\[24-$Final$\]_/24 [End]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	21 #$newname =~ s/\[([[:digit:]]{2})\]/$1/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	22 #$newname =~ s/^Otaku no Musume-san c([[:digit:]]+) \[v03\](\[.+\])\.zip$/Otaku no Musume-san - $1 (v03) $2.zip/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	23 #$newname =~ s/ HQ //;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	24 $newname =~ s/xvid//i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	25 $newname =~ s/^\[Doremi\]\.HeartCatch\.PreCure!\.([[:digit:]]{2})\.\[1280x720\]\.\[([[:xdigit:]]{8})\]\.mkv$/[Doremi] HeartCatch PreCure! - $1 (1280x720) [$2].mkv/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	26 $newname =~ s/^\[Doremi\]\.Motto\.Ojamajo\.Doremi\.([[:digit:]]{2})\.\[([[:xdigit:]]{8})\]\.avi$/[Doremi] Motto Ojamajo Doremi - $1 [$2].avi/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	27 $newname =~ s/^(Detective Conan - [[:digit:]]+-?[[:digit:]]) (\[DCTP[^]]\])(.+)$/$2 $1 $3/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	28 $newname =~ s/^(Detective Conan - OVA[[:digit:]]+-?[[:digit:]]) (\[DCTP[^]]\])(.+)$/$2 $1 $3/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	29 $newname =~ s/^(Kamen Rider W - [[:digit:]]+)HD (\[W-Time\])(.+)$/$2 $1 $3/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	30 $newname =~ s/- TV -/-/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	31 $newname =~ s/^(\[Keroro\])\.([[:digit:]]+)\..*(\[[[:xdigit:]]{8}\].+)$/$1 Keroro Gunsou - $2 $3/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	32 $newname =~ s/SubDESU(.*)_-_Directors_Cut/SubDesu$1/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	33 $newname =~ s/\[480p\]\.mkv$/.mkv/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	34 $newname =~ s/^(\[EG\])ZZ_Gundam_BD_([[:digit:]]+)$720p$(.+)$/$1 Gundam ZZ - $2 (960x720) [BD]$3/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	35 $newname =~ s/\]_Working_-/] Working!! -/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	36 $newname =~ s/WORKING!!/Working!!/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	37 $newname =~ s/\[Retrofit\]_\[Ayako-m\.3\.3\.w\.\]/[Retrofit-Ayako-m.3.3.w]/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	38 $newname =~ s/Rosario\+Vampire/Rosario + Vampire/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	39 $newname =~ s/Rosario \+ Vampire - Capu2 - /Rosario + Vampire Capu 2 - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	40 $newname =~ s/ Hidamari Sketch Hoshimittsu / Hidamari Sketch - Hoshi Mittsu /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	41 $newname =~ s/ HEROMAN / Heroman /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	42 #$newname =~ s/^/[ETB]/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	43 $newname =~ s/_/ /g;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	44 $newname =~ s/ ARIA The ORIGINATION / Aria the Origination /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	45 $newname =~ s/ ARIA The NATURAL / Aria the Natural /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	46 $newname =~ s/^Clannad Ep([[:digit:]]+) \[1080p,BluRay,x264\] - THORA\.mkv$/[THORA] Clannad - $1 (1920x1080) [BD].mkv/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	47 $newname =~ s/ Mahou Kishi Rayearth / Magic Knight Rayearth /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	48 $newname =~ s/rune soldier ep/ Rune Soldier /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	49 $newname =~ s/ Harukanaru Toki no Naka de Hachiyoushou / Haruka Naru Toki no Naka de - Hachiyoushou /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	50 $newname =~ s/ Harukanaru Toki no Naka de - / Haruka Naru Toki no Naka de - Hachiyoushou /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	51 $newname =~ s/ -Hachiyoushou - / - Hachiyoushou - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	52 $newname =~ s/\[Retrofit\] \[Shinsen\] /[Retrofit-SHS] /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	53 $newname =~ s/ You're Under Arrest - / You're Under Arrest! - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	54 $newname =~ s/ Rosario to Vampire / Rosario + Vampire /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	55 $newname =~ s/\[R2 Video\]//i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	56 $newname =~ s/ $BD-720p$ \[/ (1280x720) [BD][/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	57 $newname =~ s/ TV Ep/ - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	58 $newname =~ s/\] AIR - /] Air - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	59 $newname =~ s/ - Episode / - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	60 $newname =~ s/\[divx[[:digit:].]+\]//i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	61 $newname =~ s/\[BD\] $1280x720$ \[/(1280x720) [BD][/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	62 $newname =~ s/ Seiken no Blacksmith / The Sacred Blacksmith /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	63 #$newname =~ s/^Rizelmine([[:digit:]]+)\.avi$/[AC] Rizelmine - $1.avi/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	64 $newname =~ s/\[v2\]/v2/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	65 $newname =~ s/\.AAC\]//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	66 $newname =~ s/ No / no /g;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	67 #$newname =~ s/ 0([[:digit:]]) / $1 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	68 $newname =~ s/\[1280x720\]/(1280x720) /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	69 #$newname =~ s/^.( [[:digit:]]{2}v2).(\[[[:xdigit:]]{8}\]\.mkv)$/[KAA] Ai Yori Aoshi - $1 [DVD]$2/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	70 $newname =~ s/ True Tears / true tears /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	71 $newname =~ s/ Fate stay night TV Reproduction / Fate-stay night - TV Reproduction /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	72 $newname =~ s/ The Tatami Galaxy $Yojouhan Shinwa Taikei$ / The Tatami Galaxy /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	73 $newname =~ s/ Saint Seiya The Lost Canvas / Saint Seiya - The Lost Canvas /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	74 $newname =~ s/Mayoi Neko Overrun /Mayoi Neko Overrun! /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	75 $newname =~ s/Angel Beats /Angel Beats! /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	76 $newname =~ s/Rainbow /Rainbow /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	77 $newname =~ s/ Ookiku Furikabutte - The Summer Tournament Chapter / Ookiku Furikabutte S2 /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	78 $newname =~ s/Senko no night raid /Senkou no Night Raid /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	79 $newname =~ s/To Heart Mini Ep0/To Heart - Special /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	80 $newname =~ s/Mai Otome/Mai-Otome/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	81 $newname =~ s/WORKING!!/Working!!/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	82 $newname =~ s/ Sengoku Basara / Sengoku Basara /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	83 $newname =~ s/ K-on!! S2 / K-ON!! /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	84 #$newname =~ s/.\[([[:digit:]]{2})\].(\[[[:xdigit:]]{8}\]\.mkv)/[FuktLogik] Hidamari Sketch - $1 [DVD]$2/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	85 $newname =~ s/$BD$ \[/ [BD][/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	86 $newname =~ s/\[\[BD\]/[BD][/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	87 $newname =~ s/$DVD $/[DVD]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	88 $newname =~ s/ AC3\]/ /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	89 $newname =~ s/ (\.[[:alnum:]]+)[^[:alnum:]]$/$1/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	90 $newname =~ s/\[webrip\]/[Webrip]/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	91 $newname =~ s/\[[^]](640x360\|[[:digit:]]{3}x480)[^]]\]//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	92 $newname =~ s/([^]])\[/$1 [/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	93 #$newname =~ s/- .*x264 AAC\)//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	94 #$newname =~ s/ 0([[:digit:]]) / $1 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	95 #$newname =~ s/ - Great Guardians OVA - / Great Guardians - Special - /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	96 #$newname =~ s/ ([\d]) / 0$1 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	97 #$newname =~ s/.* ([\d]{2}) .*/[HL] Gundam ZZ - $1.mkv/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	98 #$newname =~ s/ \[[[:xdigit:]]{8}\]//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	99 $newname =~ s/^$([^)]+)$/[$1]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	100 $newname =~ s/sonic x/Sonic X/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	101 $newname =~ s/END/End/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	102 #$newname =~ s/\[[^]]h\.?264[^]]\]//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	103 $newname =~ s/h\.?264//i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	104 $newname =~ s/ op([\d]) / Opening $1 /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	105 $newname =~ s/ ed([\d]) / Ending $1 /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	106 $newname =~ s/ dragonball / Dragon Ball /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	107 $newname =~ s/Kissxsis/ Kiss x Sis /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	108 $newname =~ s/k-on/K-ON/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	109 #$newname =~ s/ dvd ($.*$ )?\[/ $1 [DVD][/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	110 $newname =~ s/ ([\d]+)( \|\.)/ - $1$2/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	111 $newname =~ s/$([[:xdigit:]]{8})$/[$1]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	112 $newname =~ s/ ep([\d]+) / - $1 /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	113 $newname =~ s/- \[/ [/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	114 $newname =~ s/&/ & /g;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	115 $newname =~ s/ ([\d]{2})\[/ $1 [/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	116 $newname =~ s/(\[[0-9a-fA-F]{8})/\U$1/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	117 $newname =~ s/v([[:digit:].]+)([^\[]+)\[/${2}[v${1}][/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	118 #$newname =~ s/v2 (?=$.*$ ) \[/ $1 [v2][/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	119 $newname =~ s/([^ ])\[DVD\]\[x264\.AAC\]/$1 [DVD]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	120 $newname =~ s/$DVD$ +\[/[DVD][/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	121 $newname =~ s/^(\[[^]]+\])([^ ])/$1 $2/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	122 $newname =~ s/($(1280x720\|960x720)[^)]*$)/($2)/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	123 $newname =~ s/($(1920x1080)[^)]*$) /($2) [BD]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	124 $newname =~ s/\[[^]]720p[^]]\] ?/(1280x720) /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	125 $newname =~ s/\[[^]]1080p[^]]\] ?/(1920x1080) /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	126 $newname =~ s/$720p$/(1280x720)/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	127 $newname =~ s/\[1280x720[^]]+\]/ (1280x720) /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	128 $newname =~ s/$[^)]704x480[^)]$//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	129 $newname =~ s/([^ ])\(/$1 (/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	130 $newname =~ s/\.avi\.avi/.avi/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	131 $newname =~ s/^\[([^]&\-]) +& +([^]&\-])\]/[$1-$2]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	132 $newname =~ s/$704x396 x264 AAC$//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	133 $newname =~ s/\] +\[/][/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	134 $newname =~ s/~([^~]+)~/- $1 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	135 $newname =~ s/\[DVD[^]]+\]/[DVD]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	136 $newname =~ s/(\[BD\])+/[BD]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	137 #$newname =~ s/Ep //;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	138 $newname =~ s/([[:digit:]])v([[:digit:]]) \[/$1 [v$2][/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	139 $newname =~ s/([^-]) ([0-9]{2,3}) /$1 - $2 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	140 $newname =~ s/- *\[/ [/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	141 $newname =~ s/( ?- )+/ - /g;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	142 #$newname =~ s/ Special - / Special /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	143 $newname =~ s/ (\)\|\])/$1/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	144 $newname =~ s/(\(\|\[) /$1/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	145 $newname =~ s/(\|\[\])+//;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	146 #$newname =~ s/\) +\[/) [BD][/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	147 #$newname =~ s/SP/- Special /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	148 $newname =~ s/\[(Final\|End)\]/[End]/i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	149 #$newname =~ s/Gurren Lagann Parallel Works - 2/Gurren Lagann Parallel Works 2/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	150 $newname =~ s/ - special - ([[:digit:]]+) / - Special $1 /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	151 $newname =~ s/ memories off - 3\.5 - / Memories Off 3.5 - /i;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	152 $newname =~ s/ - Navigation - / - Navigation /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	153 $newname =~ s/ - Picture Drama - / - Picture Drama /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	154 $newname =~ s/\[W B\]/[W_B]/;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	155 $newname =~ s/ - (Ending\|Opening) - 1 / - $1 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	156 $newname =~ s/Seed Character Theater - /SEED - Character Theater /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	157 $newname =~ s/ - (Ending\|Opening) - ([[:digit:]]+) / - $1 $2 /;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	158 $newname =~ s/ +/ /g;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	159 print(qq($_: $newname already exists, skipping\n)) and next() if -e $newname and $_ ne $newname;
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	160 if ($_ eq $newname) {
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	161 print("$_: no need to rename, skipping\n");
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	162 } else {
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	163 if($skip==1) { print("Result: $_ --> $newname\n"); }
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	164 else {
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	165 if(rename($_, $newname)) { print("$_ -> $newname\n"); }
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	166 else { print("$_: rename failed\n"); }
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	167 }
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	168 }
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	169 next();
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	170 }
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	171
94ee419ad047 Added bin-ec - a collection of scripts. Edho Prima Arief <me@myconan.net> parents: diff changeset	172 exit(0);

Mercurial > ec-dotfiles

annotate bin/ren @ 8:b5d0c1892294