महीने इनपुट को सत्यापित करने के लिए मैं नियमित अभिव्यक्ति का उपयोग कैसे कर सकता हूं?

Question

मैं इस उदाहरण की स्थापना कर रहा हूँ पर्ल टुकड़ा एक तारीख में महीने के लिए मान्य करने के लिए:

कुछ परिदृश्य मैं स्वीकार करना चाहते हैं:

एम.एम. एम

#!/usr/bin/perl 
use strict; 
use warnings; 

my $pattern; 
my $month = "(0[1-9]|1[012])"; 
my $day = "(0[1-9]|[12]\d|3[01])"; 

system("cls"); 

do { 

    print "Enter in a month: "; 
    chomp($pattern = <STDIN>); 

    # We only want to print if the pattern matches 
    print "Pattern matches\n" if ($pattern =~ /$month/); 


} while ($pattern ne "Q"); 

जब मैं इस चलाने के लिए, यह सही ढंग से 01-12 से फिल्टर लेकिन जब मैं करने के लिए regex बदलने के लिए:

$month = "(0?[1-9]|1[012])"; 

तो regex की अनुमति देता है 13, 14, आदि ... क्या giv es?

Answer 1

तुम सच में regex का उपयोग करना चाहते हैं, तो आप डाल करने के लिए^और $, जैसे

"^(0?[1-9]|1[012])$"

यह 13, 14 से मेल नहीं खाएगी जरूरत है ....

Answer 2

आपको संख्यात्मक सीमा सत्यापन करने के लिए नियमित अभिव्यक्ति का उपयोग नहीं करना चाहिए। नियमित अभिव्यक्ति आप चाहते है:

/^(\d+)$/ 

फिर,

if ($1 >= 1 && $1 <= 12) { 
    # valid month 
} 

यह बहुत आसान एक सांख्यिक श्रेणी मान्य करने के लिए किसी भी नियमित अभिव्यक्ति से पढ़ने के लिए है।

एक तरफ के रूप में, पर्ल एक मिलान अभिव्यक्ति के लक्ष्य के भीतर खोज द्वारा नियमित अभिव्यक्तियों का मूल्यांकन करता है। तो: एक 0 के लिए

/(0[1-9]|1[012])/ 

खोजें 1 से 9 के बाद, या एक 1 0, 1, या 2. इसके बाद उदाहरण, और कई अन्य नंबरों के लिए "202" से मेल खाएगा। एक वैकल्पिक 0 1 से 9 तक के लिए

/(0?[1-9]|1[012])/ 

खोजें, या एक 1 0 द्वारा पीछा किया, 1 या 2. तो "13" यहां से मेल खाता है, क्योंकि यह एक 1 शामिल हैं, की पहली छमाही मिलान: दूसरी ओर रेगेक्स अपने रेगुलर एक्सप्रेशन आपकी अपेक्षा के अनुसार काम करते हैं

/^(0?[1-9]|1[012])$/ 

^ और $ लंगर शुरू और स्ट्रिंग के अंत करने के लिए खोज में क्रमश: बनाने के लिए,।

Answer 3

आप संकेत देने के लिए - महीने के नंबर "120" भी अपने संस्करण में से मेल खाता है :-)

बदलें:

my $month = "(0[1-9]|1[012])"; 

my $month = /^(0[1-9]|1[012])$/; 

और फिर इसे

के साथ और अधिक खेलने

Answer 4

यहां एक तरीका है

while(1){ 
    print "Enter in a month: "; 
    $pattern = <STDIN>; 
    chomp($pattern); 
    if ($pattern =~ /^(Q|q)$/){last;} 
    if ($pattern =~ /^[0-9]$/ || $pattern =~ /^[0-9][12]$/) { 
     print "Pattern matches\n"; 
    }else{ 
     print "try again\n"; 
    } 
} 

उत्पादन

$ perl perl.pl 
Enter in a month: 01 
Pattern matches 
Enter in a month: 000 
try again 
Enter in a month: 12 
Pattern matches 
Enter in a month: 00 
try again 
Enter in a month: 02 
Pattern matches 
Enter in a month: 13 
try again 
Enter in a month: 

Answer 5

रेगुलर एक्सप्रेशन का उपयोग न करें।

पर्ल में संदर्भ के आधार पर स्वचालित रूप से संख्या या स्ट्रिंग के रूप में मूल्यांकन करने की क्षमता है। 01-09 संख्यात्मक संदर्भ में 1-9 का मूल्यांकन करेगा। तो, आप बस एक मूल्य के लिए जाँच कर सकते हैं:

print "Enter in a month: "; 
chomp($pattern = <STDIN>); 
# We only want to print if the pattern matches 
print "Pattern matches\n" if ($pattern < 13 && $pattern > 0); 

Answer 6

[^d>12|d<0] OR ^[d>12|d<0] 

Answer 7

(0 [1-9] | 1 [012])

कोष्ठक रहे हैं ताकि आप यह एक और ब्लॉक के अंदर के लिए उपयोग कर सकते हैं, उदाहरण के एक पूरे yyyy-MM-DD दिनांक प्रारूप के लिए मिलान करता है, तो

स्रोत: http://www.regular-expressions.info/dates.html

Answer 8

"^(1[012]|0?[1-9])$" बेहतर होगा क्योंकि नियमित अभिव्यक्ति asse है पहले एक पहले ssed। मान लें कि आप '12' से मेल खाना चाहते हैं और आप "^(0?[1-9]|1[012])$" लिखते हैं, फिर '1' चुना जाएगा क्योंकि 0?[1-9] पहले लिया जाता है।

Answer 9

month/year परीक्षण करने के लिए:

^(0?[1-9]|1[012])\/([2-9][0-9)]{3})$