[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

[Thomas]

my $port = "https";

Borde väl rimligtvis vara

my $port = "443";

Du gör ju senare en kontroll så att variabeln $port bara blir getservbyname($port, 'tcp') om $port inte är numerisk.

if $port !~ /^[0-9]/;

Thomas

[kers]

Finns det någon anledning till att du använder socketsmodulen rakt av ? Om du kan installera egna perlmoduler så är en enkel lösning att köra LWP (http://lwp.linpro.no/lwp/), med LWP::Simple så är det jättesmidigt. Kan dras ner från CPAN ( perl -MCPAN -e 'install LWP::Simple' alt dra ner tarbollen och installera själv) och är väldigt stabilt, använt och genomarbetat.

kodexempel:

use LWP::Simple;
$sidan= get("https://www.server.co/script.php?alsladlasd");
if ($sidan) 
 *{
 * * print $sidan;
 *}
 *else 
 *{
 * * print "kunde inte ladda sidan";
 *}

[Thomas]

Jag rekommenderar också LWP.

Thomas

[jonasaskas]

Tack för tipset om LWP, skall kolla på det.