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

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

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