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 Kou****k wrote:
> use this:
>
> $str = localtime;
> @[EMAIL PROTECTED]
= split/ /,$str;
> $str2 = "$fields[0]".","." $fields[2]"." $fields[1]"." $fields[4]"."
> $fields[3]";
> print ("$str2\n");
>
> On 4/9/07, Gregg O'Donnell <gpod363@[EMAIL PROTECTED]
> wrote:
>> 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
>>
>> ---------------------------------
>> Looking for earth-friendly autos?
>> Browse Top Cars by "Green Rating" at Yahoo! Autos' Green Center.
>
> --
> To unsubscribe, e-mail: beginners-cgi-unsubscribe@[EMAIL PROTECTED]
> For additional commands, e-mail: beginners-cgi-help@[EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
-------------------------------------------------------------------
Perl elegant? Perl is like your grandfather's garage. Sure, he kept
most of it tidy to please your grandmother but there was always one
corner where you could find the most amazing junk. And some days,
when you were particularly lucky, he'd show you how it worked.
----------Shawn Corey <shawn.corey [at] sympatico.ca>--------------
|
