cd yourdirectory perl -e 'for(<*>){((stat)[9]<(unlink))}'
参考Efficiently delete large directory containing thousands of files