Getting Server Time in Perl

$etime=$^T;


The variable you named $etime now contains Epoch time, which looks something like this 1140628728. Epoch time is the number of seconds since January 1, 1970. Why then? Why not.


To get the local time of your server machine:

$newetime=localtime($^T);

The variable you named $newetime now contains the time on the server in a nice neat format. (Perl's built-in localtime function took care of formatting for us.)

Wed Feb 22 12:21:51 2006


Copy and Paste Perl Code:

#!/usr/bin/perl

print "Content-type:text.html\n\n";

$etime=$^T;

$newetime=localtime($^T);

print "$etime - $newetime";

exit;



Click HERE to comment or discuss at iLoveTheCode GOOGLE Group

Previous Article: If, Elsif, and Else in Perl

Next Article: Substitute in Perl

Dreamweaver CS3 David McFarland New $29.69	CSS David McFarland New $23.09	Dojo Matthew A. Russell... New $26.39
HTML, XHTML, and CSS, Sixth Edition ... Elizabeth Castro New $23.09	Learning Web Design Jennifer Niederst ... New $26.99	Information Architecture for the Wor... Louis Rosenfeld, P... New $26.39
Head First HTML with CSS & XHTML Eric Freeman, Elis... New $23.99	CSS Eric Meyer New $29.69	jQuery in Action Bear Bibeault, Yeh... New $26.39

Privacy Information