cleanup.pl

cleanup.pl

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

use File::Path;

sub folder($) {
	my $file = shift;
	my (undef, undef, undef, $day, $mon, $year) = localtime((stat($file))[10]);
	$year += 1900;
	$mon = sprintf("%02d", $mon+1);
	$day = sprintf("%02d", $day);
	return "$year/$year-$mon/$year-$mon-$day";
}

my $dirname = "$ENV{'HOME'}/Downloads";

my $dir;
opendir($dir, $dirname) or die "Couldn't open '$dirname': $!";

while (my $file = readdir($dir)) {
	next if $file =~ /^\./ or $file =~ /^\d{4}$/ or $file =~ /\.download$/ or (-C "$dirname/$file") < 1;
	my $folder = folder("$dirname/$file");
	mkpath("$dirname/$folder") unless -d "$dirname/$folder";
	rename("$dirname/$file", "$dirname/$folder/$file") or die "Couldn't move '$dirname/$file' to '$dirname/$folder': $!";
#	print "moved $file to $folder\n";
}

closedir($dir);