m4scosta · October 18, 2016 12:05
diff --git a/fast_rm.sh b/fast_rm.sh
 #!/bin/bash

 ROOT=$1

 for dir in $(find $ROOT* -maxdepth 5 -type d | sort -z); do
        echo "Deleting $dir"
        cd $dir
        perl -e 'for(<*>){((stat)[9]<(unlink))}'
        cd ..
        rm -r $dir
 done
	#!/bin/bash

	ROOT=$1

	for dir in $(find $ROOT* -maxdepth 5 -type d \| sort -z); do
	echo "Deleting $dir"
	cd $dir
	perl -e 'for(<*>){((stat)[9]<(unlink))}'
	cd ..
	rm -r $dir
	done