Użycie niezainicjowanej wartości w dopasowaniu wzorca (m //)

Question

Otrzymuję ten błąd, mimo że zadeklarowałem zmienną regex.

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

Później w moim kodu używam wtedy $pattern.

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

Ale gdy uruchamiam mój kod daje mi poniższy błąd i nadal działa skutecznie:

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

Przeszukanie w Google tego błędu wydaje się wskazywać na scenariuszach, w których zmienna nie ma został zainicjowany, chociaż w moim przypadku wydawałoby się, że już go zainicjowałem?

Answer 1

Ta wiadomość nie mówi, że $pattern jest niezainicjalizowany; Mówi ci, że $page jest niezainicjowany. Jeśli spodziewasz się, że $page może być niezainicjowanymi, i to jest OK, to można pominąć ostrzeżenie i było jasne dla przyszłych czytelników kodu źródłowego, pisząc to:

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

Answer 2

problem nieprawdaż t $pattern - problem jest $element

szybki test będzie produkować ten sam wynik:

use strict; 
use warnings; 

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