ss-rename

#!/usr/bin/perl -ws
# renames screenshots on the desktop to 2020-02-02.1234.55.ext
#
# my $dir = "$ENV{HOME}/Desktop";
no warnings 'once';
my @dirs = ("$ENV{HOME}/Desktop", "$ENV{HOME}/Pictures");

my $dryrun=0;
if($n) {
    $dryrun=1;
    print("Dry run - no actions will actually be taken\n");
}

sub d(@) {
	return unless $v;
	print @_;
	print "\n";
}

sub dd(@) {
	return unless $v;
	print @_;
}

if(scalar @ARGV > 0) {
	$dir = $ARGV[0];
	shift;
	@dirs=($dir)
}

sub mv($$) {
	my $src = shift;
	my $dst = shift;
    if($dryrun) {
        print("mv \"$src\" \"$dst\"\n");
    } else {
        rename $src, $dst || print("ss-rename: renaming \"$src\" to \"$dst\" failed: $!\n");
    	print("ss-rename: $dst\n");
    }
}

sub ssrename($) {
	my $dir = shift;
	chdir($dir);

	dd("PWD is ", `pwd`);

	# Screen Recording 2020-11-19 at 18.13.50.mov
	# Screenshot 2022-07-04 at 5.33.06 PM
	for my $ss (<"*">) {
		my $newname="";
		d("ss-rename: checking \"$ss\"");
		if($ss =~ /S.* ?(recording|shot).* (\d\d\d\d-\d\d-\d\d) at (\d+)\.(\d\d\.\d\d)( [AP]M)?\.(\w\w\w)/i) {
			my $date = $2;
			my $hour = $3;
			my $minutes = $4;
			d("ss-rename: renaming \"$ss\"");
			my $time=$3;
			my $ext = $6;
			if(defined $5 && $5 eq " PM" && $hour < 12) {
				dd("ss-rename: adding 12 hours to $hour,");
				$hour += 12;
				d(" \"$hour\"");
			} elsif(defined $5 && $5 eq " AM" && $hour == 12) {
				dd("ss-rename: using 00 for midnight, ");
				$hour -= 12;
				d(" \"$hour\"");
			}
			$hour = "0${hour}" if $hour < 10;
			$newname="${date}.${hour}${minutes}.${ext}";
			if(-e $newname) {
				warn "$0: \"$newname\" already exists. skipping $ss\n";
				next;
			}
			d("ss-rename: renaming to \"$newname\"");
			mv $ss, $newname;
		}
		elsif($ss =~ /S.* ?(recording|shot).* (\d\d\d\d\-\d\d-\d\d) at (\d+)\.(\d\d\.\d\d) (am|pm|AM|PM)(.*)\.([a-z]+)$/i) {
			d("Found Screen $1");
			my $date = $2;
			my $hour = $3;
			my $minsec = $4;
			my $extra = $6;
			my $ext = $7;
			my $ampm = lc $5;
			$hour += 12 if $ampm eq "pm";
			$newname="${date}.${hour}${minsec}${extra}.${ext}";
		}
		elsif($ss =~ /vlcsnap-(\d\d\d\d-\d\d-\d\d)-(\d\d)h(\d\d)m(\d\d)s(\d\d\d)\.([a-z]+)$/i) {
			d("Found vlcsnap-$1");
			my $date = $1;
			my $hour = $2;
			my $min = $3;
			my $sec = $4;
			my $ms = $5;
			my $ext = $6;
			$newname="${date}.${hour}${min}.${sec}.${ms}.$ext";
		}
        elsif($ss =~ /^RPReplay_Final(\d+)\.(\w+)$/) {
            my $timestamp = `date -r $1 +%F.%H%M`;
            chomp($timestamp);
            my $ext = lc $2;
            $newname = "$timestamp.$ext";
        }
		else {
			next;
		}
		if(-e $newname) {
			d("$0: \"$newname\" already exists. skipping $ss");
			next;
		}
		d("ss-rename: \"$ss\" => \"$newname\"");
		mv $ss, $newname;
	}

	# Simulator Screen Shot - iPhone Xs Max (UAT, FR) - 2018-12-04 at 15.26.31
	for my $ss (<"Simulator Screen ?Shot*">, <"Simulator Screen Recording*">) {
		print "$ss\n";
		if($ss =~ /Simulator Screen ?\w* - (.*) - (\d\d\d\d\-\d\d-\d\d) at (\d\d)\.(\d\d\.\d\d)\.([a-z][a-z][a-z])/) {
			my $newname="simulator.${2}.${3}${4}.${1}.${5}";
			if(-e $newname) {
				warn "$0: \"$newname\" already exists. skipping $ss\n";
				next;
			}
			mv $ss, $newname;
		}
	}
}

foreach $dir (@dirs) {
	ssrename $dir;
}