Perl một lớp lót để tìm và thay thế trong một tệp có biến số

Question

Tôi đang cố gắng tìm <li ><a href='xxxxxxxx'>some_link</a></li> và thay thế bằng không có gì. Để làm điều này, tôi đang chạy lệnh dưới đây nhưng nó nhận ra $ như là một phần của một regex.

perl -p -i -e 's/<li ><a href=.*$SOMEVAR.*li>\n//g' file.html

Tôi đã thử những điều sau đây,
${SOMEVAR}
\$SOMEVAR
FIND="<li ><a href=.*$SOMEVAR.*li>"; perl -p -i -e 's/$FIND//g' file.html

Bất kỳ ý tưởng? Cảm ơn.

Answer 1

Bash chỉ thực hiện thay thế biến với dấu ngoặc kép.

này nên làm việc:

perl -p -i -e "s/<li ><a href=.*?$SOMEVAR.*?li>\n//g" file.html 

EDIT Trên thực tế, có thể hành động kỳ lạ với \n trong đó. Một cách tiếp cận khác là tận dụng chuỗi nối của Bash. Điều này sẽ làm việc:

perl -p -i -e 's/<li ><a href=.*?'$SOMEVAR'.*?li>\n//g' file.html 

EDIT 2: Tôi chỉ cần lấy một cái nhìn sâu hơn về những gì bạn đang cố gắng để làm, và đó là loại nguy hiểm. Bạn đang sử dụng hình thức greedy của .*, có thể khớp với nhiều văn bản hơn bạn muốn. Sử dụng .*? để thay thế. Tôi cập nhật các regexes ở trên.

Answer 2

Nếu "someVar" thực sự là một biến bên ngoài, bạn có thể xuất nó đối với môi trường và tham khảo nó như sau:

SOMEVAR=whatever perl -p -i -e 's/<li ><a href=.*$ENV{SOMEVAR}.*li>\n//g' file.html