• # La solution pour le TCP

    Posté par . En réponse au message Problème avec Socket et/ou Telnet sur le manager d'Asterisk. Évalué à 1.

    Voici le code qui va bien. C'était mes caractère de retour à la ligne ("\n") qui n'étaient pas bons:

    #!/usr/bin/perl

    use IO::Socket::INET ;

    my $EOL = "015円012円";
    my $BLANK = $EOL x 2;

    my $socket = IO::Socket::INET -> new (
    PeerAddr => '10.0.0.1' ,
    PeerPort => 5038 ,
    Proto => 'tcp' ,
    Type => SOCK_STREAM
    );

    $socket->autoflush(1);

    $socket -> recv ( $message , 128 ) ;
    print $message ;

    print $socket "Action: Login${EOL}Username: offi${EOL}Secret: *****$BLANK";
    while(1){
    $socket -> recv ( $message , 128 ) ;
    print $message ;
    }