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) # 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>
