请教如何调用shell程序而不捕获输出?

dread0

比如, 我写了个小脚本, 用
`calc`打开了计算器

但是不关掉计算器的话, 程序不会继续执行...

能不能不等它执行完就继续执行呢?

flw

`start calc`

dread0

我试了一下, 不行啊:
$c = `start calc`;
print "hello";

关掉计算器之前, 不会打印hello的

dorainm

calc &

alexru

fork

sewenew

用fork建一个新的进程
my $pid = fork ;
if( $pid == 0 )    # child
{
     calc ;
     # .....
}
else    # parent
{
    # .....
}

flw

1. use Win32::Process;
   
2. 
   
3. Win32::Process::Create( $obj, 'c:/windows/system32/calc.exe', 'calc', 0, NORMAL_PRIORITY_CLASS, '.' );
   
4. print "Hello\n";

复制代码

其实相比起来还是 fork 好记。

sewenew

不过fork在windows下是不是有点问题，以前做一个东西，想用fork，可是好像遇到些问题，然后想用多线程，不过还是有问题，最后只有改用单进程了。。。。总之感觉perl在windows下对多进程，尤其是多线程支持不是很好，不知道是不是这样的

[ 本帖最后由 sewenew 于 2007-6-28 10:57 编辑 ]

himate

我觉得后台和fork+exec都可以

1.后台由perl脚本的孙进程执行，perl接着后面的执行；
2.fork一个子进程，exec执行完以后kill这个子进程 也不浪费资源

system 和反引号都会等到shell执行完才接着perl后面的statement

dread0

谢谢楼上几位, 我试了一下,
`calc&`   不行
my $pid = fork ;
if( $pid == 0 )    # child
{
     `calc `;
     # .....
}
else    # parent
{
    print "hello";
    # .....
}             这种也不行

版大的use Win32:rocess这种方法可以!
不过为了启动个calc用
Win32:rocess::Create( $obj, 'c:/windows/system32/calc.exe', 'calc', 0, NORMAL_PRIORITY_CLASS, '.' );
这么多参数... perl中存在函数重载吗?
还是只能在写子例程的时候自己对@_数组进行判断?

看来perl在windows上的移植还是不好, fork都不行....