Uso del valore non inizializzato nella corrispondenza del modello (m //)

Question

Viene visualizzato questo errore anche se ho dichiarato la variabile regex.

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

Più tardi nel mio codice che uso poi $pattern.

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

Ma quando ho eseguito il mio codice mi dà l'errore sotto, e continua a eseguire correttamente:

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

Una ricerca su Google per questo errore sembra indicare scenari in cui la variabile non ha stato inizializzato, sebbene nel mio caso sembrerebbe che l'ho già inizializzato?

Answer 1

Quel messaggio non ti sta dicendo che $pattern non è inizializzato; ti sta dicendo che $page non è inizializzato. Se ci si aspetta che $page potrebbe essere inizializzato, e va bene, allora è possibile ignorare l'avvertimento, e rendere le cose chiare per i futuri lettori del codice sorgente, scrivendo questo:

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

Answer 2

Il problema isn' t $pattern - il problema è $element

Un test rapido produrrà lo stesso risultato:

use strict; 
use warnings; 

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