<div>
@time = localtime;<br />
$DATE = sprintf &quot;%d-%02d-%02d&quot;, $time[5]+1900, $time[4]+1, $time[3];<br />
<br />
Martin<br />

</div>


@time = localtime;
$DATE = sprintf "%d-%02d-%02d", $time[5]+1900, $time[4]+1, $time[3];

Martin


<div>
Or to make it a one-liner...<br />
$DATE = sprintf &quot;%d-%02d-%02d&quot;, (localtime)[5]+1900, (localtime)[4]+1, (localtime)[3];<br />
<br />
Martin<br />

</div>


Or to make it a one-liner...
$DATE = sprintf "%d-%02d-%02d", (localtime)[5]+1900, (localtime)[4]+1, (localtime)[3];

Martin


<div>
#also:<br />
use POSIX;<br />
$DATE = strftime(&quot;%Y-%m-%d&quot;,localt<wbr />ime);<br />

</div>


#also:
use POSIX;
$DATE = strftime("%Y-%m-%d",localtime);


<div>
#another one-liner:<br />
$DATE = sprintf&quot;%d-%02d-%02d&quot;,map{<wbr />$_+(0,1,19<wbr />00)[-(?^?.<wbr />.!??)]}(lo<wbr />caltime)[5<wbr />,4,3];<br />

</div>


#another one-liner:
$DATE = sprintf"%d-%02d-%02d",map{$_+(0,1,1900)[-(?^?..!??)]}(localtime)[5,4,3];


<div>
hi....<br />
I've been using the POSIX one, mainly coz I wanted to add %H-%M-%S for the tme aswell.<br />
thanx, please answer.<br />

</div>


hi....
I've been using the POSIX one, mainly coz I wanted to add %H-%M-%S for the tme aswell.
thanx, please answer.


<div>
$time=sprintf&quot;%02d-%02d-%0<wbr />2d&quot;,(local<wbr />time)[2,1,<wbr />0];<br />
#or<br />
use POSIX; <br />
$time=strftime(&quot;%H-%M-%S&quot;,<wbr />localtime)<wbr />;<br />
#or<br />
$time = join'-',(split/\W/,localti<wbr />me)[3..5];<wbr /><br />

</div>


$time=sprintf"%02d-%02d-%02d",(localtime)[2,1,0];
#or
use POSIX;
$time=strftime("%H-%M-%S",localtime);
#or
$time = join'-',(split/\W/,localtime)[3..5];


<div>
Thanx ozo, but I meant re-post as an answer.<br />
<br />

</div>


Thanx ozo, but I meant re-post as an answer.



<div>
Please see my new question........<br />
<a href="https://www.experts-exchange.com/comp/lang/perl/Q.10133459" rel="ugc nofollow">https://www.experts-exchange.com/comp/lang/perl/Q.10133459</a><br />

</div>


Please see my new question........
https://www.experts-exchange.com/comp/lang/perl/Q.10133459 [https://www.experts-exchange.com/comp/lang/perl/Q.10133459]


<div>
<div class="content wysiwyg-content">
Hi.......<br />
I am using ....<br />
$DATE = (join'-',(split/ /,localtime)[4,1,2]);<br />
this returns &quot;1999-Jan-28&quot;, but I need the Month to be a digit. &quot;1999-01-28&quot;.<br />
regards
</div>
</div>


Hi.......
I am using ....
$DATE = (join'-',(split/ /,localtime)[4,1,2]);
this returns "1999-Jan-28", but I need the Month to be a digit. "1999-01-28".
regards

localtime format as &quot;1999-01-28&quot;

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.

localtime format as &quot;1999-01-28&quot;

localtime format as "1999-01-28"