Sử dụng giá trị chưa được khởi tạo trong đối sánh mẫu (m //)

Question

Tôi nhận được lỗi này mặc dù tôi đã khai báo biến regex của mình.

my $pattern = '(Cat\.\sNo\.\s\d+)';

Sau đó trong mã của tôi tôi sử dụng sau đó $pattern.

if ($page =~ /$pattern/) 
{ 
    push(@array, $element); 
} 

Nhưng khi tôi chạy mã của tôi nó mang lại cho tôi những lỗi dưới đây, và tiếp tục chạy thành công:

Use of uninitialized value in pattern match (m//) 

Một tìm kiếm trên Google cho lỗi này dường như để trỏ đến các tình huống nơi mà các biến có không được khởi tạo, mặc dù trong trường hợp của tôi có vẻ như tôi đã khởi tạo nó rồi?

Answer 1

Thông báo đó không cho bạn biết rằng $pattern chưa được khởi tạo; nó cho bạn biết rằng $page chưa được khởi tạo. Nếu bạn đang mong rằng $page có thể uninitialized, và đó là OK, sau đó bạn có thể bỏ qua các cảnh báo, và làm cho mọi việc rõ ràng cho độc giả tương lai của mã nguồn, bằng cách viết này:

if (defined($page) && ($page =~ /$pattern/)) 

Answer 2

Vấn đề isn' t $pattern - vấn đề là $element

Một test nhanh sẽ tạo ra kết quả tương tự:

use strict; 
use warnings; 

my $pattern = '(Cat\.\sNo\.\s\d+)'; 
my $element =~ /$pattern/;