请问管道关闭的一个问题？

yancncen

open(IN,"$cmd |");
close(IN);
其中$cmd是一个会不断输出信息的命令，在close(IN)的时候会出现问题，死等待，请问这个打开的管道怎样才能正常关闭？谢谢！

open(IN,"ping $IP |");
#get some message
close(IN);
这个时候close有问题，请问这个问题怎么解决啊？

[ 本帖最后由 yancncen 于 2007-1-25 13:50 编辑 ]

chinaseen

你是在UNIX或LINUX下执行的PING命令吗?如果是的话那你使用-c指定PING包数.否则PING太多,管道很容易被堵塞,造成进程休眠!

chinaseen

管道的容量太小.很容易被塞满!好象只有512字节吧.

soichiro

和管道没有关系，是调用的命令比较慢或是阻塞，如果要立即退出，给管道kill信号就行了:

kill TERM => $PIPE;
kill KILL => $PIPE if kill 0 => $PIPE;
wait;

yancncen

楼上的，你上面的程序不仅仅杀掉了管道，还会连主进程也一起杀掉了，有没有别的办法呢？
谢谢!

兰花仙子

原帖由 yancncen 于 2007-1-26 13:37 发表
楼上的，你上面的程序不仅仅杀掉了管道，还会连主进程也一起杀掉了，有没有别的办法呢？
谢谢!

在eval里用超时(alarm)做吧,如果你非得在指定时间内就关闭pipe的话.

soichiro

原帖由 yancncen 于 2007-1-26 13:37 发表
楼上的，你上面的程序不仅仅杀掉了管道，还会连主进程也一起杀掉了，有没有别的办法呢？
谢谢!

怎么可能会把主进程杀掉呢？

yancncen

6楼能给我一段示例的代码吗？我是perl初学者，谢谢！

linuxty

my $pid = open(IN,"-|","ping $IP");
#get some message
kill 9,$pid;
close(IN);

不知道还有什么方法?

[ 本帖最后由 linuxty 于 2009-9-23 17:03 编辑 ]