in reply to What's eating all your disk space?
Perhaps, it could help others if I show the way I used it. (based on the main node)
The output would show in an xmessage screen (come on, burn me). But it could work well with a TK one, as well as with the full perl way of doing it all, who doubts that :) .##[ my_df.sh ]## chdir ~ du -sk . * .* | perl -e ' ## ADDED .files $sum=<>; while (<>) { ($size, $inode) =split; $inode .= "/" if (-d $inode); ## /_SHOW SIZE IN Kb + GRAPHIC: _\ printf("%25s | %4d Kb |%6.2f%% [%+11s]\n",$inode,int($size/1024),$ +size/$sum*100,"<".("=" x (int($size/$sum*10)))) unless ($inode=~/\.\. +/); ## EVERY LINE LOOKS LIKE THIS: ## Documents/ | 710 Kb | 52.20% [ <=====] }'| sort -rn -k 3 | head | xmessage -center -file -
| { | \ | ( | ' | v | ' | ) | / | } | ||||||||||||||||||||||||||||||
| ( | \ | _ | / | ) | _ | _ | _ | _ | ` | ( | ) | ' | _ | _ | _ | _ | ||||||||||||||||||||||
| ( | = | ( | ^ | Y | ^ | ) | = | ( | _ | _ | ^ | ^ | ^ | ^ | ||||||||||||||||||||||||
| _ | _ | _ | _ | \ | _ | ( | m | _ | _ | _ | m | ) | _ | _ | _ | _ | _ | _ | _ | _ | _ | ) | c | h | i | a | n | o | , | a | l | b | e | r | t | o |
|
|---|