yes :-) I realised that after sending you the email. Sorry! Thanks for the reply.
On Thu, 3 Mar 2005 14:18:04 -0800, Wagner, David --- Senior Programmer Analyst --- WGO <[EMAIL PROTECTED]> wrote: > 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>
