Нужно запустить команду git из perl и перехватить результат команды в конце

Question

Мне нужно запустить команды git из сценария perl.Для этого мне нужно использовать полный путь мерзавца.синтаксис выглядит следующим образом:

system "start", "cmd.exe", "/k", "cd $Repo_path && $arg1 && exit"; 

Где $arg1 = git/exe/path команда git.

Некоторое время выполнение команды может быть не выполнено по некоторым причинам.Мне нужно захватить статус результата выполненной команды.По крайней мере, если мне удастся запечатлеть Успех или неудачу, это тоже было бы здорово.Любая помощь в этом ценится.Заранее спасибо.

Answer 1

В дополнение к общим способам выполнения внешних команд, Git :: Wrapper может быть полезным для этого конкретного случая.Он абстрагирует запущенные команды git в стандартный объектный интерфейс Perl.Вы можете передать конкретный двоичный файл git и каталог git, чтобы он использовал его в качестве параметров конструктора git_binary и dir, как упомянуто в кратком описании, и он генерирует исключения, если есть ошибка, которую вы можете перехватить и обработать с помощью различные методы .