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

(The Script)
    #!/usr/bin/perl
    # Program, named literals.perl, written to test special literals
1   print "We are on line number ", _ _LINE_ _, ".\n";
2   print "The name of this file is ",_ _FILE_ _,".\n";
3   _ _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 the script. It tells Perl to ignore any characters that follow it.