Random tip: if you're using anonymous subs and want to give them names, too,
you can use this undocumented feature:
$x = sub {
local *__ANON__ = "o_hai";
print ((caller 0)[3]);
};
$x->();
On Fri, Aug 12, 2011 at 10:04 PM, Alan Haggai Alavi <
[email protected]> wrote:
> Hello Natty,
>
> > I meant the current subroutine name...
>
> You could get the current subroutine name by using `caller` (see `perldoc
> -f
> caller`):
>
> my $sub_name = ( caller 0 )[3];
>
>
> Regards,
> Alan Haggai Alavi.
> --
> The difference makes the difference.
> _______________________________________________
> Perl mailing list
> [email protected]
> http://mail.perl.org.il/mailman/listinfo/perl
>
--
Gaal Yahas <[email protected]>
http://gaal.livejournal.com/
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl
