Perl : Regex (การซ้ำที่ตรงกัน)

สิ่งที่โค้ด Perl ของคุณบอกคือ "ภายในสตริง $num คุณจะพบสตริงอย่างน้อย 1 ตัวอักษรและสูงสุด 3 ตัวอักษรที่สร้างจากตัวเลขเท่านั้น" คำตอบคือใช่

สิ่งที่คุณต้องการคือ

print "$num \n" if $num =~ m/^\d{1,3}$/;

ซึ่งหมายความว่า "ภายในสตริง $num เริ่มต้นที่อักขระตัวแรกและไปยังอักขระตัวสุดท้ายจะมีสตริงที่มีความยาวอย่างน้อย 1 อักขระและยาวสูงสุด 3 อักขระที่สร้างจากตัวเลขเท่านั้น"

หากคุณกำลังพยายามค้นหาบางอย่างเช่นที่อยู่ IP regexp เพื่อให้ตรงกับที่อยู่ IP เป็นการสนทนาที่ดี เกี่ยวกับวิธีการทำเช่นนั้น

รหัสด้านล่างตรวจสอบที่อยู่ IP อย่างถูกต้อง การตรวจสอบความถูกต้องที่พิจารณามีดังต่อไปนี้ 1) หากความยาวของส่วนใดๆ ของที่อยู่ IP ที่คั่นด้วยทศนิยมมีมากกว่าหนึ่งหลัก ก็ไม่ควรเริ่มต้นด้วยศูนย์ 2) ที่อยู่ IP แรกที่คั่นด้วยทศนิยมไม่สามารถเป็นศูนย์ได้ 3) ส่วนใดส่วนหนึ่งของที่อยู่ IP ที่คั่นด้วยทศนิยมต้องไม่เกิน 255

ขอให้สมาชิกปรับแต่ง regex อย่างละเอียดเนื่องจากมันดูใหญ่เกินไปและสับสน

print "Enter the IP address : ";
$ip = <stdin>;
if($ip =~ /^([3-9]\d?|1\d?\d?|2([0-4]?\d?|5[0-5]|[6-9]?))(\.(0|[3-9]\d?|(1\d?\d?|2([0-4]?\d?|5[0-5]|[6-9]?)))){3}$/) {
    print "Correct\n";
}
else {
    print "Wrong\n";
}