pulling or getting perl script name inside script

[J M]

I have writeLog sub across several perl scripts that I use to generate logs
from scripts. I like to put script name in side log. Until now I have been
manually putting script name in writeLog sub but is there a way to pull
script name dynamically so I don't have to use static script names inside
perl script? TIA!

 

[A. Sinan Unur]

I have writeLog sub across several perl scripts that I use to generate
logs from scripts. I like to put script name in side log. Until now I
have been manually putting script name in writeLog sub but is there a
way to pull script name dynamically so I don't have to use static
script names inside perl script? TIA!

D:\Home> cat I_ought_to_read_the_docs_before_posting
print "$0\n";

D:\Home> perl I_ought_to_read_the_docs_before_posting
I_ought_to_read_the_docs_before_posting

Specifically, perldoc perlvar

Sinan

 

[Tad McClellan]

is there a way to pull
script name dynamically

No need to "pull" it from anywhere, it is already sitting there
in a scalar variable, waiting for you to use it.

A friendly Perl program:

print 'Hi ', scalar(getpwuid($>)), ". My name is $0. How are you today?\n";
# ^^
# ^^ program name