Use a hash.

my %total = (
  login    => 0,
  campaign => 0,
  work     => 0,
);

foreach my $func (keys %total) {  # qw(login campaign work)
  # do some things
  my $diff = calc_difference($var1, $var2);
  $total{$func} += $diff;
}
[download]

First off, you almost certainly want to use a hash instead of doing this. Have a read of Why it's stupid to `use a variable as a variable name', A More Direct Explanation of the Problem and What if I'm Really Careful?.

For example do this:

my %totals;
foreach my $func ('login','campaign','work') {
     my $tmp = calc_difference($var1, $var2);
    $total{$func) += $tmp;
 }
[download]

If you really need to do it do a super search on symbolic references :-)

Those are great articles and now I understand why not to do what I was trying to do. Of course it makes me feel stupid and humble, but I just don't see any other way to learn, do you? :-)

Me thinks I'll just use a hash...

Nobody knows everything. The only way to find out is to ask questions ;-)

Don't feel too stupid, I had the same question, and the answer helped me too. :-)

my %totals = (
    login => 0,
    campaign => 0,
    work => 0,
);

foreach my $func (qw(login campaign work))
{
    # Do stuff
    my $tmp = calc_difference($var1, $var2);
    $totals{$func} += $tmp;
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

my %vars = (
  'login' => undef,
  'campaign' => undef,
  'work' => undef,
);
foreach my $func ('login','campaign','work') {
  my $tmp = calc_difference($var1, $var2);
  $vars{$func}{tot} = $tmp;
  # Or just append 'tot' to the key, e.g.,
  # $vars{"${func}_tot"} = $tmp;
}
[download]

Since what you want to do won't work, it's time to look for alternate solutions.

But we will have %MY won't we?

-Lee

"To be civilized is to deny one's nature."

Sure, but that still won't make simple symbolic dereferencing work with lexicals...

my %total;
foreach my $function (qw(login campaign work)){
    # do some things
    my $tmp = calc_difference($var1, $var2);
    $total{$function} += $tmp;
}
foreach my $function ( keys %total){
    print "$function =>",$total{$function},"\n";
}
#Single function
print $total{login};
[download]

It will only be ridiculous if the poster chooses to ignore the good advice. If we see a follow up, anyone care to place odds as to the response? :)

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)

A humble little poster like me would not even contemplate ignoring the wisdom of the masters. The proxy at work went down after I posted and I could not get back til now.

Having the same answer by several monks certainly leaves no doubt as to the validity of that answer. Having them so close together makes one think that there is a competition going on. ;-)

Thank you all so much. I have no problem using a hash, in fact I've used them like this before. Don't know why I was hell bent on using a scalar.

What will the odds be Ovid? :-)

See Re: Possible first post syndrome remedy ;-) (The reply, Re: Re: Possible first post syndrome remedy, works better if you look at it directly.)

Makeshifts last the longest.