командной оболочки внутри Perl Script

Question

Все

я следующая команда оболочки работает в соответствии с ожиданием на скорлупе, но не работает, когда вызывается внутри Perl

команды

Shell:

grep -P -s -irl --include \*.v "\s+hello\s?[(].*" <PATH> 

работает отлично

Внутренний Perl:

$inst_search = `grep -P -s -irl --include \*.v "\s+$inst\s?[(].*" @plt_dirs`; 

не работает

Я подозреваю, что у меня что-то отсутствует с регулярным выражением внутри grep..пожалуйста, исправьте меня!

Спасибо, Вивек

Answer 1

Perl избегает специальных символов оболочки при вызове exec/system/qx (или backticks) со строкой.

Попробуйте использовать функции exec или system, но передайте список, например.

system('grep', '-P', '-s', '-irl', '--include', '\*.v', '"\s+hello\s?[(].*"', @plt_dirs); 

Вы также можете посмотреть на модуль, который делает некоторые обработки для вас, как и IPC :: System Error :: Simple.

Answer 2

Попробуйте это:

$inst_search = qx#grep -P -s -irl --include \*.v "\s+$inst\s?[(].*" @plt_dirs#; 

Или использовать любой другой не алфавитно-цифровой символ вместо "#" для цитирования.