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'D
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/
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
Gregg O'Donnell wrote:
>
> I use this line of code:
> my $datetime = join ' ', (split ' ', localtime)[0,2,1,4,3];
>
> To create this result:
> Mon 9 Apr 2007 09:15:05
>
> How can I add a comma to this result to get:
> Mon, 9 Apr 2007 09:15:05
( my $datetime = localtime ) =~ s{(\S+)\s+(\S+)\s+(\
Gregg O'Donnell wrote:
All,
I use this line of code:
my $datetime = join ' ', (split ' ', localtime)[0,2,1,4,3];
my $localtime = [ split ' ', localtime ];
my $datetime = $localtime->[0] . ', ' . join ' ', @$localtime[2,1,4,3];
TMTOWTDI...
http://danconia.org
To create this result:
All,
I use this line of code:
my $datetime = join ' ', (split ' ', localtime)[0,2,1,4,3];
To create this result:
Mon 9 Apr 2007 09:15:05
How can I add a comma to this result to get:
Mon, 9 Apr 2007 09:15:05
Best and thanks,
Gregg
--