如何從Vim腳本中的Perl方法返回值？

Question

我在寫一個Vim腳本。我有一個使用嵌入式Perl的函數。我如何從我的Perl代碼返回值？

Answer 1

關鍵是要轉義您嘗試返回的值中的任何單引號，然後使用VIM::DoCommand("return '$data'")。

例如：

function PhoneHome() 
    perl << EOF 
     use IO::Socket; 
     my $mothership = IO::Socket->INET->connect() 
     my $data = <$mothership>; 
     $data =~ s|'|''|g; # escape ' 
     VIM::DoCommand("return '$data'") 
    EOF 
endfunction 

另見:help perl和:help perl-DoCommand。但大多數情況下，這並沒有真正的記錄。