Nishi Prafull wrote:
> Hi All:
>
> Thanks for the replies.It works correctly.
> I need to do similar thing for extracting the time in the format hhmm
> ie if it 2:05 pm then i need to display 1405
>
> If the date command returns
> Thu Mar 3 13:56:24 PST 2005
> then
> i need to convert the time format to
> 1356
>
> Please let me know how I can do this.
> Thanks.
>
> On Thu, 3 Mar 2005 13:01:24 -0800, Wagner, David --- Senior Programmer
> Analyst --- WGO <[EMAIL PROTECTED]> wrote:
>> Jose Nyimi wrote:
>>>> -----Message d'origine-----
>>>> De : Wagner, David --- Senior Programmer Analyst --- WGO
>>>> [mailto:[EMAIL PROTECTED]
>>>> Envoyé : jeudi 3 mars 2005 21:40
>>>> À : Nishi Prafull
>>>> Cc : beginners@perl.org
>>>> Objet : RE: Perl program to convert system date to yymmdd
>>>>
>>>> Nishi Prafull wrote:
>>>>> On Thu, 3 Mar 2005 12:12:35 -0800, Wagner, David --- Senior
>>>>> Programmer Analyst --- WGO <[EMAIL PROTECTED]> wrote:
>>>>>> Nishi Prafull wrote:
>>>>>>> HI:
>>>>>>>
>>>>>>> I want to write a perl script that would compute the date in the
>>>>>>> format yymmdd(050303) and subsitute it for a variable in the
>>>>>>> perl script. This variable is thereafter subsituted in a
>>>>>>> command that will be run inside the script.
>>>>>>>
>>>>>>> myTest.pl
>>>>>>>
>>>>>>> var aDate;
>>>>>> You can do it a number of ways, here is a start on one
>>>>>> way:
>>>>>>
>>>>>> my @MyDateTime = ();
>>>>>> @MyTime = localtime( time );
>>>>>> $MyDateTime[4]++; #months start at zero, so must
>>>>>> add 1 # # Now the array has the date and time info in the
>>>>>> following elements: # 0 1 2 3 4 5 6
>>>>>> 7 8 # (sec, min, hour, mday, mon, year, wday, yday, isdst)
Nishi,
It is right here already. When you do the call to localtime,
it has in element 0 seconds, 1 minutes and 2 hours. So to have the hours and
seconds just requires %02d%02d and MyDateTime[2],$MyDateTime[1] as part of your
sprintf
So either as an add to the existing code or
my $MyTime = sprintf "%02d%02d", MyDateTime[2],$MyDateTime[1];
Will give time always as 24 hour regards of how the user is doing it
for their machine.
Wags ;)
>>>>>> # mday is Day of Month # year is number of eyars from 1900
>>>>>> # wday is day of week: 0:Sun and 6: Sat
>>>>>> # yday is number of days from 1 Jan
>>>>>> # isdst if true then Daylight savings time is on
>>>>>> So to get your date in the format:
>>>>>> my $aDate = sprintf "%02d%02d%02d",
>>>>>> $MyDateTime[5] % 100,
>>>>>> % does a modulo against
>>>>>> the year, so 105 comes
>>>>>> out as 5, 106 as 6 $MyDateTime[4], $MyDateTime[4];
>>>>>>
>>>>>> $aDate should now have 050303
>>>>>>
>>>>>> Wags ;)
>>>>> Hi:
>>>>> Thanks.
>>>>> I tried the above but it did not return the correct result my
>>>>> @MyDateTime = (); @MyTime = localtime(time);
>>>> Missed this and it should be @MyDateTime and not @MyTime
>>>>
>>>> Also as part of your code, you should always use:
>>>>
>>>> use strict;
>>>> use warnings;
>>>>
>>>> By doing this it will cut down on the number of problems you
>>>> run into. I made the program as :
>>>>
>>>> #!perl
>>>>
>>>> use strict;
>>>> use warnings;
>>>>
>>>> my @MyDateTime = ();
>>>> @MyDateTime = localtime(time);
>>>> $MyDateTime[4]++;
>>>> my $someDate = sprintf "%02d%02d%02d",
>>>> $MyDateTime[5]%100,
>>>> $MyDateTime[4],$MyDateTime[4];
>>>
>>> Typo ?
>>> You twice $MyDateTime[4]
>>> Souldn't be: $MyDateTime[4],$MyDateTime[3]; ?
>> yes it should be. Any other day and it would hav stood out as
>> wrong, but missed it. Wags ;)
>>>
>>> You just lucky that today the month and day have same value 03 :-)
>>>
>>> Regards,
>>> José.
>>
>> *******************************************************
>> This message contains information that is confidential
>> and proprietary to FedEx Freight or its affiliates.
>> It is intended only for the recipient named and for
>> the express purpose(s) described therein.
>> Any other use is prohibited.
>> *******************************************************
>>
>> --
>> To unsubscribe, e-mail: [EMAIL PROTECTED]
>> For additional commands, e-mail: [EMAIL PROTECTED]
>> <http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
