首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → POE::Wheel::Run::Win32模块，参数不能传递

POE::Wheel::Run::Win32模块，参数不能传递

时间：2010-09-08

来源：互联网

发现POE::Wheel::Run::Win32有一个问题··不知道是模块的问题··还是我代码有问题，
有参数就不能运行test.pl，没参数可以~~·不知道什么问题~~百思不得其解~~~望指教~~
先上代码，代码如下：（和模块自带的例子一样··就是Program 那里改了一下）
  1. use warnings;
  2.   use strict;

  4.   use POE qw( Wheel::Run::Win32 );

  6.   POE::Session->create(
  7.     inline_states => {
  8.       _start           => \&on_start,
  9.       got_child_stdout => \&on_child_stdout,
  10.       got_child_stderr => \&on_child_stderr,
  11.       got_child_close  => \&on_child_close,
  12.       got_child_signal => \&on_child_signal,
  13.     }
  14.   );

  16.   POE::Kernel->run();
  17.   exit 0;

  19.   sub on_start {
  20.     my $child = POE::Wheel::Run::Win32->new(
  21.       Program => sub{exec('test.pl','2.txt');},#有后面那个‘2.txt’就不行···程序会出错，没有参数的话··可以运行
  22. #    Program => 'test.pl',#不行
  23.       StdoutEvent  => "got_child_stdout",
  24.       StderrEvent  => "got_child_stderr",
  25.       CloseEvent   => "got_child_close",
  26.     );

  28.     $_[KERNEL]->sig_child($child->PID, "got_child_signal");

  30.     # Wheel events include the wheel's ID.
  31.     $_[HEAP]{children_by_wid}{$child->ID} = $child;

  33.     # Signal events include the process ID.
  34.     $_[HEAP]{children_by_pid}{$child->PID} = $child;

  36.     print(
  37.       "Child pid ", $child->PID,
  38.       " started as wheel ", $child->ID, ".\n"
  39.     );
  40.   }

  42. sub run
  43. {
  44.         exec 'D:\\test-area\\remote\\test.pl';
  45. }
  46.   # Wheel event, including the wheel's ID.
  47.   sub on_child_stdout {
  48.     my ($stdout_line, $wheel_id) = @_[ARG0, ARG1];
  49.     my $child = $_[HEAP]{children_by_wid}{$wheel_id};
  50.     print "pid ", $child->PID, " STDOUT: $stdout_line\n";
  51.   }

  53.   # Wheel event, including the wheel's ID.
  54.   sub on_child_stderr {
  55.     my ($stderr_line, $wheel_id) = @_[ARG0, ARG1];
  56.     my $child = $_[HEAP]{children_by_wid}{$wheel_id};
  57.     print "pid ", $child->PID, " STDERR: $stderr_line\n";
  58.   }

  60.   # Wheel event, including the wheel's ID.
  61.   sub on_child_close {
  62.     my $wheel_id = $_[ARG0];
  63.     my $child = delete $_[HEAP]{children_by_wid}{$wheel_id};

  65.     # May have been reaped by on_child_signal().
  66.     unless (defined $child) {
  67.       print "wid $wheel_id closed all pipes.\n";
  68.       return;
  69.     }

  71.     print "pid ", $child->PID, " closed all pipes.\n";
  72.     delete $_[HEAP]{children_by_pid}{$child->PID};
  73.   }

  75.   sub on_child_signal {
  76.     print "pid $_[ARG1] exited with status $_[ARG2].\n";
  77.     my $child = delete $_[HEAP]{children_by_pid}{$_[ARG1]};

  79.     # May have been reaped by on_child_close().
  80.     return unless defined $child;

  82.     delete $_[HEAP]{children_by_wid}{$child->ID};
  83.   }
复制代码
test.pl的代码如下：
  1. use strict;
  2. my $file = shift @ARGV;
  3. #my $file ='1.txt';
  4. my $str = 'the return values';
  5. print $str,"\n";
  6. open F,">",$file;
  7. print F $str,"\n";
  8. close F;
复制代码

作者: wfnh   发布时间: 2010-09-08

顶上

作者: wfnh   发布时间: 2010-09-08

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net