如何在Vim脚本中从Perl方法返回值？

我正在写一个Vim脚本。我有一个使用嵌入式Perl的函数。如何从Perl代码中返回值？

关键是要对试图返回的值中的任何单引号进行转义，然后使用

VIM:：DoCommand（“返回“$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

函数PhoneHome（）
perl INET->connect（）
我的$data=；
$data=~s |'|'|'| g；|逃脱'
VIM:：docomand（“返回“$data”）
EOF
端功能

另请参见

：help perl

和

：help perl docomand

。但在大多数情况下，这并没有真正的记录