Rename batch

gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

use String::CRC32;
use File::Copy;

my (@files);

open(FD1, "ls *.mp4 *.mkv |");
@files = <FD1>;
close(FD1);

foreach my $f (@files) {
	chomp $f;
	
	open(FD1, $f);
	my $crc = crc32(*FD1);
	close(FD1);
	$crc = uc sprintf('%08x', $crc);

	$f =~ m/.*\ ([\d][\d][\d]).*\.(.{3})$/g;
	my $newname = "[VOSTFR]_Bleach_-_$1_[$crc].$2";
	print "$f is becoming $newname\n";
	rename("$f", "$newname");
}