Manual media organization.

media.pl

#!/usr/bin/perl
use warnings;
use strict;
use File::Copy;
my ($resolution,$series,$episodePad,$seasonPad);
input("Resolution",\$resolution,0);
input("Series title",\$series,0);
input("Episode Padding",\$episodePad,2);
input("Season Padding",\$seasonPad,2);
my @files = <"./*$series*">;
for(@files) {
	my ($skip,$episode,$season,$title,$extension);
	input("$_\nModify [Y/n]]",\$skip,0);
	next if($skip);
	input("Season",\$season,1);
	input("Episode",\$episode,1);
	input("Title",\$title,0);
	
	$episode = '0'.$episode while((split //, $episode) < $episodePad);
	$season = '0'.$season while((split //, $season) < $seasonPad);
	($extension = $_) =~ s/.*(\.[^\.]+?)$/$1/;
	
	move($_,"$series ($resolution) [$season"."x$episode]".(($title)?" $title":'').$extension);
}

sub input {
	my ($message,$ref,$default) = splice @_,0,3;
	print "$message: ";
	$$ref = <STDIN>;
	chomp($$ref);
	$$ref = $default if((!length $$ref) && (length $default));
}