[jonasaskas]

Hej,

Har rivit mitt (numera gråa...) hår ett tag nu, för att försöka initiera kommunikation över sockets i Perl, men får inte till det. Någon vänlig själ som kan bidra med tips?

Det jag skall göra är att i Perl anropa en applikation på en annan server (https), och därifrån erhålla ett svar som jag sparar till en variabel.

Har försökt med t.ex. följande utan lyckat resultat;

#!/usr/bin/perl

use Socket;

&Oppna_Socket);

sub Oppna_Socket()
{
    my $server_namn = "secure.server.se";
    my $port = "https";
    my $sida = "/skript.php?variabler";

    $port = getservbyname($port, 'tcp') if $port !~ /^[0-9]/;
    socket (SOCKET, PF_INET, SOCK_STREAM, 0) or die "Socketfel: $!";
    connect(SOCKET, sockaddr_in($port, inet_aton($server_namn)));

    select SOCKET; $| = 1; select STDOUT;

    print SOCKET "GET ${sida} HTTP/1.0\n\n";
    $Las_In_Text .= $rad while $rad = <SOCKET>;
    close(SOCKET);

    print "Content-type: text/plain\n\n";
    print "${Las_In_Text}\n\n";
}

Har även testat att använda IO::Socket::INET utan lyckat resultat.

Konkret kodexemepl uppskattas!

Mvh,
Jonas