可以並行使用Win32 :: OLE來啓動多個Matlab實例嗎？

Question

當Parallel::Loops與Win32::OLE組合以創建Matlab的多個實例，如果我們在每個循環中使用

my $ML = Win32::OLE->new('Matlab.Application') or die "Cannot start MATLAB" 

，程序崩潰表示未處理的異常。

如果在$ML之前刪除my，那麼它可以工作，但是在任何時候只有一個實例正在運行。

Answer 1

你真的應該顯示你的完整代碼。

如果要設置my $ML內匿名子過程傳遞給Parallel::Loops那麼你設定只有子過程中的價值和值將不會提供給家長。

目前還不清楚你在使用Matlab進程，但是他們不會在他們的父母死後繼續存在，這是你的主程序啓動的子進程之一。

你可以嘗試宣告my @matlabs外循環，然後做

push @matlabs, Win32::OLE->new('Matlab.Application') 

內環路。但是如果你的持續數Matlab進程，那麼爲什麼不只是運行一個簡單的for循環？

Answer 2

我不確定在並行循環中創建多個MATLAB COM服務器有什麼好處。

默認情況下，服務器是以共享模式創建的，即由所有實例共享。 MATLAB引擎作爲單線程向用戶公開，因此在您的情況下，所有客戶端計算都以串行方式運行，而不是並行運行。

幸運創建專用模式MATLAB COM服務器：

Win32::OLE->new('Matlab.Application.single') 

見this page更多信息

PS：我知道很少的Perl :)

Answer 3

中並行::循環沒有測試使用Win32 :: OLE啓動Matlab的多個實例，但Parellel :: Forkmanager通過使用Amro的「單個」技巧並從http://www.perlmonks.org/bare/?node_id=894058得知「CoInitialize尚未被調用」的錯誤：

循環使用前：

use Win32::OLE; # qw(EVENTS); #Win32::OLE(0.1709) error 0x800401f0: "CoInitialize has not been called" 
Win32::OLE->Initialize(); 

和循環使用中：

my $ML = Win32::OLE->new('Matlab.Application.single') or die "Cannot start MATLAB"; 
$ML->{'Visible'}=0; 
$ML->Execute('try;cd \''.$wkdir.'\';'.$executable.' '.$file.' '.$countfile.';catch;end;quit;'); 

的只是使用的使用OLE instesd目的：

system('matlab -automation -wait -r "try;cd \''.$wkdir.'\';'.$executable.' '.$file.' '.$countfile.';catch;end;quit;'); 

是隱藏了Matlab窗口，我們只是想要它做的工作，但我們得到的榮譽。使用Perl實現並行化的matlab parfor效果，我們可以讓所有可用的CPU忙於執行parellel循環之前分配的任務，並在該循環之後收集/合併結果。

Answer 4

隨着進一步的實驗，發現並行::循環的錯誤和的Win32 :: OLE（0.1709）錯誤0x800706be的錯誤：「遠程過程調用失敗或免費錯誤的池使用時中並行:: ForkManager可以通過兩種建議從http://www-01.ibm.com/support/docview.wss?uid=swg21261292和http://search.cpan.org/~gsar/libwin32-0.191/OLE/lib/Win32/OLE/TPJ.pod關於沉默的警告，避免所有的代碼需要包括並行循環裏面，這是工作版本：

require Win32::OLE; 
    import Win32::OLE; 
    Win32::OLE->Initialize(); 
    no warnings qw(once); 
    $Win32::OLE::Warn = 0; 
    my $ML = Win32::OLE->new('Matlab.Application.single') or die "Cannot start MATLAB"; 
    $ML->{'Visible'}=0; 
    $ML->Execute('try;cd \''.$wkdir.'\';'.$executable.' '.$file.' '.$countfile.';catch;end;quit;');