Проблема с поиском в регулярных выражениях Perl и замена переменной среды

Question

Я использую виртуальную машину GCE с Ubuntu 18 и у меня возникают проблемы с командой perl.

export ip_addr=`hostname -i`
echo "set \$ip_addr_priv \"{my_ip_address}\"" | sudo perl -n -e 's/(\$ip_addr_priv) +"\{([a-zA-Z0-9_]+)\}"/\1 "$ENV{ip_addr}"/g; print;'

Когда я запускаю это в командной строке, я получаю следующий вывод:

set $ip_addr_priv ""

Вместо чего-то вроде этого:

set $ip_addr_priv "127.0.0.1"

Что я делаю не так?

Answer 1

По умолчанию (и по замыслу), sudo не передает среду текущего пользователя новому процессу.

Вы можете переопределить это поведение с помощью флага командной строки -E.

echo "set \$ip_addr_priv \"{my_ip_address}\"" | sudo perl -n -e 's/(\$ip_addr_priv) +"\{([a-zA-Z0-9_]+)\}"/\1 "$ENV{ip_addr}"/g; print;'
set $ip_addr_priv ""

Vs:

echo "set \$ip_addr_priv \"{my_ip_address}\"" | sudo -E perl -n -e 's/(\$ip_addr_priv) +"\{([a-zA-Z0-9_]+)\}"/\1 "$ENV{ip_addr}"/g; print;'
set $ip_addr_priv "127.0.1.1"