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.

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

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

Digest::MD5 is core from 5.8.

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.

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 :-)

I've found it kind of complicated to strip newline chars from a file with just the commandline. This tiny piece of code does just that.

I've found it especially useful when extracting tabulated data from a grabbed site where each cell is on a different html line. This way I can pre-filter the html, remove the newlines, and insert them again at register boundaries (row end in this case), so that with just a couple more replacement from within a regex enabled text editor I can copy&paste it directly to a database.

A database API written in Perl for a MySQL.

You will need to edit the settings for your server.

Enojy

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

Get a FileSize

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!