[Perl] Prettify Command Output. - Programming On Unix

Users browsing this thread: 2 Guest(s)
crshd
Registered
I've been working on some Perl wrappers to prettify the output of common commands.

#df
[Image: vZXZ5bQ.png]
###Script
**Note:** BSD users need to use _gdf_ instead of BSD's _df_



#uname
![scrot](http://paste.xinu.at/IvsxN/)
###Script
**Note:** Untested on BSD. If I remember correctly, uname on BSD is different than Linux, so I suppose it won't work.

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCA/IT d-(---)@ s+: a-- C+++(++++)$ UBL*+++ P+++>++++ L++ E W+++$ !N !o K !w !O M+>++ !V PS+++ PE !Y PGP+ !t-- !5 !X R@ tv- b+ DI D+ G e h r++ y+
------END GEEK CODE BLOCK------

yrmt
Grey Hair Nixers
GNU df is needed. ;)

[Image: 90t0]

Updates: line 55/71, change %-15s to 18 _(crshd)_

So, now it looks better:

[Image: Xk7ssI]
simon
Long time nixers
cool, Im using cope (found on trapd00rs place @ git) right now.
please share this :D
Dritz
Long time nixers
I've been using the 'df' script. Excellent work!

It's too bad I don't know perl.
"Willful ignorance is a crime"