rename-sha256.pl6

use Digest::SHA256::Native;

multi sub MAIN(Cool $input = '.', Bool :$recursive = False, Bool :$apply = False) {
	for find-files($input, recursive => $recursive) -> $current {
		my $next = $current.dirname.IO.add(sha256-hex(($current.slurp(:bin))) ~ '.' ~ $current.extension);

		say $current.basename ~ ' => ' ~ $next.basename;

		if ($apply && !($current.basename eq $next.basename)) {
			$current.rename($next);
		}
	}
}

sub find-files (Cool $directory = '.', Mu :$test = none('.', '..'), Bool :$recursive) {
	gather for dir $directory -> $path {
		if $path.f && $path.basename ~~ $test {
			take $path
		}

		if $recursive && $path.d {
			.take for find-files $path, :$test
		}
	}
}