Имеется виндовый ActiveState ActivePerl 5.8
На нем запускается следующий клиент:
-----------------------------------------
#!/usr/bin/perl
use Socket;
$file="cur_playing.xml";
$recordhost="192.168.0.77";
$port="5000";
open(xml_file, "<$file") or die "Couldn't open $file for reading: $!\n";
@data_xml=<xml_file>;
close xml_file;
# create a socket
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
# build the address of the remote machine
$internet_addr = inet_aton($recordhost)
or die "Couldn't convert $recordhost into an Internet address: $!\n";
$paddr = sockaddr_in($port, $internet_addr);
# connect
connect(TO_SERVER, $paddr)
or die "Couldn't connect to $recordhost:$port : $!\n";
# ... do something with the socket
foreach $line (@data_xml) {
send(TO_SERVER, $line, 0);
}
# and terminate the connection when we're done
close(TO_SERVER);
-----------------------------------------
Так же имеется линуксовый perl 5.6.1
На нем - сервер:
-----------------------------------------
#!/usr/bin/perl
use IO::Socket;
use Net::hostent;
$port = "5000";
$i=0;
$server = IO::Socket::INET->new(LocalPort => $port,
Type => SOCK_STREAM,
Proto => 'tcp',
Reuse => 1,
Listen => 4)
or die "Couldn't create xml-server: $_\n";
print "[Server $0 accepting clients]\n";
while ($client = $server->accept()) {
$client->autoflush(1);
print $client "Welcome to $0.\n";
$hostinfo = gethostbyaddr ($client->peeraddr);
printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost;
print $client "Command? ";
print $_;
while (<$client>) {
print $_;
}
close $client;
}
-----------------------------------------
Итак - сервер на линуксе, клиент на винде.
Имеем проблему - когда запускаем клиент на винде - сервер выплевывает предсмертный [Connect from XXXXXX] и отваливается.
Если этот самый клиент запускать на линуксовой машине - все работает как надо. Но мне нужно его запускать именно на виндовой, что делать ?
Куда копать ? Хэлп %-(
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум perl, IPC & socket - чего тут не так? (2006)
- Форум troubles with perl & tcp sockets (2006)
- Форум Perl & win32 (2005)
- Форум Задание на Stepik по Perl. Никак не могу понять, где загвоздка. HELP. (2020)
- Форум Perl. Сокеты. (2007)
- Форум клиент и сервер на Перл (2009)
- Форум TCPSERVER (2019)
- Форум Проблемка с inetd и скриптом на Perl, работающего в качестве запускаемого первым сервера. (2001)
- Форум [perl] проброс проги в сокет (2008)
- Форум вопрос по сетевым сокетам в perl (2005)