This section is now closed for posting code. Please use Cool Uses For Perl instead.

Code Categories
Audio Related ProgramsFTP stuffNT Admin
CGI ProgrammingFun StuffWin32 Stuff
Chatterbox ClientsGUI ProgrammingMiscellaneous
CryptographyHTML UtilityText Processing
Database ProgrammingUtility ScriptsNetworking Code
E-Mail ProgramsWeb StuffPerlMonks Related Scripts


New Code
Job schedule task inventory
on Jun 28, 2006 at 10:35
1 reply by shonorio
Do a job inventory on all computers passed by command line, and output theses job information as tab format.
Another Server Info Snooper (AsIs) ;)
on Jun 26, 2006 at 13:32
0 replies by Alexander
Snoops some useful information which I have not normally seen included in other such utilities. It can be handy to web developers to have such system summaries. Particularly to those of us on shared hosting accounts or virtual private servers that sometimes can require configuring certain things to operate properly within the account user's $HOME. I personally find myself needing to do that sometimes. In doing it recently, I wrote this utility, and then ran it past the CB before posting it here. (See credits, line 3.) It's summary is intended to be customizable by the user to have the values they need at a glance. Because it will accept ANY shell command, it is potentially dangerous to those unfamiliar with a Bourne-like shell. Beware the commands you choose to query! In order to accept user determined commands into the summary list, commands could not be translated into their perl equivalents and so the commands are literally being entered into the shell. Again, this was intended to suplement the information provided by the great many utilities already used by many of you. Use this to "fill in the blanks" like "perl -V". If you do not like the options, just change them (at your own peril mwahaha). This is populated by the values I was needing at the time I wrote the first sloppy version. Use them as a starting point and add, remove, and rearrange as much as you want. I would be interested to know what other "uncommon" values the rest of you find yourselves needing yet frequently absent from other such summary utilities.
Massage the driving directions (in USA)
on Jun 18, 2006 at 13:30
1 reply by parv

This program massages the driving directions (in USA) for plain text printing (preferably in monospace font, w/ a blank line between each non empty line), with these priorities (in no particular order) ...

  • up-case road names, exit numbers, places
  • low-case everything else
  • expand n, w, e, s to north, west, east, south
  • shorten road type (like mailing address), e.g. 'road' to 'rd', 'lane' to 'ln', etc.
  • removes the annoying 'go' from 'go <this much>'

perltoxmi
on Jun 16, 2006 at 15:03
0 replies by g0n
Rough and ready way to convert oo perl code to xmi for uml class diagrams, for import into Argo/Rose/etc etc.
MoveCeiling - monitor filesystem growth
on Jun 15, 2006 at 18:05
1 reply by bpoag
MoveCeiling is an AIX Perl script that monitors filesystem growth, and attempts to ensure a given filesystem doesn't run out of space by increasing the amount of free space ahead of the demand for additional storage. MoveCeiling also keeps a timestamped log of it's actions (located in /tmp/moveceiling.log) for later reference.
Format POD as XHTML with embedded stylesheet
on Jun 09, 2006 at 16:39
0 replies by TGI
A simple script to convert pod into xhtml with an embedded stylesheet. I tend to write most of my notes in pod instead of using MS Word or similar tools, and I often need to provide a self contained html file to coworkers so that they can read my notes.
Simple Hit Counter
on May 28, 2006 at 21:59
3 replies by GreyFox
This is a simple hit counter I threw together for my website. Nothing fancy, it just
MakeDVDArchive
on May 18, 2006 at 00:42
0 replies by HuckinFappy

I've been backing up large directory trees (120-200 GB) of music onto DVD recently on my linux machine. This is a program I wrote to help me.

MakeDVDArchives will read the contents of a large directory, and divide it up into appropriate sized chunks for assorted sizes of DVD media. It will then:

  1. Create a datafile describing what is on each DVD
  2. Divide the DVDs into sets of two, for storage in dual jewel cases
  3. Create XML files for each set, for use with the program 'kover' for printing the covers for each set. The default covers are only the back insert, including spine text, so no insert for the front is printed.
  4. Burn the DVDs, prompting you to insert blanks as appropriate

    The configuration can be controlled either via the command line, or the ~/.dvdarchiverc file.

    This is a completely linux-centric program. It uses growisofs to write the DVDs, and the files for the covers it creates are for printing via the 'kover' program, part of the KDE suite.

psh (perl testing shell)
on May 11, 2006 at 14:16
0 replies by jettero
I'm sorry to say, I've written another perl shell. This one is designed to help with the development of perl programs by giving you a place try things out. I've been using it to support my own coding for quite some time now and a friend encouraged me to publish it. I wrote this one to compete with hilfe specifically, though python and ruby have similar devices. UPDATE(2/14/08): This has evolved a bit since my original post May 11, 2006 at 14:16 EDT. UPDATE(8/28/8): More evolution. There is now support for paging in less, shell forks, config editing, and assorted perldoc forks.
find directory ACL change in a tree
on May 11, 2006 at 06:23
0 replies by Discipulus
This is a first working attempt to find and dump difference between folder permission in a tree.

If usr have in a/b/c different permissions that in a/b so permissions for usr in a/b and in a/b/c are dumped.

If user is not found in a/b or in a/b/c this is printed.

Please review it wise monks!