Вы хотите преобразовать следующую команду unix в perl?
grep TMP_RULE $i | grep -oP 'TMP_RULE\s*=\s*"[^"]+' | awk -F " " '{print $3}' | sed -e 's/\"//' | sort -u >>x.list
Выше кода возвращает мне список TMP_RULE в целом каталоге ($ i на самом деле является переменной для цикла (для i (cat tmp_list ))).
Пожалуйста, дайте мне знать, если есть какие-либо вопросы.