Использование ~ в Perl поиск и замена

Question

Я хочу заменить местозаполнитель во всех файлах под каталогом со строкой, которая генерируется с пользовательского ввода. Этот вход может содержать / : . ~

Я выбрал Perl для выполнения этой задачи.

perl -p -i -e "s/__MY_PLACEHOLDER__/$user_input/g" `find my_dir -type f -print0 | xargs -0` 

Теперь ~ является зарезервированным символом в Perl. Как я могу избежать ~ в $user_input? \~ не работает.

Answer 1

Фактически, ~ не является особым в литералах с двойной кавычкой, например, с заменой выражения s///. Однако некоторые другие являются особенными. Из четырех символов, которые вы указали, / является специальным, когда / используется как разделитель, как здесь.

Не пытайтесь генерировать Perl-код из оболочки! Используйте одно из следующих действий:

export $user_input 
perl -i -pe's/__MY_PLACEHOLDER__/$ENV{user_input}/g' 

или

USER_INPUT=$user_input perl -i -pe's/__MY_PLACEHOLDER__/$ENV{USER_INPUT}/g' 

или

perl -i -pe' 
    BEGIN { $user_input = shift } 
    s/__MY_PLACEHOLDER__/$user_input/g 
' "$user_input" 

---

Кстати, вы действительно пропустил точку xargs!

perl ... `find my_dir -type f -print0 | xargs -0` 

ничем не отличается, чем

perl ... `find my_dir -type f` 

То, что вы хотели это

find my_dir -type f -print0 | xargs -0 perl ... 

Это будет передавать имена файлов в perl unmangled. Он будет даже звонить perl более одного раза с различными партиями аргументов, если необходимо, чтобы избежать попадания ограничений длины командной строки.