Có cách nào để biên dịch trước một regex trong Perl?

Question

Có cách nào để biên dịch trước một regex trong Perl? Tôi có một cái mà tôi sử dụng nhiều lần trong một chương trình và nó không thay đổi giữa các lần sử dụng.

Answer 1

Đối với regex không có gì để làm - perl sẽ chỉ biên dịch chúng một lần.

if ($var =~ /foo|bar/) { 
    # ... 
} 

Đối với các regex được lưu trữ trong các biến bạn có một vài tùy chọn. Bạn có thể sử dụng toán tử qr// để xây dựng một đối tượng regex:

my $re = qr/foo|bar/; 

if ($var =~ $re) { 
    # ... 
} 

Đây là thuận tiện nếu bạn muốn sử dụng một regex ở nhiều nơi hoặc vượt qua nó để chương trình con.

Nếu mẫu regex là trong một chuỗi, bạn có thể sử dụng tùy chọn /o hứa perl rằng nó sẽ không bao giờ thay đổi:

my $pattern = 'foo|bar'; 

if ($var =~ /$pattern/o) { 
    # ... 
} 

Nó thường tốt hơn để không làm điều đó, mặc dù. Perl đủ thông minh để biết rằng biến không thay đổi và regex không cần phải biên dịch lại. Chỉ định /o có thể là một tối ưu hóa vi mô sớm. Nó cũng là một cạm bẫy tiềm năng. Nếu biến có đã thay đổi bằng cách sử dụng /o sẽ khiến cho perl sử dụng regex cũ. Điều đó có thể dẫn đến khó chẩn đoán lỗi.

Answer 2

Đơn giản: Kiểm tra toán tử qr // (được ghi trong perlop trong Regexp Quote-Like Operators).

my $regex = qr/foo\d/; 
$string =~ $regex;