IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

Erreur Modification of a read-only value


Sujet :

Langage Perl

  1. #1
    Membre actif
    Profil pro
    Inscrit en
    novembre 2003
    Messages
    523
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2003
    Messages : 523
    Points : 212
    Points
    212
    Par défaut Erreur Modification of a read-only value
    Bonjour,

    Ne pratiquant pas le perl, j'ai besoin d'un connaisseur en la matière ...
    A l'exécution d'un script j'ai l'erreur suivante : Modification of a read-only value attempted at ...
    et la ligne en question :
    if (not($^O eq q[MSWin32]

    Quelle est la raison de cette erreur et Comment puis je y remedier ?

    Merci d'avance

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 799
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 799
    Points : 499 036
    Points
    499 036
    Par défaut
    Bonjour,

    Peux-t-on avoir la ligne complète et si possible quelques lignes avant et après.

  3. #3
    Membre actif
    Profil pro
    Inscrit en
    novembre 2003
    Messages
    523
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2003
    Messages : 523
    Points : 212
    Points
    212
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
            $port = $port ? $port : 80;
            my $packed_host = undef;
            if ($host
                !~ m[^(?:(?:(?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.]?){4})$])
            {   my ($name, $aliases, $addrtype, $length, @addrs)
                    = gethostbyname($host)
                    or return;
                $packed_host = $addrs[0];
            }
            else { $packed_host = inet_aton($host) }
            socket($_socket{refaddr $self},
                   PF_INET, SOCK_STREAM, getprotobyname(q[tcp]))
                or return;
            if (not($^O eq q[MSWin32]
                    ? ioctl($_socket{refaddr $self}, 0x8004667e, pack(q[I], 1))
                    : fcntl($_socket{refaddr $self}, F_SETFL, O_NONBLOCK)
                )
                )
            {   $_tier{refaddr $self}->_torrent->_event(
                    q[tracker_failure],
                    {Tracker => $self,
                     Reason  => sprintf(
                         q[There was a problem making an outgoing socket non-blocking: [%d] %s],
                         $^E, $^E
                     )
                    }
                );
                return;
            }

  4. #4
    Rédacteur/Modérateur

    Avatar de Lolo78
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    mai 2012
    Messages
    3 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : mai 2012
    Messages : 3 612
    Points : 12 465
    Points
    12 465
    Billets dans le blog
    1
    Par défaut
    Bonjour,

    je ne comprends pas vraiment ce que tu cherches à faire avec ce code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
            if (not($^O eq q[MSWin32]
                    ? ioctl($_socket{refaddr $self}, 0x8004667e, pack(q[I], 1))
                    : fcntl($_socket{refaddr $self}, F_SETFL, O_NONBLOCK)
                )
                )
            {
    mais ça me paraît erroné, ou du moins fort susceptible de troubler le compilateur ou de créer un problème de précédence.

    Je te conseillerais de décomposer tes instructions:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    my $result = $^O eq q[MSWin32] ? ioctl(...) : fcntl(...);
    if (not $result) {
        ...
    }

  5. #5
    Membre actif
    Profil pro
    Inscrit en
    novembre 2003
    Messages
    523
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2003
    Messages : 523
    Points : 212
    Points
    212
    Par défaut
    Bonsoir,
    Ce module (HTTP.pm) fait partie du packet BitTorrent.
    J'étudie un peu plus en détail le fonctionnement de ce protocole avec beaucoup de mal avec Perl ...
    Le fait décomposer l'instruction ne résoud pas le problème !
    Le source complet : http://www.cjoint.com/c/GGcqd4HELIh

  6. #6
    Membre actif
    Profil pro
    Inscrit en
    novembre 2003
    Messages
    523
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : novembre 2003
    Messages : 523
    Points : 212
    Points
    212
    Par défaut
    Bonjour,
    Visiblement personne n'a de solution à mon problème d'erreur de syntaxe ?
    J'ai peut être évoqué un contexte d'utilisation dont le nom fâche et fait peur ...
    merci quand même !

Discussions similaires

  1. [Wamp] SESSION variable 'max_allowed_packet' is read-only. Use SET GLOBAL to assign the value
    Par maisonduweb dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 1
    Dernier message: 18/11/2009, 16h27
  2. Erreur Perl : Modification of a read-only value attempted
    Par Mory24 dans le forum Programmation et administration système
    Réponses: 1
    Dernier message: 13/08/2008, 16h44
  3. Faire des modifs sur une sheet excel Read Only via VBA
    Par beegees dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/11/2005, 19h02
  4. Erreur procédure stockée : curseur read only
    Par Oluha dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 08/11/2005, 10h50
  5. CheckBox en Read Only
    Par MrJéjé dans le forum C++Builder
    Réponses: 7
    Dernier message: 23/06/2002, 16h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo