Cách đăng ký với các tùy chọn thay đổi trong tập lệnh perl

Question

Thay thế văn bản perl rất đơn giản và mạnh mẽ. tôi muốn làm một kịch bản với sự thay thế biến, như:

if ($IgnoreCase) {$opt = "gi"} else {$opt = "g"} 

$string =~ s/$source/$replace/$opt; 

Kết quả trong:

Scalar tìm thấy nơi khai thác dự kiến ​​...

Có posibility để làm biến tùy chọn?

Answer 1

Vì bạn đang sử dụng /g trong mọi trường hợp bạn có thể,

my $opt = $IgnoreCase ? "(?i)" : ""; 

$string =~ s/$opt$source/$replace/g; 

Thông tin thêm về chủ đề này trong perldoc perlre

Một hoặc nhiều nhúng bổ mô hình trận đấu, phải được bật (hoặc tắt nếu trước "-") cho phần còn lại của mẫu hoặc phần còn lại của nhóm mẫu bao quanh (nếu có).

Điều này đặc biệt hữu ích đối với các mẫu được tạo động, chẳng hạn như các mẫu được đọc từ tệp cấu hình, được lấy từ một đối số hoặc được chỉ định trong bảng ở đâu đó. Hãy xem xét trường hợp một số mẫu muốn phân biệt chữ hoa chữ thường và một số mẫu không phân biệt chữ hoa chữ thường: Các chữ cái không phân biệt dạng chữ chỉ cần bao gồm (? I) ở phía trước mẫu.

Answer 2

Để hơi rõ the excellent answer từ Сухой27:

Như bạn đã thấy, bạn không thể sử dụng một biến trong các tùy chọn phần của các nhà điều hành s/// (tốt, bạn có thể nếu bạn sử dụng eval nhưng đó sẽ là một ý tưởng rất xấu).

Tuy nhiên, đó không phải là cách duy nhất để đưa các tùy chọn vào đối sánh regex. Bạn cũng có thể sử dụng cú pháp (?...)bên trong chuỗi regex. Ví dụ: m/(?i)foo/ chính xác giống như m/foo/i. Lưu ý rằng /g là một lớp tùy chọn hơi khác, do đó bạn không thể sử dụng tùy chọn đó như thế này.

Nhưng vì chuỗi (?...) này chỉ là một phần của regex, bạn có thể sử dụng biến để nhúng nó vào trong regex của mình.

my $opt = $IgnoreCase ? "(?i)" : ""; 

$string =~ s/$opt$source/$replace/g; 

Xem "Extended Patterns" in perldoc perlre để biết thêm chi tiết.