Bad file descriptor！ 这到底是些什么错误啊？

433309

当我的perl 脚本中有这些 语句的时候 总是 运行报错：  Bad file descriptor！ 谁能指点一下啊？谢谢了！

错误语句如下：open OUT, "command |"
   or die "Could not open command: $!\n";

或者 open(CHILD, "./read-stdout-pipel 2>&1 |") or die "Can't open: $!";

或者 open($H,"tail -f -n 50 z.txt |") or die $!;

兰花仙子

或者 open(CHILD, "./read-stdout-pipel 2>&1 |") or die "Can't open: $!";

或者 open($H,"tail -f -n 50 z.txt |") or die $!;

没见过这样open的。。

433309

回复 2# 兰花仙子


    有啊   在 http://www.perlmonks.org/?node_id=332324
#!/usr/bin/perl
use strict;
use Tk;
use IO::Handle;

my $H=IO::Handle->new;
open($H,"tail -f -n 50 z.txt |") or die $!;

my $main = MainWindow->new;

my $t = $main-> Scrolled('Text',
              -wrap=>'none')->pack(-expand=>1);

$main->fileevent(\*$H,'readable',[\&fill,$t]);

MainLoop;

sub fill {
  my ($w) = @_;
  my $text;
  my $text =<$H>;
  $w->insert('end',$text);
  $w->yview('end');
}

wtuter

回复 4# 433309


    这跟你写的不一样吧

433309

回复 5# wtuter


    一样啊 我就是在这个上面复制过来的    就是运行这个程序的时候  这个 open 语句报错  可以解释下吗 谢谢

2gua

换个方式来吧。

2gua

换个方式来吧。