perlで連続する同じ文字列を探す方法

同一文字が3回以上連続する場合

#!/usr/bin/perl
use strict;
use warnings;
my $test = 'xyz123aaa';
#(.)は任意の1文字
#\1は正規表現内でマッチした文字 この場合任意の1文字
#{2,}2回以上連続した場合
if ($test =~ /(.)\1{2,}/){
print "$test\n";
}

perlって便利

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です