Perl Pipe не перенаправляет вывод процесса Java - PullRequest
Новая
       24

Perl Pipe не перенаправляет вывод процесса Java

1 голос
/ 09 марта 2011

Я пытаюсь управлять игровым сервером и отображать его результаты в режиме реального времени. Это то, что я до сих пор: 

#!/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->name || $client->peerhost;
   print $client "Command? ";

   while ( <$client>) {
     next unless /\S/;       # blank line
     if    (/quit|exit/i) {
        last;                                     }
     elsif (/fail|omg/i) {
        printf $client "%s\n", scalar localtime;  }
     elsif (/start/i ) {
        if (my $ping_pid = open(JAVA, "screen java -jar craftbukkit-0.0.1-SNAPSHOT.jar |")) {
    while (my $ping_output = <JAVA>) {
        # Do something with the output, let's say print
        print $client $ping_output;

        # Kill the C program based on some arbitrary condition (in this case
        # the output of the program itself).
                }
        }
        printf $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 "FAIL\n";
     }
   } continue {
      print $client "Command? ";
   }
   close $client;
 }

Он запускает процесс просто отлично, единственный недостаток в том, что он не выводит вывод процесса Java в сокет (он отображает вывод в окне терминала, с которым был запущен Perl) Я пробовал это с помощью ping и все работало нормально, есть идеи?

Заранее спасибо!

Ответы [ 2 ]

1 голос
/ 09 марта 2011

Звучит так, будто код Java (или, может быть, screen) выводит некоторые выходные данные в стандартный поток ошибок. Предполагая, что вы не хотите захватывать его отдельно , некоторые простые исправления:

Подавить это:

open(JAVA, "screen java -jar craftbukkit-0.0.1-SNAPSHOT.jar <b>2>/dev/null</b> |")

Захватить его в стандартный поток вывода:

open(JAVA, "screen java -jar craftbukkit-0.0.1-SNAPSHOT.jar <b>2>&1</b> |")

0 голосов
/ 09 марта 2011

screen перенаправляет вывод на «экран». Избавьтесь от screen в команде.

...