FOR Loop for Directory Creation and File Moves

[stevenffrench]

I recommend using a FOR loop for the directory creation and file moves. It's far more efficient. Here's a version with that implemented.

[mushu999]

Here's a Perl script to rename them - I didn't care if they were in perfect order in each directory, I just needed them to be indexed by Plex, so any purists won't be happy. Also, I renamed the base directory to "LooneyTunes" and thus the file names will all start with that followed by S[Year]E[counter] in each subdirectory. Make sure you change the path in the "for" command to your own Plex TV shows path!

# to run, drop to a CMD prompt and get into your Looney Tunes base directory
#   while in the Looney Tunes base directory you iterate thru each subdirectory and run the script
#   for /d %x in ("C:\plex\tv-shows\LooneyTunes\Season*") do cd "%x" && perl ..\rf.pl

use File::Basename;
use Cwd qw();
use strict;

opendir(DIR,'.');
my $cd = Cwd::cwd();		# get current directory
my $c=0;					# init episode counter
while(my $fil=readdir(DIR)) {
	next if -d $fil;			# ignore subdirectories (so only works 1 level down)
	(my $b, my $d, my $e) = fileparse($fil,'\..+');
	my $w = substr($cd, -4);		# grab last 4 chars of current directory name
	next if ($w<1 or $w>1000000);	# cheap test for if it is a number (makes sure we're in a Year)
	next if ($fil =~ m/^LooneyTunes/);	# ignore already renamed files (change to match your system)
	$c++;
	my $ep = sprintf("%02d",$c);
	my $newfil = "LooneyTunes - S$w" . "E$ep - $fil";		# Change LooneyTunes to match your system
	print "Renaming $fil to $newfil\n\n";
	rename($fil,$newfil) or warn "Couldn't rename file: $!\n";
}
closedir(DIR);
exit;