Discussion :

[dede92]

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

[djibril]

Bonjour,

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

[dede92]

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;
        }

[Lolo78]

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) {
    ...
}

[dede92]

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

[dede92]

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 !