Re: how to get alias name of anonymous sub?

[ruoso]

As noone seem to have pointed already, there's one important module on that subject which is Sub::Name. It should allow you to:

use Sub::Name
foreach (keys %news_sites)
{
  *{$_} = subname "generator_for_$_" => sub {...}
}

But note that you seem to be missing one more important concept here, which is the concept of closures

foreach my $key (keys %news_sites) {
   *{$key} = sub {
       ...
       # as the $key variable was declared in the outer scope of the s
+ubroutine,
       # if the code reference survives longer than this scope it will
+ retain its
       # value
       warn $key; # this will warn the value used when defining this s
+ub.
   }
}

[gian]

I really missed the closures.Thanks for your remind.I heard the concept of closures before,but I could't find the usage of it in perl , so i did't understand it very much . I think this a good example for me.Thanks ruoso.

[kcott]

There's documentation on closures in perlsub, perlref and perlfaq7.