perl -we '$z = pack("x32"); open $F, "<", "$ARGV[0]/quota.user" or die; for ($u = 0; 0 < read $F, $s, 32; $u++) { $s eq $z and next; @d = unpack "L*", $s; $n = getpwuid $u; push @l, "$n($u): blocks $d[2]/$d[1]/$d[0], files $d[5]/$d[4]/$d[3], grace $d[6]/$d[7]\n"; push @s, $d[0] || 1e999; } print @l[sort { $s[$a] <=> $s[$b] } 0 .. @l - 1];' /home > quotas.txt