删除Linux空目录

du -h * | grep '4.0K' | cut -f 2 | perl -e 'open FH../t.txt"; my @lines = <FH>; close FH;  my %t; for(@lines){my ($k, $v) = split / -> /, $_; $t{$k} = $v} ;while(<>){chomp;delete $t{$_};} print scalar keys %t;'