আপনার দরকার রেজিেক্সটি /(.)\1{9,}/।
পরীক্ষা:
use warnings;
use strict;
my $regex = qr/(.)\1{9,}/;
print "NO" if "abcdefghijklmno" =~ $regex;
print "YES" if "------------------------" =~ $regex;
print "YES" if "========================" =~ $regex;
এখানে \1বলা হয় একটি backreferences। এটি .বন্ধনীগুলির মধ্যে বিন্দু দ্বারা কী কী ধরা পড়ে তা উল্লেখ করে (.)এবং তারপরে {9,}অনুরূপ নয় বা তার বেশি চরিত্রের জন্য জিজ্ঞাসা করে। সুতরাং এটি কোনও একক চরিত্রের দশ বা ততোধিকের সাথে মেলে।
যদিও উপরের পরীক্ষার স্ক্রিপ্ট পার্লে রয়েছে, এটি খুব স্ট্যান্ডার্ড রেজেক্স সিনট্যাক্স এবং কোনও ভাষায় কাজ করা উচিত। কিছু ভেরিয়েন্টে আপনাকে আরও ব্যাকস্ল্যাশ ব্যবহার করতে হবে, যেমন ইমাস আপনাকে \(.\)\1\{9,\}এখানে লিখতে বাধ্য করবে ।
যদি একটি সম্পূর্ণ স্ট্রিং 9 বা ততোধিক অভিন্ন অক্ষর সমন্বিত থাকে তবে প্যাটার্নটির চারপাশে অ্যাঙ্কর যুক্ত করুন:
my $regex = qr/^(.)\1{9,}$/;