|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serg N. Yakovlev 2:5020/400 16 Jan 2002 11:33:51
To : All
Subject : IO::Socket ??? и fork()???
--------------------------------------------------------------------------------
Привет!
Вот пытаюсь пример воспризвести.
Хочется, открыв соединение и передав команду, получить обратно ответ. Hа том
конце киска с модемами и при подключении на порт линии и команде "at", дает
"ОК"
Hо в данном случае не происходит! Подскажите почему. Пример взят почти из
примеров "Perl Cookbook". Код:
---------open
#!/usr/bin/perl
#
#
use strict;
use IO::Socket;
my ($host, $port, $comd, $kidpid, $handle, $line);
$host = "192.168.1.29";
$port = "2002";
$comd = "at";
$handle=IO::Socket::INET->new( Proto=>"tcp",
PeerAddr=>$host,
PeerPort=>$port,
Timeout=>5,
Type=>SOCK_STREAM);
#$handle->$autoflush(1); <-------------------------почемуто при
отладке ругается???
#print STDERR "[Connect to $host:$port]\n";
die "can't fork: $!" unless defined($kidpid=fork());
if ($kidpid)
{
while (defined ($line = <$handle>))
{
# print STDOUT $line;
print $comd $line;
}
kill("TERM" => $kidpid);
}
else{
while (defined ($line = <STDIN>))
{
print $handle $line;
}
}
exit;
------------end
С уважением
--- ifmail v.2.15dev5
* Origin: SICE (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
