कौन सी गैर-खाली स्ट्रिंग/^ $/मैच करता है?

Question

एक पर्ल अतः answer में, एक पोस्टर रिक्त स्ट्रिंग मिलान करने के लिए इस कोड का प्रयोग किया:

$userword =~ /^$/; #start of string, followed immediately by end of string 

जो brian d foy टिप्पणी की करने के लिए:

आप वास्तव में यह नहीं कह सकते कि क्योंकि वह एक विशेष गैर से मेल खाएगी -खाली स्ट्रिंग।

प्रश्न: जो गैर रिक्त स्ट्रिंग इस के अनुरूप है? क्या यह एक स्ट्रिंग है जिसमें "\r" शामिल है?

Answer 1

के डॉक्स जाँच करें, क्यों नहीं हम करते हैं? उद्धरण perlre,

$: पंक्ति के अंत का मिलान करें (या अंत में न्यू लाइन से पहले)

को देखते हुए

\z: मैच केवल स्ट्रिंग के अंत में

इसका मतलब है कि /^$/ के बराबर है /^\n?\z/।

$ perl -E'$_ = ""; say /^$/ ||0, /^\n?\z/ ||0, /^\z/ ||0;' 
111 

$ perl -E'$_ = "\n"; say /^$/ ||0, /^\n?\z/ ||0, /^\z/ ||0;' 
110 

ध्यान दें कि /m परिवर्तन क्या ^ और $ मैच। किसी भी नई लाइन से पहले और स्ट्रिंग के अंत में /m, ^ किसी भी "लाइन" की शुरुआत में, और $ मैचों की शुरुआत में।

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /^/g' 
matched at 0 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /$/g' 
matched at 7 
matched at 8 

और/मी का उपयोग कर:

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /^/mg' 
matched at 0 
matched at 4 <-- new 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /$/mg' 
matched at 3 <-- new 
matched at 7 
matched at 8 

\A, \Z और \z नहीं कर रहे 'टी /m से प्रभावित:

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /\A/g' 
matched at 0 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /\z/g' 
matched at 8 

$ perl -E'$_ = "abc\ndef\n"; say "matched at $-[0]" while /\Z/g' 
matched at 7 
matched at 8 

Answer 2

use strict; 
use warnings; 

use Test::More; 

ok("\n" =~ /^$/); 
ok("\n" =~ /^\z/); 
ok("\n" =~ /^\A\z/); # Better as per brian d. foy's suggestion 

done_testing; 

आप परीक्षण करना चाहते हैं, तो एक स्ट्रिंग खाली है, /^\z/ का उपयोग करें या (जो मैं क्या पसंद करते हैं है) यदि $str की length शून्य है।

आउटपुट:

ok 1 
not ok 2 
not ok 3

Answer 3

regex /^$/ गैर रिक्त स्ट्रिंग "\n" मेल खाता है।

डिफ़ॉल्ट रूप से, पर्ल नियमित अभिव्यक्ति मिलान मानता है कि स्ट्रिंग में टेक्स्ट की एक "पंक्ति" है।

^ लाइन की शुरुआत से मेल खाता है; /m संशोधक की अनुपस्थिति में, यह स्ट्रिंग की शुरुआत के समान ही है।

$ लाइन के अंत या अंत में एक नई लाइन से पहले मेल खाता है (यही कारण है कि /^$/ गैर-खाली स्ट्रिंग "\n" से मेल खाता है)।

का हवाला देते हुए perldoc perlre:

डिफ़ॉल्ट रूप से, "^" चरित्र से मेल करने के तार का केवल शुरुआत है, "$" चरित्र केवल अंत की गारंटी है (या पहले अंत में न्यू लाइन), और पर्ल धारणा के साथ कुछ अनुकूलन करता है कि स्ट्रिंग में केवल एक पंक्ति है। एम्बेडेड न्यूलाइन "^" या "$" से मेल नहीं खाया जाएगा। हालांकि, आप एक मल्टी-लाइन बफर के रूप में स्ट्रिंग का इलाज करना चाहते हैं, जैसे कि "^" स्ट्रिंग में किसी भी की नई लाइन के बाद मेल खाएगा (सिवाय इसके कि यदि नई पंक्ति स्ट्रिंग में अंतिम वर्ण है) और " $ "किसी भी नई लाइन से पहले मैच होगा। की लागत पर थोड़ा अधिक ओवरहेड, आप पैटर्न मिलान ऑपरेटर पर/m संशोधक का उपयोग कर ऐसा कर सकते हैं।

Answer 4

स्क्रिप्ट:

my $str = "\n"; 

my $test1 = ($str =~ /^$/) ? 1 : 0; 
my $test2 = ($str =~ /\A\z/) ? 1 : 0; 

print "$test1, $test2\n"; 

आउटपुट:

1, 0