25% off Hosting at HostGator.com:
Use Code techbits25

How can I get the time in Perl?

Last updated: 06/30/2009

Here's a subroutine I use for getting the current date/time in a readable format. Often times it comes in handy for logging events, stamping emails, etc.

sub time_stamp {
my ($d,$t);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon++;
$d = sprintf("%4d-%2.2d-%2.2d",$year,$mon,$mday);
$t = sprintf("%2.2d:%2.2d:%2.2d",$hour,$min,$sec);
return($d,$t);
}

Example:

($date,$time) = &time_stamp();

Results:

$date = 2005-08-10 
$time = 08:15:32

blog comments powered by Disqus

Have your own Tech-bit to contribute? Submit it here

Other questions in this category:

	What's the format for Perl's stat command?
	How do I find a list of perl modules on my system?
	How can I create a CSV from a CGI script?
	How can I redirect users to a static page after running a CGI program?
	How do I go about writing a Perl module?
	How do I create a hash of lists in Perl?
	I want to uppercase all the words in a string
	How can I get multiple checkbox values using CGI.pm?
	How do a I fix a "bad interpreter" error with my CGI script?
	I need to get rid of all non-alphanumeric characters from a string - how can I do it?
	How can I keep leading zeros when building a CSV file?
	How to print a hash of hashes for debugging
	How do I get the username of the user running the script?
	How do I fix this error: Argument "O_RD" isn't numeric in subroutine entry at /usr/lib/perl5/5.8.5/i386-linux-thread-multi/DB_Fi le.pm line 278
	How can I get bounced emails from my email CGI or PHP script?
	How can I get my Perl code indented to look nice?
	Perl regular expression to find non-printable characters
	How can I tie into my vbulletin user database from a perl script?
	Checking for spam in perl scripts
	My perl scripts keep timing out on IIS.
	Why use Perl
	CGI script variables are missing using CGI.pm
	Useful script to track spammers connecting to your server

Content provided by Roberts WebForge, Inc.

Technology TidBits

How can I get the time in Perl?