sockets in perl and c

[Гость]

серверная часть писана на ц, клиент писаный на том же ц

inet socket port 8001

все нормально, коннектится, но когда пишу клиента на perl

и подключаюсь к 8001 получаю "connection refused"

может в ц порты как то не так нумеруются? потому что когда

создавал сокет-сервер на 3128 bind не выдал ошибку, а в теории должен был (у меня там апач висит)

[Гость]

В перле и сях нумерация портов совпадает, насколько я знаю. А вот на кой ты Апач на 3128 навесил, если этот порт по умолчанию проксик юзает......

#!/usr/bin/perl -w

use IO::Socket;

unless (@ARGV > 1) { die "usage: $0 host document ..." }

$host = shift(@ARGV);

$EOL = "\015\012";

$BLANK = $EOL x 2;

foreach $document ( @ARGV ) {

$remote = IO::Socket::INET->new( Proto => "tcp",

PeerAddr => $host,

PeerPort => "http(80)",

);

unless ($remote) { die "cannot connect to http daemon on $host" }

$remote->autoflush(1);

print $remote "GET $document HTTP/1.0" . $BLANK;

while ( <$remote> ) { print }

close $remote;

}

может чем поможет. Если нет - по мылу.