n Perl können wir den Namen des aktuellen Pakets und die aktuelle Zeilennummer erhalten, indem wir vordefinierte Variablen wie @ verwende__PACKAGE__ und__LINE__.

Wie dies möchte ich den Namen des aktuellen Unterprogramms erhalten:

use strict;
use warnings;

print __PACKAGE__;
sub test()
{
    print __LINE__;
}
&test();

In dem obigen Code möchte ich den Namen des Unterprogramms in der Funktion @ erhalttest.