asked on

perl script date/time help needed in a major way

I have a script called tester.pl. I need a parameter created that is yearmonthdayhourminutesecond. I then need to use that parameter in the script to name a field and also to name the file as it is saved. I have asked this question in another EE section, but I am not getting very far. Any and all help is truely welcome as time is running out. Here is the tester.pl:

NOTE: The $currdate parameter at the end of the script is what I need to list out as yearmonthdayhourminutesecond.

#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;
print $q->header;
my %param = $q->Vars;

my $template = <<"EOF";
<html>
<head>
<title>cpconfig.com KB: $param{issue}</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000" alink="#FF
0000">
<center>
<table width="600" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="600" height="550" valign="top">
<div align="center">
 
cpconfig
</div>
<div align="center">
KnowledgeBase</div>
<blockquote>
<div align="center">
<hr>
 |
<a href="#">cpconfig forum</a> | <a href="#">Home</a>
| <a href="#">Documentation</a> |
<a href="#">FAQ</a> | <a href="#">Links</a> | <a href="#">KB Help</a>
|<div align="left">
<hr>
 

KBID: $currdate

Issue:
$param{issue}
Version:
$param{version}
Platform:
$param{platform}
Abstract:
$param{abstract}
Solution:
$param{solution}
Links/Sources:
$param{links}
Submitted By:
$param{submitted}
 

DISCLAIMER: The
following information is believed to be accurate. If you find
anything wrong with any of the documentation, please e-mail us at
<a href="mailto:docs\@cpconfig.com?subject=KnowledgeBase problems">k
b\@cpconfig.com</a> and let us know. We take no responsibility for
the accuracy or completeness of the documentation here. As always,
please test everything in a lab environment and not in production.
 
</div>
</div>
</blockquote>
</td>
</tr>
</table></center>
</body>
</html>
EOF

open (FILE, ">/usr/local/apache/htdocs/knowledgebase/$currdate.html") or die "C
an not open $currdate.html $!\n";
print FILE $template;
close (FILE);

print "<h1>Created File</h1>";
exit;

ASKER CERTIFIED SOLUTION

Tintin

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

tomclegg

@lt=localtime;
$currdate = sprintf("%04d%02d%02d%02d%02d%02d",
$lt[5]+1900,$lt[4]+1,@lt[3,2,1,0]);

jovato

ASKER

thanks again