谢谢，求一个perl写的能够启动windows程序的脚本

lgq_101

谢谢，求一个perl写的能够启动windows程序的脚本，谢谢大大们了！

比如我的mysql启动进程在 D:\mysql\mysql.exe，现在想用perl脚本启动它。

wfnh

Win32::Process···or fork and exec

lgq_101

回复 2# wfnh


    有具体点的例子吗？

小鹭

use Win32:rocess;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

    Win32:rocess::Create($ProcessObj,
                                "C:\\winnt\\system32\\notepad.exe",
                                "notepad temp.txt",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                "."|| die ErrorReport();

    $ProcessObj->Suspend();
    $ProcessObj->Resume();
    $ProcessObj->Wait(INFINITE);

lgq_101

由于出差才回来，不好意思，首先谢谢提供的方案，我测试下