[Perl] Prettify Command Output.

[Perl] Prettify Command Output. - Programming On Unix

Users browsing this thread: 2 Guest(s)

	crshd Offline \| 27-07-2012, 09:36 AM \| #1

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 Offline \| 27-07-2012, 11:04 AM \| #2

GNU df is needed. ;)

[Image: 90t0]

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

So, now it looks better:

[Image: Xk7ssI]

	simon Offline \| 30-07-2012, 06:23 AM \| #3

cool, Im using cope (found on trapd00rs place @ git) right now.
please share this :D

	Dritz Offline \| 04-09-2012, 03:22 AM \| #4

I've been using the 'df' script. Excellent work!

It's too bad I don't know perl.

"Willful ignorance is a crime"

View a Printable Version