Uso del valor no inicializado en coincidencia de patrón (m //)

Question

Recibo este error aunque he declarado mi variable de expresión regular.

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

Más adelante en mi código que utilizo a continuación $pattern.

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

Pero cuando ejecuto mi código que me da el error abajo, y sigue funcionando con éxito:

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

Una búsqueda en Google para este error parece apuntar a escenarios en los que la variable no tiene sido inicializado, aunque en mi caso parece que ya lo he inicializado?

Answer 1

Ese mensaje no le dice que $pattern no está inicializado; le está diciendo que $page no está inicializado. Si usted está esperando que $page podría no haberse inicializado, y eso está bien, entonces se puede pasar por alto la advertencia y hacer las cosas más claras para los futuros lectores del código fuente, escribiendo esto:

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

Answer 2

El problema ISN' t $pattern - el problema es $element

Una prueba rápida producirá el mismo resultado:

use strict; 
use warnings; 

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