पैटर्न मिलान में अनियमित मूल्य का उपयोग (एम //)

Question

मुझे यह त्रुटि मिल रही है भले ही मैंने अपना रेगेक्स वैरिएबल घोषित किया हो।

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

मेरी कोड में बाद में मैं तो का उपयोग $pattern।

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

लेकिन जब मैं अपने कोड चलाने यह मुझे नीचे त्रुटि देता है, और सफलतापूर्वक चलाने के लिए जारी है:

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

इस त्रुटि के लिए गूगल पर एक खोज जहां चर नहीं है परिदृश्यों को इंगित करने लगता है शुरू किया गया है, हालांकि मेरे मामले में ऐसा लगता है कि मैंने इसे पहले ही शुरू कर दिया है?

Answer 1

वह संदेश आपको नहीं बता रहा है कि $pattern अनियमित है; यह आपको बता रहा है कि $page अनियमित है। आप उम्मीद कर रहे हैं कि $page अप्रारंभीकृत किया जा सकता है, और कहा कि ठीक है, तो आप चेतावनी बायपास कर सकते हैं और चीजों को स्रोत-कोड के भविष्य के पाठकों के लिए स्पष्ट कर दूं इस लिख कर:

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

Answer 2

समस्या 'isn टी $pattern - समस्या $element

एक त्वरित परीक्षण एक ही परिणाम का उत्पादन करेगा है:

use strict; 
use warnings; 

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