Perl

During the summer of 2004, I was layed off from work at Sandial due to a funding shortage. During this time I started playing around with Perl.  Its been one of those those things where you see it, hear about it, notice it, but never have the time to actually mess with it.  Now given the time I made a little menu system for linux systems.  Nothing fantastic by any means but useful enough to use when coming into a remote switch via a telnet session and need a simple text based menu.  You can download the source files here.

The overall menu system should be somewhat self explanatory.  The basic idea is to have a directory hierarchy which contains files of a well known extension (.mn) which contain subroutines starting with the word "menu" such as: sub menuDoSomethingNeatForMe.  The menu system allows the user to switch between directories and walk the directory tree.  All directories are displayed such as 1) <Diags> while commands are 1) DoSomethingNeatForMe.

Here is a typical screen:

1) <Diags>

2) <Misc>

3) <Utils>

4) Exit

Please enter your choice:

If you have any questions, email me at: dwm@afmsoftware.com