Re: graphical representation of `du`
On Wed, Apr 06, 2011 at 08:34:42PM +0100, Chris Rees wrote: > 2011/4/6 Peter Vereshagin : > > > > Again, why don't you guys just use perl to provide a graphical du? I believe > > perl is just present on every freebsd machine where graphical du is needed. > > > > Why on Earth would you use Perl when a simple awk script will do??? Why on earth would you cloud things up with AWK when a simple Perl script would do it?! jerry > > Chris > ___ > freebsd-questions@freebsd.org mailing list > http://lists.freebsd.org/mailman/listinfo/freebsd-questions > To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org" ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Nobody knows that you're in for that, freebsd-questions! 2011/04/06 20:34:42 +0100 Chris Rees => To Peter Vereshagin : CR> > Again, why don't you guys just use perl to provide a graphical du? I believe CR> > perl is just present on every freebsd machine where graphical du is needed. CR> Why on Earth would you use Perl when a simple awk script will do??? Me? I personally find Perl more usable. 73! Peter pgp: A0E26627 (4A42 6841 2871 5EA7 52AB 12F8 0CE1 4AAC A0E2 6627) -- http://vereshagin.org ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
2011/4/6 Peter Vereshagin : > > Again, why don't you guys just use perl to provide a graphical du? I believe > perl is just present on every freebsd machine where graphical du is needed. > Why on Earth would you use Perl when a simple awk script will do??? Chris ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On Apr 6, 2011, at 11:34 AM, Peter Vereshagin wrote: > Again, why don't you guys just use perl to provide a graphical du? I believe > perl is just present on every freebsd machine where graphical du is needed. Although it is a common addition, Perl isn't part of the FreeBSD base system. Regards, -- -Chuck ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Nobody knows that you're in for that, freebsd-questions!
2011/04/05 04:12:40 +0400 Австин Ким => To
freebsd-questions@freebsd.org :
> Sun, 3 Apr 2011 20:57:24 +0100 письмо от Chris Rees :
>
> > On 3 April 2011 20:26, Австин Ким wrote:
> > > Sun, 03 Apr 2011 12:01:24 +0200 письмо от David Demelier
> > :
> > >
> > >> On 02/04/2011 19:30, Chris Rees wrote:
> > >> > On 2 April 2011 18:22, Chris Rees wrote:
> > >> >> On 2 April 2011 18:07, Mike Jeays wrote:
> > >> >>> On Sat, 2 Apr 2011 17:15:04 +0100
> > >> >>> Chris Rees wrote:
> > >> >>>
> > >> du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
> > >> awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
> > >> >>>
> > >> >>>
> > >> >>> I confess to being impressed...
> > >> >>>
> > >> >>
> > >> >> Yeah, but perhaps I should have used sed instead of the second awk;
> > >> >> fewer processes:
> > >> >>
> > >> >> du -h | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' | sed
> > >> >> -e
> > >> >> 's,^[^1-9]*\([^___CTRL-V+TAB__]*\)CTRL-V+TAB_*\(.*\)$,\2
> > >> >> \[\1\],;s,[^-][^/]*/,--,g;s,^,|,'
> > >> >>
> > >> >> That does exactly the same -- where I've put CTRL-V+TAB__ you
> > >> >> have to type Ctrl-V, then a literal [::tab::] key; BSD sed doesn't do
> > >> >> \t.
> > >> >>
> > >> >> Chris
> > >> >>
> > >> >
> > >> > Final version:
> > >> >
> > >> > http://www.bayofrum.net/~crees/graphical_du.sh
> > >> >
> > >> > Maybe I should port it...
> > >> >
> > >>
> > >> Thanks! This rocks! :-)
> > >>
> > >
> > > What a fun thread :)
> > >
> > > Here's my two cents, written as an sh(1) function that you can tack on to
> > the end of your .profile or .shrc:
> > > (Caveats: I'm writing this on a Mac OS X machine, not on a FreeBSD
> > > machine,
> > at the moment, but hopefully this'll still work.
> > > Also, the following will mess up if you have directories whose names begin
> > with "|".)
> > >
> > > # dg: `du--graphical'
> > > # Usage: dg [dir ...]
> > > # Based on script by Chris Rees
> > > # 1459 Sunday, 3 April 2011
> > >
> > > dg ( ) {
> > > du -h "$@" |
> > > awk '{FS="\t"; print $2"\t["$1"]"}' |
> > > sort |
> > > sed -e 's:[^/]*/:| :g' -e 's:\(^\(| \)*\)| \([^|].*\):\1+-\3:'
> > > return
> > > }
> >
> > I used the awk a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] etc to
> > reverse the order, rather than alphabetise it because it's quicker:
> >
> > $ du -h . | time sort >/dev/null 2>time
> > $ cat time
> > 8.17 real 0.03 user 0.00 sys
> > $ du -h . | time awk '{a[i++]=$2} END { for (j=i-1; j>=0;) print
> > a[j--] }' >/dev/null 2>time2
> > $ cat time2
> > 7.77 real 0.14 user 0.00 sys
> >
> > YMMV of course!
> >
> > Chris
>
> I can't argue with that. If you're a sysadmin and are managing a large
> system,
> the sort could take some time. On the other hand, there are times when a sort
> might be useful. Then again, you could always just comment that line out :)
>
> Which reminds me, my sort line above may not sort intuitively in the case
> where
> directory names contain characters that precede / in the ASCII character set;
> for example, "mydir-old" sorts before "mydir/" in ASCII. A quick kludge is to
> translate slashes into, oh I don't know, say carriage returns before the sort,
> and then translate them back after the sort, as is done below. An inelegant
> and inefficient solution, but it works. However, I'm going out on a limb by
> assuming users won't be running this script under MS-DOS, where this kludge
> wouldn't work.
>
> Another problem with my script above is that in some cases, if you run it on
> multiple arguments, e. g., "dg dir1/subdir dir2/subdir," you can't tell from
> the output to which parent directory the subdirectory refers; to deal with
> this problem, the revised version below runs du on each argument one at a
> time.
> However, I ended up having to duplicate the main command in the script (once
> for "dg" with arguments, and once without), 'cause I'm not clever enough to
> figure out a way to combine the two cases into one in time to post this.
>
> I also had a redundant [^|] in the sed expression which I took out; it
> shouldn't be necessary, although the script will still mess up if any
> directory
> names start with "| ".
>
> Finally, the revised version is repackaged as a proper sh(1) script like your
> original script rather than as a function, to make it independent of a user's
> particular shell. Obviously further variations and improvements could be
> made.
>
> Again I'm away from my FreeBSD machine and am writing this on a Mac OS X
> machine; hopefully I didn't break anything.
>
> #!/bin/sh
> #
> # dg: `du--graphical'
> # Usage: dg [dir ...]
> #
> # Based on script by Chris Rees
> # 1459 Sunday, 3 April 2011
> #
> # Modified: 1900 Monday, 4 April 2011
>
> if [ "$1" ]
>then for i in "$@"
> do if [ "$2" ]
> then echo
>
Re: graphical representation of `du`
On 02/04/2011 19:30, Chris Rees wrote:
On 2 April 2011 18:22, Chris Rees wrote:
On 2 April 2011 18:07, Mike Jeays wrote:
On Sat, 2 Apr 2011 17:15:04 +0100
Chris Rees wrote:
du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
I confess to being impressed...
Yeah, but perhaps I should have used sed instead of the second awk;
fewer processes:
du -h | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' | sed
-e 's,^[^1-9]*\([^___CTRL-V+TAB__]*\)CTRL-V+TAB_*\(.*\)$,\2
\[\1\],;s,[^-][^/]*/,--,g;s,^,|,'
That does exactly the same -- where I've put CTRL-V+TAB__ you
have to type Ctrl-V, then a literal [::tab::] key; BSD sed doesn't do
\t.
Chris
Final version:
http://www.bayofrum.net/~crees/graphical_du.sh
Maybe I should port it...
Thanks! This rocks! :-)
Chris
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
--
David Demelier
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On 3 April 2011 02:25, Gary Kline wrote: > On Sat, Apr 02, 2011 at 08:07:43PM -0500, Ryan Coleman wrote: >> Yeah I don't run these computers to be desktops :) >> > > > exactly. i Do have x11 and ctwm just to get two xterms. but > prefer the console. --besides, xdu takes too long. Double moan-bullshit. David ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On Sat, Apr 02, 2011 at 08:07:43PM -0500, Ryan Coleman wrote: > Yeah I don't run these computers to be desktops :) > exactly. i Do have x11 and ctwm just to get two xterms. but prefer the console. --besides, xdu takes too long. > On Apr 2, 2011, at 8:05 PM, David Chanters wrote: > > > On 3 April 2011 01:30, Ryan Coleman wrote: > >> Well, it looks like it's written for X, which I don't run on any of my > >> servers. > > > > Moan, moan, moan. It solves your problem though. > > > > David > > ___ > > freebsd-questions@freebsd.org mailing list > > http://lists.freebsd.org/mailman/listinfo/freebsd-questions > > To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org" > > ___ > freebsd-questions@freebsd.org mailing list > http://lists.freebsd.org/mailman/listinfo/freebsd-questions > To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org" > -- Gary Kline kl...@thought.org http://www.thought.org Public Service Unix Journey Toward the Dawn, E-Book: http://www.thought.org The 7.98a release of Jottings: http://jottings.thought.org ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Yeah I don't run these computers to be desktops :) On Apr 2, 2011, at 8:05 PM, David Chanters wrote: > On 3 April 2011 01:30, Ryan Coleman wrote: >> Well, it looks like it's written for X, which I don't run on any of my >> servers. > > Moan, moan, moan. It solves your problem though. > > David > ___ > freebsd-questions@freebsd.org mailing list > http://lists.freebsd.org/mailman/listinfo/freebsd-questions > To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org" ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On 3 April 2011 01:30, Ryan Coleman wrote: > Well, it looks like it's written for X, which I don't run on any of my > servers. Moan, moan, moan. It solves your problem though. David ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Well, it looks like it's written for X, which I don't run on any of my servers. Thanks, though. On Apr 2, 2011, at 6:50 PM, David Chanters wrote: > Hi > > On 2 April 2011 15:20, Ryan Coleman wrote: >> I found this command: >> ls -R | grep ":$" | sed -e 's/:$//' -e 's/[^-][^\/]*\//--/g' -e 's/^/ /' >> -e 's/-/|/' > > What about xdu? > > http://sd.wareonearth.com/~phil/xdu/ > > David > ___ > freebsd-questions@freebsd.org mailing list > http://lists.freebsd.org/mailman/listinfo/freebsd-questions > To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org" ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Chris Rees wrote: > Maybe I should port it... +1 ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Hi On 2 April 2011 15:20, Ryan Coleman wrote: > I found this command: > ls -R | grep ":$" | sed -e 's/:$//' -e 's/[^-][^\/]*\//--/g' -e 's/^/ /' -e > 's/-/|/' What about xdu? http://sd.wareonearth.com/~phil/xdu/ David ___ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On Sat, Apr 02, 2011 at 06:30:15PM +0100, Chris Rees wrote:
> On 2 April 2011 18:22, Chris Rees wrote:
> > On 2 April 2011 18:07, Mike Jeays wrote:
> >> On Sat, 2 Apr 2011 17:15:04 +0100
> >> Chris Rees wrote:
> >>
> >>> du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
> >>> awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
> >>
> >>
> >> I confess to being impressed...
> >>
> >
> > Yeah, but perhaps I should have used sed instead of the second awk;
> > fewer processes:
> >
> > du -h | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' | sed
> > -e 's,^[^1-9]*\([^___CTRL-V+TAB__]*\)CTRL-V+TAB_*\(.*\)$,\2
> > \[\1\],;s,[^-][^/]*/,--,g;s,^,|,'
> >
> > That does exactly the same -- where I've put CTRL-V+TAB__ you
> > have to type Ctrl-V, then a literal [::tab::] key; BSD sed doesn't do
> > \t.
> >
> > Chris
> >
>
> Final version:
>
> http://www.bayofrum.net/~crees/graphical_du.sh
>
> Maybe I should port it...
>
> Chris
PULeesese DO port that . [!!]
gary
> ___
> freebsd-questions@freebsd.org mailing list
> http://lists.freebsd.org/mailman/listinfo/freebsd-questions
> To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
>
--
Gary Kline kl...@thought.org http://www.thought.org Public Service Unix
The 7.98a release of Jottings: http://jottings.thought.org/index.php
http://journey.thought.org
ethic
Coming soon to http://transfinite.thought.org: On_Suicide
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
Wow... You rock!
Thanks so much!
On Apr 2, 2011, at 12:30 PM, Chris Rees wrote:
> On 2 April 2011 18:22, Chris Rees wrote:
>> On 2 April 2011 18:07, Mike Jeays wrote:
>>> On Sat, 2 Apr 2011 17:15:04 +0100
>>> Chris Rees wrote:
>>>
du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
>>>
>>>
>>> I confess to being impressed...
>>>
>>
>> Yeah, but perhaps I should have used sed instead of the second awk;
>> fewer processes:
>>
>> du -h | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' | sed
>> -e 's,^[^1-9]*\([^___CTRL-V+TAB__]*\)CTRL-V+TAB_*\(.*\)$,\2
>> \[\1\],;s,[^-][^/]*/,--,g;s,^,|,'
>>
>> That does exactly the same -- where I've put CTRL-V+TAB__ you
>> have to type Ctrl-V, then a literal [::tab::] key; BSD sed doesn't do
>> \t.
>>
>> Chris
>>
>
> Final version:
>
> http://www.bayofrum.net/~crees/graphical_du.sh
>
> Maybe I should port it...
>
> Chris
> ___
> freebsd-questions@freebsd.org mailing list
> http://lists.freebsd.org/mailman/listinfo/freebsd-questions
> To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On Sat, 2 Apr 2011 17:15:04 +0100
Chris Rees wrote:
> du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
> awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
I confess to being impressed...
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On 2 April 2011 18:22, Chris Rees wrote:
> On 2 April 2011 18:07, Mike Jeays wrote:
>> On Sat, 2 Apr 2011 17:15:04 +0100
>> Chris Rees wrote:
>>
>>> du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
>>> awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
>>
>>
>> I confess to being impressed...
>>
>
> Yeah, but perhaps I should have used sed instead of the second awk;
> fewer processes:
>
> du -h | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' | sed
> -e 's,^[^1-9]*\([^___CTRL-V+TAB__]*\)CTRL-V+TAB_*\(.*\)$,\2
> \[\1\],;s,[^-][^/]*/,--,g;s,^,|,'
>
> That does exactly the same -- where I've put CTRL-V+TAB__ you
> have to type Ctrl-V, then a literal [::tab::] key; BSD sed doesn't do
> \t.
>
> Chris
>
Final version:
http://www.bayofrum.net/~crees/graphical_du.sh
Maybe I should port it...
Chris
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On 2 April 2011 18:07, Mike Jeays wrote:
> On Sat, 2 Apr 2011 17:15:04 +0100
> Chris Rees wrote:
>
>> du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
>> awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
>
>
> I confess to being impressed...
>
Yeah, but perhaps I should have used sed instead of the second awk;
fewer processes:
du -h | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' | sed
-e 's,^[^1-9]*\([^___CTRL-V+TAB__]*\)CTRL-V+TAB_*\(.*\)$,\2
\[\1\],;s,[^-][^/]*/,--,g;s,^,|,'
That does exactly the same -- where I've put CTRL-V+TAB__ you
have to type Ctrl-V, then a literal [::tab::] key; BSD sed doesn't do
\t.
Chris
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
Re: graphical representation of `du`
On 2 April 2011 15:20, Ryan Coleman wrote:
> I found this command:
> ls -R | grep ":$" | sed -e 's/:$//' -e 's/[^-][^\/]*\//--/g' -e 's/^/ /' -e
> 's/-/|/'
>
> Which makes this:
> |-Mar17
> |---1300074369-chow
> |-download
> |---small
> |---1300421616-Cunningham
> |-download
> |---small
>
> But I want to use `du` instead to convert this
> 2.0M ./Mar17/1300074369-chow/download/small
> 2.0M ./Mar17/1300074369-chow/download
> 2.0M ./Mar17/1300074369-chow
> 2.1M ./Mar17/1300421616-Cunningham/download/small
> 2.1M ./Mar17/1300421616-Cunningham/download
> 2.1M ./Mar17/1300421616-Cunningham
> 4.1M ./Mar17
>
> into this:
> |-Mar17 [4.3M]
> |---1300074369-chow [2.0M]
> |-download [2.0M]
> |---small [2.0M]
> |---1300421616-Cunningham [2.1M]
> |-download [2.1M]
> |---small [2.1M]
>
>
> I realize it does it backwards and I can live with that... OR mix the two to
> run the first command and run another command to get the folders total size
> or something... you know?
>
du -h . | awk '{a[i++]=$0} END {for (j=i-1; j>=0;) print a[j--] }' |
awk '{print($2" ["$1"]");}' | sed -e 's,[^-][^/]*/,--,g' -e 's,^,|,'
Does it forwards :P
[crees@zeus]~/workspace/ports% du -h . | awk '{a[i++]=$0} END {for
(j=i-1; j>=0;) print a[j--] }' | awk '{print($2" ["$1"]");}' | sed -e
's,[^-][^/]*/,--,g' -e 's,^,|,'
|. [445K]
|--net-mgmt [81K]
|CVS [5.5K]
|zabbix-server [74K]
|--files [11K]
|CVS [4.5K]
|--CVS [4.5K]
... etc...
|--net [31K]
|pppoa [24K]
|--CVS [4.5K]
|--files [12K]
|CVS [4.5K]
|CVS [5.5K]
[crees@zeus]~/workspace/ports%
Any refinements requested I'll have a look at.
Chris
___
freebsd-questions@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-questions
To unsubscribe, send any mail to "freebsd-questions-unsubscr...@freebsd.org"
