Snipplr

(Perl) Print Current Month - numberwhun

Fri, 12 Nov 2010 12:19:16 UTC

This is a script that simply prints the current month. I produced this a couple years ago and use it as a reference for using the localtime() function.

(Perl) Find Installed Modules - numberwhun

Fri, 12 Nov 2010 11:46:13 UTC

This is a handy little bit that will show you all of the installed modules on the system.

(Perl) Verify if an IPv4 IP address is valid - numberwhun

Tue, 05 Jun 2007 06:55:04 UTC

This code will validate not only the four octets contain between 1 and 3 numbers each, but also that the number they contain is between 0 and 255. In all, there are 3 different regex's that I tried and all seem to work fine. The three regex's are: 1. m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)/ 2. m/\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?/ 3. m/\d{1,2}\.\d{1,3}\.\d{1,3}\.\d{1,3}/ The first one is used below. Enjoy!!!