Perl tìm kiếm dòng lệnh và thay thế bằng nhiều biểu

Question

Tôi đang sử dụng Perl để tìm kiếm và thay thế nhiều biểu thức thông thường: Khi tôi thực hiện lệnh sau, tôi nhận được một lỗi:

prompt> find "*.cpp" | xargs perl -i -pe 's/##(\W)/\1/g' -pe 's/(\W)##/\1/g' 
syntax error at -e line 2, near "s/(\W)##/\1/g" 
Execution of -e aborted due to compilation errors. 
xargs: perl: exited with status 255; aborting 

Có nhiều -e là hợp lệ trong Perl, vậy tại sao điều này không hoạt động? Có một giải pháp cho điều này?

Answer 1

Một số được phép của -e.

Bạn đang thiếu ';'

find "*.cpp" | xargs perl -i -pe 's/##(\W)/\1/g;' -pe 's/(\W)##/\1/g;' 

báo cáo Perl đã kết thúc với ;. Câu lệnh cuối cùng trong một khối không cần chấm dứt dấu chấm phẩy. Vì vậy, một đơn -e mà không cần ; sẽ hoạt động, nhưng bạn sẽ phải thêm ; khi bạn có nhiều câu hỏi -e.