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` }' <src dir> <archive dir>
