読者です 読者をやめる 読者になる 読者になる

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

perl IT

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

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

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

perlって便利