Here's a common setup for using the stat command:($device,$inode,$file_mode,$num_link,$uid,$gid,$dev_id,$size,$access_time,$mod_time,$change_time,$block_size,$blocks) = stat($filename); You use this routine to get the time (current...

Run this command from your prompt / command line:find `perl -e 'print "@INC"'` -name '*.pm' -print (Taken from CPAN: http://www.perl.com/doc/manual/html/pod/perlmodlib.html)...

On occasion, you'd like a cgi script to send data back in CSV format. This is often used for downloading...

Here's a subroutine I use for getting the current date/time in a readable format. Often times it comes in handy...

From a CGI, you often want to send a user to a "thank you" or confirmation page. Here are two...

Run this command from a unix prompt:h2xs -AXc -n Module_Name This generates a bunch of nice files, from which you...

  Sometimes it's nice to have a hash element point to a list of items, rather than just a value.  To...

This comes from page 20 of "Perl Cookbook" by O'reilly and Associates: use locale; $string = "this is a string";...

Assuming you have a form with fields like so: <input type="checkbox" name="color" value="red">Red<br><input type="checkbox" name="color" value="blue">Blue<br><input type="checkbox" name="color" value="green">Green<br> Within your Perl...

This is probably the result of using a Windows or DOS based text editor, which adds line breaks in the...

In Perl, a simple regular expression will handle this. Here's an example: $var = "This string has some ' bogus...

Some data looks like a number on the surface, but really is not meant to be used that way. Zip...

It is usually useful to verify what you have in variables during coding / testing.  Otherwise, you may waste time...

Use the special variable $< So with the code: $username = getpwuid($<); You can get the unix username running the script.  ...

Apparently, somewhere along the line, the global "O_RD" changed to "O_RDONLY" - so you need to update the code in...

It seems that most cgi / php scripts that send email do not get bounces.  So you never know if...

Well, I found this to work on unix (unless you use a lot of hashes):   indent -br -brs This helps for...

Here's a quick perl regex to find non-printing / control characters: /[\x80-\xFF]/ You can use this in conditionals, substitutions, etc. to find...

Sometimes you may want to verify a username / password matches up to a valid vbulletin user, from a perl...

One thing I noticed is that a lot of spam bots post junk strings to the form, and you can...