简单代码中令人费解的“在无效上下文中无用地使用常量”

Question

我正在 Bash 脚本中执行一个小的 Perl 脚本。 Perl 报告 在 -e 第 28 行的 void 上下文中无用使用常量，这是在 Perl 代码的结尾之后。

Bash 节选：

#
# Perl script to parse album list file
#
PERLSCRIPT=$( cat <<-'__END__'

    #!/usr/bin/perl
    use strict;
    use warnings;
    use XML::Simple;


    my $albums_file      = $ARGV[0];
    my $album_id         = $ARGV[1];

    my $albums_data = XMLin ( $albums_file,
                              forcearray => [ 'Album' ] );
    my $album_key   = "";

    foreach my $album ( keys %{$albums_data->{Albums}->{Album}} )
    {
        if ( $album == $album_id )
        {
            $album_key = $albums_data->{Albums}->{Album}
                                           ->{$album}->{Key};
            print "$album_key\n";
            exit 0;
        }
    }

    exit 1;

'__END__' )


say "$LINENO: Calling perl"
ALBUM_KEY=$(perl -e "$PERLSCRIPT" "$ALBUMS_FILE" "$ALBUM_ID")

执行时，我看到以下内容：

    454: Calling perl
    Useless use of a constant in void context at -e line 28.

Perl 抱怨什么？

Answer 1

我相信它指的是'__END__'。 bash 的 <<-'TOKEN' heredoc 表示法不需要单引号。

$ perl -w <<-'__END__'
> print "hello world\n";
> '__END__'
> __END__
Useless use of a constant (__END__) in void context at - line 2.
hello world

$ perl -w <<-'__END__'
> print "hello world\n";
> __END__
hello world