Perl Database API
Snippet Menu
ranking 
|
date 
|
member
|
date
|
member
12
Thu. Aug. 31st, 2006 8:09 AM
A little function that returns a greeting based on the local time.
5
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.
-1
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.
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.
8
This little tool is pretty useful for administrators who wear the hat of both system admin and DBA on Linux/MySQL boxes. I wrote it as kind of a joke for our Perl developers, but now I use it just about every day for everything from at prompt hackups to full on table space utilization monitoring scripts.
The snippet has the library script that you can source into scripts that actually do work, as well as a script that uses the functions in the libraries. Anyone who has used the C API should be able to relate to using this script.
It's pretty fast and lightweight. It makes only one external call to mysql and sed per query. The rest is all bash builtins. Requires bash > 3.0
The snippet has the library script that you can source into scripts that actually do work, as well as a script that uses the functions in the libraries. Anyone who has used the C API should be able to relate to using this script.
It's pretty fast and lightweight. It makes only one external call to mysql and sed per query. The rest is all bash builtins. Requires bash > 3.0
9
This is a little example of how to use threads in Perl. It creates three threads and runs them... That's it... 
6
Prints the user's IP address and localtime on a web page.
5
List the databases on a MySQL serve
6
Creates a new user with all privileges when logging in from localhost.
7
Need to GZip a file using Perl?
Use Compress::Zlib.
This is a simple perl script which creates a GZip file.
Use Compress::Zlib.
This is a simple perl script which creates a GZip file.
8
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.
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.
