$Bill Luebkert wrote: > # using constants (but you have to export them to the other module like > your glob refs): > > use constant xbi => 0; # index into data arrays, begin time > use constant xei => 1; # index into data arrays, end time > use constant xi => 2; # indicator > use constant xs => 3; # signal > use constant xa => 4; # amplitude > use constant xt => 5; # elapsed time > use constant xr => 6; # trend > > # no code change here
Actually there is, you have to remove the $'s: > push @tCycle, [$j, $l, $m, $trade[$ii]->[$xi], $phWin, > $trade[$ii-2+$sSC]->[$xa], $trade[$ii]->[$xt] + $trade[$ii-1]->[$xt], > [EMAIL PROTECTED]; push @tCycle, [$j, $l, $m, $trade[$ii]->[xi], $phWin, $trade[$ii-2+$sSC]->[xa], $trade[$ii]->[xt] + $trade[$ii-1]->[xt], [EMAIL PROTECTED]; -- ,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED] (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/ -/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff) _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs