#!/usr/bin/perl

open(DIR,"find . -type f|");

while($in = <DIR>) {
	chop($in);

	print "$in\n";	

	if(($path,$rating,$filename) = $in =~ /(.*)\/(\d+)(.*\.JPG)/) {

	print "path: $path\nrating:$rating\nfilename:$filename\n";

	$newrating = 7 - $rating;

	$cmd = "mv \"$in\" \"$path/$newrating$filename\"";

	print "cmd: $cmd\n";

	system($cmd);

	}



}