如何退出 Perl 脚本执行期间运行的 vi 会话？

Question

我必须做一些工作。运行每个作业后，它会对内容运行 vi。写入并退出后（通常我这样做 :wq!），这些数据会在数据库中更新。由于此类工作的数量超过一百个，我想到使用 Perl 来自动化该过程。

但是当我运行脚本时，我陷入了 vi 中，无法使其自行退出。这需要手动干预并且无法实现我的脚本的目的。我需要有关如何处理这种情况的帮助，因为这将帮助我节省时间和精力。

代码如下：

print "Enter job name - \n";
$job_rc = <>;
print "Job entered by you is $job_rc \n";
my @job_name = ("job1", "job2", "job3", "job4");
my $total_job = @job_name;
print "Total job present = $total_job + 1 \n";
for ($i = 0; $i < $total_job; $i++) {
    print "Curent job name: $job_name[$i] \n";
    system "cr_job $job_name[$i] $job_rc";
    sleep(10);
}

Answer 1

我认为你从错误的角度处理这个问题。不要退出 vi，而是考虑不运行它。

我只能猜测为什么 vi 运行，它似乎与你的“工作”有关。可能的原因之一是他们运行默认的文本编辑器来获取一些用户输入（此类行为的众所周知的示例是当您调用 hg commit 时，svn commit 、cvs ci 等（在不提供消息的情况下，它们会自动运行文本编辑器来获取提交消息）。

如果是这种情况，请首先检查您的“工作”，因为他们可能有选项来禁用此提示。如果没有，他们可能会使用 $EDITOR 环境变量来决定运行哪个编辑器，将此变量设置为您准备的内容（例如，将默认消息写入作为参数给出的文件的脚本）可能做。