calculating md5 in Perl
7
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!
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!
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.
7
RobHarrigan
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".
Example:
"I LIKE TO SCREAM" becomes "I Like To Scream"
"I LIKE to RUN" remains "I LIKE to RUN".
8
This could be used for any type of simple hash checking. It could also be used to store a "password" that had to be verified. This code is completely managed.
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.
9
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.
Gunzip.pl is here. I will let you know when I have Gzip.pl done.
You can do something more interesting with "success" variable.
9
This is a little example of how to use threads in Perl. It creates three threads and runs them... That's it...
12
A little function that returns a greeting based on the local time.









