Гость Опубликовано 17 сентября, 2001 Жалоба Поделиться Опубликовано 17 сентября, 2001 серверная часть писана на ц, клиент писаный на том же ц inet socket port 8001 все нормально, коннектится, но когда пишу клиента на perl и подключаюсь к 8001 получаю "connection refused" может в ц порты как то не так нумеруются? потому что когда создавал сокет-сервер на 3128 bind не выдал ошибку, а в теории должен был (у меня там апач висит) Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 9 октября, 2001 Жалоба Поделиться Опубликовано 9 октября, 2001 В перле и сях нумерация портов совпадает, насколько я знаю. А вот на кой ты Апач на 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; } может чем поможет. Если нет - по мылу. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.