I'm sorry, world. perl -e '$ARGV[0] || die "Error: must specify archive directory\n"; opendir(DIR, $ARGV[1] ? $ARGV[0] : "."); while (my $file = readdir(DIR)) { next if $file =~ /^\./; my ($y, $m, $d) = (localtime((stat($file))[9]))[5, 4, 3]; $y += 1900; $m = sprintf("%02d", $m + 1); $d = sprintf("%02d", $d); $ad = $ARGV[1] ? $ARGV[1] : $ARGV[0]; $ad =~ s/^(.+?)\/{0,1}$/$1/g; `mkdir -p $ad/$y/$m/$d` unless -e "$ad/$y/$m/$d"; print "$file => $ad/$y/$m/$d\n"; `mv $file $ad/$y/$m/$d` }' [...]
Well .. it looks like I officially burned the first bridge of my professional career. I'm not quite sure what drove me to it. I think it was internal and external pressure coming to a head. I'm definitely not proud of it but I'm sure glad to have this time off ahead of me. Hopefully I can finally wake up from this bad dream. Good luck to all involved.. whether I fucked you over or not. I won't be doing any slamming btw.. you don't need another whiny [...]