Don't hide the information in the subroutine name. Instead, just use a closure:

foreach(  keys %news_sites  ) {
    my $name= $_;
    *{$_}= sub {
        get %news_sites{$name};
        ...
    };
}
[download]

Update: Or

foreach(  keys %news_sites  ) {
    my $site= $new_sites{$_};
    *{$_}= sub {
        get $site;
        ...
    };
}
[download]

Thanks tye .But it seem there is some problem in your solution ,the variable will be assigned according the context where the sub be executed.just like this.

package test;
for (A..D)
{
*{$_}=sub{
    print "my name is $_ \n";
};
}
package main;

test->A();
test->B();
$_="here";
test->C();
test->D();


output:
my name is
my name is
my name is here
my name is here
[download]

No, that is a problem with your code. Closures close over lexicals. $_ is not a lexical. You deleted a line that I inserted quite intentionally and thus broke the code.

- tye        

Can you clarify your desire?

Why? Often if you provide a little context to your problem we can give better answers that are less distracted by the joy of doing technically tricky stuff for the pure joy of it.

I want to create a module get info from different websites.And the other ones can calle my module'api just like this:

my $n=new->new();
$n->get_from_bbc(#some param#)
$n->get_from_voanews(#some param#)
[download]

Now I implement it like this.

package news;

sub new
{
*get_from_bbc=sub{
                 #post GET request to www.bbc.com
                 get www.bbc.com;
                 #and do some process
 
                 return res;
                 };
*get_from_voanews=sub{
                 #post GET request to www.bbc.com
                 get www.bbc.com;
                 #and do some process
 
                 return res;               
                  }
                  
 #and more sub like above  
 #and more sub like above  
 #and more sub like above  
 #and more sub like above  


}
[download]

But it seem trivial ,I thought if i can do like this .It will be better

package news;

sub new
{
my %news_sites={
get_from_bbc=>'www.bbc.com',
get_from_voanews=>'www.voanews.com',
#more websites#
}
foreach (keys %news_sites)
{

*{$_}=sub{       #post GET request to www.bbc.com
             
                 ###############
                 #if i can get the name of Subroutine
                 #I can do it like this.
                 ############
                 
                 get %news_sites{$name_of_Subroutine};
                 
                 #and do some process
 
                 return res;
                 };
}
[download]

But the problem is that inside anonymous sub I don't know the other call the anonymity by

$n->get_from_bbc(#some param#)
[download]

or

$n->get_from_voanews(#some param#)
[download]

!

That sounds like a task for AUTOLOAD. Consider:

use strict;
use warnings;

package news;

my %news_sites = (
    bbc     => 'www.bbc.com',
    voanews => 'www.voanews.com',
    #more websites#
);


sub new {
    ...
}


sub AUTOLOAD {
    my ($base, $site) = $news::AUTOLOAD =~ /::(\w+)_(\w+)/;

    return '' if $base ne 'get_from' || ! exists $news_sites{$site};

    my $res = "got from $news_sites{$site}\n"; # or appropriate proces
+sing
    return $res;
}


package main;

print news::get_from_bbc();
[download]

Prints:

got from www.bbc.com
[download]

True laziness is hard work

hi CountZero ,If pass the name of the news-site as a parameter,everything is ok.I just try to get the website url by name of subs.Because Perl is so powerful ,maybe it is possibile.

As others have already explained, it is possible but it involves some "higher" magic than I usually employ.

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

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 {...}
}
[download]

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.
   }
}
[download]

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.

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

-- Ken

I think you can't without explicitly and redundantly attaching this name somewhere else.

What's possible is to change the name of the original sub, such that __ANON__ wouldn't be shown.

Of course with eval you could also copy identical subs to main::aa and main::bb, but then you won't have aliases anymore.

$\="\n";
$,="\t";
 
$s=sub{
    print "me",(caller(0))[3];
    print "mum",(caller(1))[3];
    *__ANON__="__ANON__";                    # reset
  };
 
sub aa {
    *__ANON__="aa";
    goto &$s;
}
 
sub level1 {
  aa();
}
 
level1();
 
print "not reseted  ", *__ANON__;                           # why?
[download]

unfortunately I wasn't able to reset to default-name.

me    main::aa
mum    main::level1
not resettet      *main::aa
[download]

UPDATE:

argh of course it should be:

    *aa="__ANON__";                    # reset

but well this is no practical solution...

Observe the result from print Dumper(caller(0));

this is output with Dumper.

$VAR1 = 'main';
$VAR2 = 'D:\\test.pl';
$VAR3 = 12;
$VAR4 = 'main::__ANON__';
$VAR5 = 1;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = undef;
$VAR9 = 0;
$VAR10 = '





';
$VAR1 = 'main';
$VAR2 = 'D:\\test.pl';
$VAR3 = 13;
$VAR4 = 'main::__ANON__';
$VAR5 = 1;
$VAR6 = undef;
$VAR7 = undef;
$VAR8 = undef;
$VAR9 = 0;
$VAR10 = '





';
[download]

it seem not useful.caller only return these values

    #  0         1          2      3            4
    ($package, $filename, $line, $subroutine, $hasargs,
    #  5          6          7            8       9         10
    $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash)  
+= caller($i);
[download]

maybe we should try another way.

package news;
sub AUTOLOAD
{
 my $self=shift;
 my $name_of_subroutine=$AUTOLOAD;
    $name_of_subroutine =~ s/.*://; 
    unless($name_of_subroutine=~m/DESTROY/)
    {
        print "get from $name_of_subroutine $self->{$name_of_subroutin
+e} \n";
    }

 }

sub new
{
 my $class=shift;
 my $self={};
 bless $self,$class;
 $self->{get_from_bbc}='www.bbc.com';
 $self->{get_from_voanews}='www.voanews.com';
 
 return $self;
 
}
package main;
my $n=news->new();
$n->get_from_bbc();
$n->get_from_voanews();

output:

get from get_from_bbc www.bbc.com
get from get_from_voanews www.voanews.com
[download]