作者godman362 (青)
看板Perl
标题[问题] 撷取system输出资料
时间Sun Nov 1 13:23:59 2009
目前我使用system去执行某个外部指令
而输出的部份,要由使用者选择之後决定
我想
直接将输出的值丢入自己宣告的变数之中
而不是透过输出至某个档案後再读出
请问一下这个部份应该如何处理,还请各位指点一下,谢谢
目前我的作法如下:
open(MenuValue,"|dialog --menu \"Data Choose : \" 40 30 6 1 \"Monday\" \\
2 \"Tuesday\" \\
3 \"Wednesday\" \\
4 \"Thursday\" \\
5 \"Friday\" ");
我想将取得的值,放入MenuValue中
不过却没有办法让我选择就结束程式了
所以想请问各位有没有可以解决的办法?
--------------------自行解决办法如下:-------------------------
my $MenuDialog = "dialog --stdout --menu \"Data Choose:\" 40 30 6 ....."
my $pid = open2(\*Read, \*Write, $MenuDialog);
do {
$kid = waitpid($pid, 0);
} while $kid > 0;
<Read> 即为所要值--
要
感谢的人太多了,那就
谢天吧
要
改得程式码太多了,那就
改天吧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.118.8.22
※ 编辑: godman362 来自: 122.118.8.22 (11/01 13:40)
※ 编辑: godman362 来自: 122.118.8.22 (11/01 14:42)
1F:→ godman362:以自行解决,解决方式已经附上 11/01 14:42