perl trường hợp không nhạy cảm chuyển đổi như biến?

Question

Trong perl, tôi muốn để có thể làm điều này:

$switches = "is"; 
$regexp = "\\d"; 
if ($string =~ m/$regexp/$switches) { 
do something... 
} 

Nói cách khác, làm thế nào tôi có thể làm cho "$ tắc" không bắt buộc tại thời gian chạy? (Người dùng có thể chọn từ một loạt các lựa chọn cho việc tìm kiếm)

Answer 1

if ($string =~ /(?$flags:$pattern)/) { 
    ... 
} 

Lưu ý: Điều này sẽ không hoạt động nếu $pattern là một mô hình biên dịch (tức là sản xuất bởi qr//) chứ không phải là một chuỗi vì đó là cờ truyền đến qr// ảnh hưởng đến mẫu được biên dịch với qr//. Bạn sẽ phải chuyển cờ đến qr// thay vì m//.