Hello Perl Beginners,
I'm writing a program in perl that collects data about calls into a
telephone system and presents some statistics based on it. There could
come a time in the future where different data needs to be used and
different statistics need to be reported on so I'm trying to keep the
entire thing as generic as possible. I have a conf file telling me what
data represents what statistics and what formula needs to be used to get
that data.
Then I began to wonder if I store the formulae in variables then how do
I get them out again and get perl to use them as statements?
Here is some example code I wrote while trying to figure this out, any
help would be appreciated. Is this even a good way to do this?
-- Code Starts --
use strict;
use diagnostics;
# Data and Formula will eventually be read from a conf file and there
may be multiple
# instances of them that need to stay grouped and indexed so they're in
a hash.
my (%data, %formula);
# Dummy Test Data
$data{"ext1"} = 12;
$data{"ext2"} = 9;
$data{"ext3"} = 10;
# Dummy Test Formula
$formula{"Addition"} = "ext1 + ext2";
$formula{"Subtraction"} = "ext3 - ext2";
$formula{"Brackets"} = "(ext2 + ext3) - ext1";
# I can quite easily print these out and I could put the $data{"extX"}
in with a
# regular expression but how do I get it to evaluate the variable as if
it
# were an expression?
print $formula{"Addition"} . "\n";
print $formula{"Subtraction"} . "\n";
print $formula{"Brackets"} . "\n";
-- Code Ends --
Thanks,
Anthony Murphy
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
