Мне приходится работать на нескольких работах. После запуска каждого задания выполняется 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);
}