【中古】 初めてのPerl /ランダル・L.シュワルツ(著者),トムフェニックス(著者),近藤嘉雪(訳者) 【中古】afb
- ジャンル: 本・雑誌・コミック > PC・システム開発 > インターネット・WEBデザイン > Perl
- ショップ: ブックオフオンライン楽天市場店
- 価格: 198円
同一文字が3回以上連続する場合
#!/usr/bin/perl use strict; use warnings; my $test = 'xyz123aaa'; #(.)は任意の1文字 #\1は正規表現内でマッチした文字 この場合任意の1文字 #{2,}2回以上連続した場合 if ($test =~ /(.)\1{2,}/){ print "$test\n"; }
perlって便利