一个不好理解的问题,和管道有关,望有识之士解惑

Namelessxp

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. use Tk;
   
6. BEGIN {
   
7.         if ($^O eq 'MSWin32'){
   
8.                 require Win32::Console;
   
9.                 Win32::Console::Free();
   
10.         }
    
11. }
    
12. 
    
13. $|++;
    
14. open(SP,'>stdout.txt');
    
15. *STDOUT = *SP;
    
16. *STDERR = *SP;
    
17. open TP,"-|","netstat -an";
    
18. 
    
19. my $mw = MainWindow->new;
    
20. 
    
21. my $text = $mw->Text(-width => 45, -height => 35, -font => "r11")->pack;
    
22. $mw->Button(-text => "Close", -command => sub { exit })->pack;
    
23. $mw->repeat(1000 => \&run);
    
24. 
    
25. MainLoop;
    
26. 
    
27. sub run {
    
28.     $mw->update;
    
29.         my $line = <TP>;
    
30.         if ($line){
    
31.             $text->insert('end',$line);
    
32.         }
    
33. }
    

复制代码

1. 
   
2. #代码1
   
3. BEGIN {
   
4.         if ($^O eq 'MSWin32'){
   
5.                 require Win32::Console;
   
6.                 Win32::Console::Free();
   
7.         }
   
8. }
   
9. 这部分,是flw版版在perlchina提到的一个用来关闭运行窗口的方法
   

复制代码

1. 
   
2. #代码2
   
3. open(SP,'>stdout.txt');
   
4. *STDOUT = *SP;
   
5. *STDERR = *SP;
   
6. open TP,"-|","netstat -an";
   
7. 这部分,是我要打开操作的管道,由于运行窗口已经关闭了,所以把标准输出和标准错误都重定向到文件
   

复制代码

现在的问题是,只要我用了代码1,那么代码2里面的就不好使了,看错误文件可以发现有下面的错误信息
readline() on closed filehandle TP at r:\startit.pl line 30.
而如果不全代码1,则代码2工作正常

所以,在想,这两者之间应该有某种关系,或,应该有某种方法可以既使用代码1,也能让代码2正常工作
苦于,资料不全,用google找Win32::Console 或 管道 相关的全部是风牛马不相及的东西

所以,请各位有识之士指点一二,如果哪里写错了,请告知错误原因

Namelessxp

自己顶一下,问题尚未解决

flw

晕～
use IPC::Open2;

Namelessxp

原帖由 flw 于 2006-11-30 22:24 发表
晕～
use IPC::Open2;

总算等到一个答案了,不容易,待俺找资料试试先

flw

1. D:\MoChou>ttt
   
2. Hello, world!
   
3. 
   
4. D:\MoChou>cat ttt.pl
   
5. use strict;
   
6. use warnings;
   
7. 
   
8. use IPC::Open2;
   
9. 
   
10. my ($in, $out);
    
11. 
    
12. my $pid = open2( $out, $in, "perl" );
    
13. print $in qq(print "Hello, world!\\n"\n);
    
14. print $in "__END__\n";
    
15. close $in;
    
16. 
    
17. while( <$out> ) {
    
18.     print $_;
    
19. }
    
20. 
    
21. D:\MoChou>ttt
    
22. Hello, world!
    
23. 
    
24. D:\MoChou>

复制代码

Namelessxp

原帖由 flw 于 2006-11-30 23:02 发表
[code]D:\MoChou>ttt
Hello, world!

D:\MoChou>cat ttt.pl
use strict;
use warnings;

use IPC::Open2;

my ($in, $out);

my $pid = open2( $out, $in, "perl" );
print $in qq(p ...

这个,好像跟我要达到的目标不一致
说说我的想法,有一命令行调用的程序,想用管道打开,不出现命令行窗口,把它的运行结果输出到Tk的text里面
现在碰到的问题是,不能释放双击打开后弹出的那个窗口,否则后面的管道好像就不执行了

用open2后,离我的目标更远了,第一个窗口释放后,又会弹出另一个不可控窗口,而且命令还是没执行

So..我的目标能不能实现?

flw

原帖由 Namelessxp 于 2006-12-1 08:34 发表

这个,好像跟我要达到的目标不一致
说说我的想法,有一命令行调用的程序,想用管道打开,不出现命令行窗口,把它的运行结果输出到Tk的text里面
现在碰到的问题是,不能释放双击打开后弹出的那个窗口,否则后面的管道 ...

哦，那应该是你那个命令是 console win32 subsystem 的，所以它会打开窗口。
如果这样的话，可以把控制台窗口“隐藏”就好了。
我这里有个例子，是我天天都在用的，你改一下好了：

1. use Win32::GUI;
   
2. 
   
3. my $name = shift || die "$0 <window title pattern>\n";
   
4. my $all_action = shift;
   
5. 
   
6. $top = Win32::GUI->GetTopWindow();
   
7. 
   
8. $handle = Win32::GUI::GetWindow( $top, GW_HWNDFIRST );
   
9. do{{
   
10.     $title = Win32::GUI::Text( $handle );
    
11.     next if ( $title =~ /cmd\.exe - .* $name/ );
    
12.     if ( $title =~ /$name/ ){
    
13.         my $action;
    
14.         if ( $all_action =~ /^hide|show$/ ){
    
15.             $action = $all_action;
    
16.         }
    
17.         else{
    
18.             print $title, "   <hide/show>? ";
    
19.             $action = <>;
    
20.             chomp $action;
    
21.         }
    
22.         if ( $action eq 'hide' ){
    
23.             Win32::GUI::Hide( $handle );
    
24.         }
    
25.         elsif ( $action eq 'show' ){
    
26.             Win32::GUI::Show( $handle );
    
27.         }
    
28.     }
    
29. }}while( $handle = Win32::GUI::GetWindow( $handle, GW_HWNDNEXT ) );

复制代码

flw

这是我调用它的句子：

1. hidewin "^Debian - VMware Workstation$" hide

复制代码

Namelessxp

好使，不过，有个小问题，
当 use warnings; 的时候
会出下面这个警告,虽然不影响使用,还是想搞清楚这意味着什么
Argument "Win32::GUI" isn't numeric in subroutine entry at R:\hidewin.pl line 9.

[ 本帖最后由 Namelessxp 于 2006-12-1 21:48 编辑 ]

flw

哦，也许是 Win32::GUI 的新版本有变化，你把
$top = Win32::GUI->GetTopWindow;
改成
$top = Win32::GUI::GetTopWindow(0);
试试。