如何從perl腳本中連接兩個外部進程？

我想要做的是在vim會話中的文件上運行Xdebug調試器，所有這些都來自perl腳本。如果我想從命令行執行此操作，我會打開vim，然後在vim中發出一個命令（特定於調試器），使vim監聽端口9000（在正常模式下按F5），然後打開頁面I要在瀏覽器中進行調試，該瀏覽器在vim中啓動調試會話。我成功地做到了這一點。如何從perl腳本中連接兩個外部進程？

爲了在Perl中做到這一點，我的想法是使用fork和系統調用。

use LWP::Simple; 

if ($pid = fork) { 
    system('vi -c ":normal ^[[15~"'); 
} else { 
    sleep; 
    get 'http://localhost/homepage/index.php?XDEBUG_SESSION_START=1'; 
    exit(0); 
}

（在 '-c 「：正常^ [[15〜」' 選項使得VIM由等待在端口9000一個新的連接開始時）

這是行不通的。就我所知，這個問題似乎與套接字有關。有沒有一種方法可以讓過程在perl內部通過這種連接彼此交流？

來源

2013-11-10 Carl Smith

使從VIM內的連接工作：

vim -c 'let x = system("sleep 2; wget http://localhost/homepage/index.php?XDEBUG_SESSION_START=1; &")' -c 'normal ^[[15~'

來源

2013-11-10 15:23:46

如何從perl腳本中連接兩個外部進程？

回答

相關問題