谁能给贴个用IO::Socket::INET写的client 和server 程序

abcdefgx

为什么书上的例子我运行不能交互哪，总是hang在那儿。

兰花仙子

原帖由 abcdefgx 于 2007-2-7 18:07 发表
为什么书上的例子我运行不能交互哪，总是hang在那儿。

1) 贴codes出来看看.
2) 见置顶帖子,偶写过例子.

abcdefgx

Server 程序如下，问题是在client端只能打印出welcome 行，不能打出command?行，为啥哪 ？

      #!/usr/bin/perl -w
      use IO::Socket;
      use Net::hostent;                     # for OO version of gethostbyaddr

      $PORT = 9000;                     # pick something not in use

      $server =        IO::Socket::INET->new( Proto         => 'tcp',
                                       LocalPort => $PORT,
                                       Listen         => SOMAXCONN,
                                       Reuse         => 1);

      die "can't setup server" unless $server;
      print "[Server $0        accepting clients]\n";

      while ($client = $server->accept()) {
        $client->autoflush(1);
        print $client "Welcome to $0; type help        for command list.\n";
        $hostinfo = gethostbyaddr($client->peeraddr);
        printf "[Connect from %s]\n", $hostinfo        ? $hostinfo->name : $client->peerhost;
        print $client "Command?        ";
        while (        <$client>) {
          next unless /\S/;          # blank line
          if        (/quit|exit/i)          { last;                                      }
          elsif        (/date|time/i)          { printf $client "%s\n", scalar localtime;  }
          elsif        (/who/i        )          { print  $client `who        2>&1`;                      }
          elsif        (/cookie/i )          { print  $client `/usr/games/fortune 2>&1`; }
          elsif        (/motd/i )          { print  $client `cat        /etc/motd 2>&1`;      }
          else {
            print $client "Commands: quit date who cookie motd\n";
          }
        } continue {
           print $client "Command? ";
        }
        close $client;
      }

兰花仙子

print $client "Command?        ";

后面加一句:

$client->shutdown(1);

告诉client本次写已完成.否则client会阻塞在那里等待SVR的继续写入.

abcdefgx

仙子，能贴一下你写的例子的链接吗，我想看看client应该怎么写，现在能输入command？了但是经常broken pipe。

兰花仙子

原帖由 abcdefgx 于 2007-2-8 15:04 发表
仙子，能贴一下你写的例子的链接吗，我想看看client应该怎么写，现在能输入command？了但是经常broken pipe。

http://bbs.chinaunix.net/viewthr ... &extra=page%3D1