Как передать специальный символ в perl-скрипт?

Question

1) В пользователя PHP входят: запрос как '%key%' или запрос как '%door%'

2) Я звоню PERL скрипт как

ob_start(); 
passthru("perl -w search.pl 'query'); 

3) В Perl, если я печатать

print "query: $ARGV[0]\n"; 

4) Он печатает как запрос, например ^m'%key%'^M или запрос типа ^m'%door%'^M

Любые предложения для печати в качестве введенного пользователем значения.

Answer 1

Вам не хватает замыкания с двойной цитатой на команде passthru.
Я думаю, что вам нужно escapeshellarg(), то есть:

$query = escapeshellarg("'%key%'"); 
shell_exec("perl -w search.pl '$query' "); 

---

escapeshellarg() 

escapeshellarg() добавляет одинарные кавычки вокруг строки и кавычки/сбегает любые существующие одиночные кавычки позволяет передавать строку непосредственно к функции оболочки и ее следует рассматривать как один безопасный аргумент. Эта функция должна использоваться для исключения отдельных аргументов в оболочку функции, поступающие с пользовательского ввода. Функции оболочки включают в себя функцию exec(), () и оператору обратной связи.