Pourquoi Perl se plaindre “ne Peut pas modifier la constante de l'élément scalaire affectation”?

J'ai ce sous-programme Perl qui est à l'origine du problème:

sub new
{
    my $class = shift;

    my $ldap_obj = Net::LDAP->new( 'test.company.com' ) or die "$@";

    my $self = {
                _ldap = $ldap_obj,
                _dn ='dc=users,dc=ldap,dc=company,dc=com',
                _dn_login = 'dc=login,dc=ldap,dc=company,dc=com',
                _description ='company',
                };

    # Print all the values just for clarification.
    bless $self, $class;

    return $self;
}

ce qui est mauvais sur ce code :

j'ai eu cette erreur ne Pouvez pas modifier la constante de l'élément scalaire mission à Cœur.pm de la ligne 12, près de "$ldap_obj,"

Celui qui est de la ligne 12?
_ldap = $ldap_obj,
use strict; use warnings;

OriginalL'auteur joe | 2010-05-18

  1. 10

    Je pense que votre code doit être;

    my $self = {
                _ldap => $ldap_obj,
                _dn =>'dc=users,dc=ldap,dc=company,dc=com',
                _dn_login => 'dc=login,dc=ldap,dc=company,dc=com',
                _description =>'company',
};

    Changer et essayer avec $perl -c module.pm

    OriginalL'auteur Space

  2. 11

    Puisque vous n'êtes pas à l'aide de la "graisse virgule" ( => ), votre trait de soulignement noms sur le côté gauche n'est pas auto-cité et donc, sans les sigils ('$', '@', ou '%'), ils ne peuvent être sous-routine noms. Puisque vous n'avez pas déclaré de ces sous-marins, perl est de les prendre pour des constantes, et de vous dire que vous ne pouvez pas attribuer à des constantes (ou sous les invocations).

    La bonne solution est de changer vos missions en double flèches

    _ldap => $ldap_obj, #...

    Aussi, Brad post me rappelle, même si elles ont été auto-citation, vous ne pouvez pas affecter un lexicale à une chaîne littérale, même si perl interprétée comme une auto-chaîne entre guillemets.

    OriginalL'auteur Axeman

  3. 2

    Une table de Hachage est juste une liste de clés, des paires de valeurs. Il y a une syntaxe construire pour aider à différencier les clés de la valeurs. Il est connu comme un "fat flèche" =>. Cette construction les forces de la main gauche argument une chaîne de caractères, puis se transforme en une simple virgule.

    C'est ce que vous vouliez écrire:

    perl -MO=Deparse -e'$s = { a => 1 }'
    $s = {'a', 1}; 
-e syntaxe OK

    C'est ce que vous avez réellement écrit:

    perl -MO=Deparse -e'$s = { a = 1 }'
    Ne pouvez pas modifier la constante de l'élément scalaire affectation à la ligne e 1, près de "1 }" 
-e a des erreurs de compilation. 
$s = {'a' = 1};

    C'est pourquoi je vous recommande de toujours commencer un programme en Perl avec des avertissements activé.

    perl -w -MO=Deparse -e'$s = { a = 1 }'
    Non cotées de la chaîne "a" peut être en contradiction avec les futurs mot réservé à la ligne e 1. 
Ne pouvez pas modifier la constante de l'élément scalaire affectation à la ligne e 1, près de "1 }" 
-e a des erreurs de compilation. 
BEGIN { $^W = 1; } 
$s = {'a' = 1}; 

    perl -w -MO=Deparse -e'$s = { a => 1 }'
    Nom de "main::s" utilisé qu'une seule fois: possible faute de frappe à la ligne e 1. 
BEGIN { $^W = 1; } 
my $s = {'a', 1}; 
-e syntaxe OK

    Ce dernier exemple montre pourquoi vous devriez également use strict.

    perl -w -Mstrict -MO=Deparse -e'$s = { a => 1 }'
    Mondial symbole "$s" explicite nom du package at-e de la ligne 1. 
-e a des erreurs de compilation. 
BEGIN { $^W = 1; } 
use strict 'refs'; 
${'s'} = {'a', 1};

    Je devrais avoir déclaré $s avant d'essayer de l'utiliser:

    perl -w -Mstrict -MO=Deparse -e'my $s = { a => 1 }'
    BEGIN { $^W = 1; } 
use strict 'refs'; 
my $s = {'a', 1}; 
-e syntaxe OK

    C'est pourquoi je toujours commencer mes programmes Perl avec:

    use strict;
use warnings;

    OriginalL'auteur Brad Gilbert