perl

Question

में दो (संभावित रूप से) अपरिष्कृत चर की तुलना करें मैं दो चरों की तुलना करने की कोशिश कर रहा हूं जिनमें आम तौर पर तार होते हैं। ये चर डेटाबेस से उत्पन्न होते हैं, $var1 एक डीबी से और $var2 दूसरे से। जब मैं उन्हें एक लूप में तुलना करता हूं तो मैं ne ऑपरेटर का उपयोग करता हूं। हालांकि ऐसे समय होते हैं जब मैं ये चर null या undef हैं। तुलना के रूप में निम्नानुसार किया जाता है:

foreach my $var1 (@$varlist) 
{ 
    if ($var1 ne $var2) 
    { 
    print "vars are not equal"; 
    } 
} 

मुद्दा यह है कि अगर $var1 या $var2undef तो कर रहे हैं मैं कोई त्रुटि मिलती है। हालांकि, मुझे तब मानों की तुलना करने में सक्षम होना चाहिए जैसे कि undef b/c मुझे उन्हें लिखना होगा। मैंने वैरिएबल को एक स्ट्रिंग 'न्यूल' में परिवर्तित करने पर विचार किया और फिर वापस लेकिन यह अक्षम लग रहा था।

इसे ठीक करने का कोई तरीका? धन्यवाद!

Answer 1

चेक वे परिभाषित कर रहे हैं, भी:

foreach my $var1 (@$varlist) 
    if (! defined $var1 || ! defined $var2 || $var1 ne $var2) 
     print "vars are not equal"; 

यह प्रिंट कि वे बराबर नहीं कर रहे हैं अगर दोनों अपरिभाषित है। यदि आप एक और व्यवहार चाहते हैं, तो बस if अभिव्यक्ति बदलें।

Answer 2

इस निर्धारित करने के लिए निर्धारित फ़ंक्शन का उपयोग करें:

http://perldoc.perl.org/functions/defined.html

Answer 3

अपरिभाषित मानों की तुलना करने में कोई त्रुटि नहीं है, यह केवल एक चेतावनी है। मैं इस तरह के मामलों में पर्ल के // ऑपरेटर (की आवश्यकता है> = v5.10) का उपयोग कर पसंद सुनिश्चित करने के लिए ऑपरेटरों परिभाषित कर रहे हैं:

if (($var1 // '') ne ($var2 // '')) { ... } 

उदाहरण के लिए, तुलना के दौरान रिक्त स्ट्रिंग के रूप में एक अपरिभाषित स्ट्रिंग व्यवहार करेगा।

चूंकि आप मुद्रित होने पर ऑपरेटरों को एक विशिष्ट मान रखना चाहते हैं (NULL एक संभावना थी), आप //= ऑपरेटर का उपयोग करने पर भी विचार कर सकते हैं। अगर वे अपरिभाषित हैं

if (($var1 //= 'NULL') ne ($var2 //= 'NULL')) { 
    print "$var1 and $var2 are not equal"; 
} 

'NULL' करने के लिए $var1 या $var2 का मान सेट, और फिर तुलना करते हैं।

Answer 4

ऐसा लगता है कि आप use warnings; का उपयोग करके सुरक्षित पर्ल का अभ्यास कर रहे हैं, लेकिन अब आप उस बिंदु पर आ सकते हैं जहां आप उन्हें चुनिंदा रूप से बंद कर देते हैं। ये चेतावनियां आपकी सुरक्षा के लिए हैं, हालांकि यदि आप जानते हैं कि आप संभावित रूप से अवांछित तारों की तुलना करने जा रहे हैं, तो उन्हें थोड़ी देर के लिए बंद कर दें (no कमांड संलग्न ब्लॉक के लिए स्थानीय है, इसलिए वे वापस चालू होते हैं)।

use strict; 
use warnings; 

foreach my $var1 (@$varlist) 
{ 
    no warnings 'uninitialized'; 
    if ($var1 ne $var2) 
    { 
    print "vars are not equal"; 
    } 
}