Digest::MD5 is core from 5.8.

Usage:
found('asdf',@array);

P.S. In perl 5.10 can be written as
use 5.010;
'asdf'~~@array;

Function to capitalize the first letter in every word in a string, but only if the entire string is in ALL CAPS.

Example:
"I LIKE TO SCREAM" becomes "I Like To Scream"
"I LIKE to RUN" remains "I LIKE to RUN".

This class illustrates mixed GUI/command line parameters passing. Any parameter may be specified in the command line. All unspecified parameters will be read using GUI dialog box.

This class uses reflection to locate option setters. Client class must contains methods setFile (to receive file names from the command line) and setOption### (to receive option ###).

(See also adapter-based implementation)

Extendable command line processor for console applications.

This perl function will output to a file of your choosing the current localtime as defined by perl's localtime function. It will output the date in ISO 8601 date format plus the current localtime such as:
2006-08-21 09:26:35 am
The function also returns the localtime without the date to the calling environment.

A database API written in Perl for a MySQL.

You will need to edit the settings for your server.

Enojy

A little function that returns a greeting based on the local time.

Simple function to check for a valid email address. Makes sure the @ and a . are in the right place. There is most likely a perl package on CPAN that would be more extensive, but this happens to work for my uses.

Just a simple check to make sure that a person's email address matches their domain.

For example .. in a form you have 2 textboxs .. 1 for their website url, the other for their email address. This checks to see if the domains for the email address and the website url match.

This is a little example of how to use threads in Perl. It creates three threads and runs them... That's it...

Prints the user's IP address and localtime on a web page.

Need to GZip a file using Perl?

Use Compress::Zlib.

This is a simple perl script which creates a GZip file.

Is this file the same as that file? The files may or may not be binary. We could compare the modify dates, or the sizes. But, those are not very accurate to know if a file has really changed.

Introducing MD5 Checksum. We can feed the files into Digest::MD5 in binary mode.

This is a great way to do Incremental Backups.

This is also an easy way to verify checksums when downloading files from the internet which list their MD5 Checksums.

You'll need the Digest::MD5 Perl Module.

The docs for Compress::Zlib for perl are very complex. But, the most simple use of the Module is not too bad. I've waded through the perdoc so you don't have to.

Gunzip.pl is here. I will let you know when I have Gzip.pl done.

You can do something more interesting with "success" variable.

This requires Win32::API, and Win32::Clipboard.
Only works on Win32 Platforms. Only really tested on Win2000, and WinXP.

Not meant to be an be all, end all, but it's a start.

Have fun!

start remote admin connection from command line

Automated offline backup for Exchange server.
Requires ROBOCOPY from NTRK or other copy utility.
Requires manual adjustments

KillProc will do a search of all the current processes and kill all that
match the name given. If the process name is misspelled, KillProc would
kill itself, based on the match. The 'find /v /i "KillProc"' part of the
search prevents KillProc from killing the CMD window it is running in.

Requires NT Resourcekit

Deletes all files and folders from a directory, including read-only and
hidden files and folders. DelAll starts in the directory you tell it,
removes all read-only and hidden attributes from all the files, removes
all of the subfolders and then all files therein. When DelAll is done,
you will be left in the directory from which you called DelAll. The
directory that you want cleaned will not be deleted.

Builds a batch file to create hidden shares for a bunch of sub-directories (eg, User shares)

Change wins settings for all nics

Archief event log enteries

Add users and groups to all machines in a domai

I needed a quick way to make a Street Address and City proper case.
Lingua::EN::NameCase works best for peoples names, but it does not work well for Addresses. This is not intended by any means to be complete, but is quick and dirty.

Plus, there are not many Perl snippets here. So, I thought I would start simple :-)

Get a FileSize

Command Line Calculato