use this:
$str = localtime;
@fields = split/ /,$str;
$str2 = $fields[0].,. $fields[2]. $fields[1]. $fields[4].
$fields[3];
print ($str2\n);
On 4/9/07, Gregg O'Donnell [EMAIL PROTECTED] wrote:
All,
I use this line of code:
my $datetime = join ' ', (split ' ', localtime)[0,2,1,4,3];
To
A cleaner way to do it is:
printf %s, %s %s %s %s\n, (split ' ', localtime)[0,2,1,4,3];
Or, if you want to save it to a variable:
my $dateout = sprintf %s, %s %s %s %s\n, (split ' ', localtime)[0,2,1,4,3];
Paul
11:57am, Susheel Koushik wrote:
use this:
$str = localtime;
@fields = split/
On Thu, 12 Apr 2007 05:56:14 -0500, Paul Archer wrote:
A cleaner way to do it is:
printf %s, %s %s %s %s\n, (split ' ', localtime)[0,2,1,4,3];
Or, if you want to save it to a variable:
my $dateout = sprintf %s, %s %s %s %s\n, (split ' ', localtime)[0,2,1,4,3];
On 4/9/07, Gregg O'Donnell