返回顶部

收藏

Perl 的 Win32::Spawn 使用方法

更多
#!/usr/bin/perl -w
use Win32;

#$ApplicationName = 'c:/winnt/system32/notepad.exe';
#$ApplicationName = "C:\\\\WINDOWS\\\\NOTEPAD.EXE";
$ApplicationName = 'c:\\winnt\\system32\\notepad.exe';

#$CommandLine = "notepad";
$CommandLine = "notepad spawn.pl";

$status = Win32::Spawn( $ApplicationName,$CommandLine,$ProcessId );

if ( $status != 0 ) {
    print "Launched process with ID $ProcessId.\\n";
} else {
    print "Failed to launch process.\\n";
}

#该片段来自于http://outofmemory.cn

标签:perl,系统

收藏

0人收藏

支持

0

反对

0

发表评论