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); $MyDateTime[4]++; my $someDate = sprintf "%02d%02d%02d",$MyDateTime[5]%100,$MyDateTime[4],$MyDateTime[4]; print "$someDate\n";
It returned 000101. I need to run this program everyday so that it takes the system/current date on that day and returns it in the format yymmdd. Thanks. > > > get todays date and convert it to yymmdd and assign it to aDate > > subsitute in a command such as > > $cmd = "integrate -t push -l $aDate" > > system($cmd); > > > > I will be running this script on unix. But I would like to be able to > > get the date value platform independant. > > > > Thanks. > > ******************************************************* > 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>
