Nhà điều hành qr/STRING/ở Perl quyết định có nên biên dịch STRING không?

Question

Các docs cho qr/STRING/ nói:

Toán tử này có dấu ngoặc kép (và có thể biên dịch) STRING của nó như là một biểu thức chính quy .

Điều gì khiến tôi lo lắng là một phần trong dấu ngoặc đơn. Tôi không thể nghĩ ra bất kỳ trường hợp nào mà tôi không muốn nó biên dịch regex từ số STRING. Có phải câu lệnh cha mẹ này chỉ chần chừ để che giấu một số trường hợp trong tương lai không biên dịch hay có trường hợp nào ngày hôm nay (hoặc trong phiên bản cũ hơn của Perl), nơi STRING sẽ không được biên soạn?

Answer 1

Các "có thể biên dịch" một phần của tài liệu có thể đề cập đến những tình huống như một hiển thị dưới đây, nơi mà các lập luận để qr// là một regex đã được biên soạn:

use re 'debug'; 

$re1 = qr/foo/; 
$re2 = qr/$re1/; 

Chạy chương trình đó chỉ hiển thị một regex đang được biên soạn.

Bất kể mục đích của đoạn văn đó, những ám chỉ tinh tế về chi tiết nội bộ không làm rõ tài liệu. Tôi nghĩ rằng một bản vá tài liệu sẽ có lợi.

Answer 2

Nếu regex chứa bất kỳ chuỗi nội suy nào, nó luôn biên dịch (có thể không nếu bạn sử dụng nút chuyển/o - tôi thú nhận/o luôn làm tôi bối rối). Nếu regex chỉ chứa chữ, tôi tin rằng câu trả lời của Adam là chính xác.

IIRC nó có nghĩa là để xử lý tình huống này:

while (my $foo = $something->next) { 
    my $regex1 = qr/ab(cd+)ef?/; # only compiled once 
    my $regex2 = qr/ab${foo}*ef/; # compiled every time through the loop 
    # do stuff with $regex1 and $regex2 
} 

Answer 3

Edit: Câu trả lời này là sai (hoặc ít nhất là sai lầm) nhưng có một số cuộc thảo luận thú vị trong các ý kiến ​​đó là giá trị bảo tồn. John Siracusa's answer dường như đang đi đúng hướng.

---

Các tài liệu cho qr// khẳng định rằng

STRING được nội suy theo cùng một cách như PATTERN trong m/PATTERN /.

có lẽ bao gồm hành vi không biên dịch lại biểu thức chính quy mà mẫu không thay đổi hoặc không thể thay đổi trong trường hợp không bao gồm biến nội suy. Ví dụ, bạn không cần phải biên dịch lại mô hình này trên mỗi lần lặp của vòng lặp:

foreach my $char ('a' .. 'z') { 
    my $vowel = qr/[aeiou]/; 
    say "$char is a vowel" if $char =~ $vowel; 
}