取perl脚本当前行行号和脚本名称

#!/usr/bin/perl
# Program, named literals.perl, written to test special literals
print "We are on line number ", __LINE__, ".\n";
print "The name of this file is ",__FILE__,".\n";
__END__
    And this stuff is just a bunch of chitter–chatter that is to be
    ignored by Perl.
    The __END__ literal is like Ctrl–d or \004.

(Output)
1   We are on line number 3.
2   The name of this file is literals.perl.
Explanation

1. The special literal _ _LINE_ _ cannot be enclosed in quotes if it is to be interpreted. It holds the current line number of the Perl script.

2. The name of this script is literals.perl. The special literal _ _FILE_ _ holds the name of the current Perl script.

3. The special literal _ _END_ _ represents the logical end of