プログラミング覚書 Perl-018
量指定子
----------------------------------------------------------------------
my @words = ( '10', '1111', '999', '9876', '12345' );
foreach my $word (@words){
if( $word =~ m/^\d{4}$/ ){ # 4桁の数字にマッチ
print "$word\n";
}
}
----------------------------------------------------------------------
- 関連記事
-