Чтение из Perl-канала, постоянно выводящего текст - PullRequest
Новая
       6

Чтение из Perl-канала, постоянно выводящего текст

2 голосов
/ 07 марта 2011

Я недавно пытался создать контроллер игрового сервера на Perl, я хотел бы запускать, останавливать и просматривать текст, который был выведен игровым сервером, вот что у меня есть: 

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

 $PORT = 9050;                  # 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->name || $client->peerhost;
   print $client "Command? ";

   while ( <$client>) {
     next unless /\S/;       # blank line
     if    (/quit|exit/i) {
        last;                                     }
     elsif (/some|thing/i) {
        printf $client "%s\n", scalar localtime;  }
     elsif (/start/i ) {
        open RSPS, '|java -jar JARFILE.jar' or die "ERROR STARTING: $!\n";
        print  $client "I think it started...\n Say status for output\n";                }
     elsif (/stop/i ) {
        print RSPS "stop";
        close(RSPS);
        print  $client "Should be closed.\n"; }
     elsif (/status/i ) {
        $output = <RSPS>;
        print $client $output;      }
     else {
       print $client "Hmmmm\n";
     }
   } continue {
      print $client "Command? ";
   }
   close $client;
 }

У меня проблемы с чтением с канала, есть идеи?

Спасибо!

1 Ответ

3 голосов
/ 07 марта 2011

Вы пытаетесь выполнять чтение и запись для файлового дескриптора RSPS, хотя вы открыли его только для записи (open RSPS, '|java -jar JARFILE.jar' означает запуск процесса Java и использование файлового дескриптора RSPS для записи в стандартный ввод процесс Java).

Чтобы прочитать выходные данные процесса, вам нужно либо записать выходные данные процесса в файл и открыть отдельный дескриптор файла для этого файла 

open RSPS, '| java -jar JARFILE.jar > jarfile.out';
open PROC_OUTPUT, '<', 'jarfile.out';

или проверьте модуль типа IPC::Open3, который был сделан для таких приложений. 

use IPC::Open3;
# write to RSPS and read from PROC_OUTPUT and PROC_ERROR
open3(\*RSPS, \*PROC_OUTPUT, \*PROC_ERROR,
      'java -jar JARFILE.jar');
...