perl - 如何从 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 .但在大多数情况下，这并没有真正记录在案。