末尾に一致
$を使うと末尾に一致しているかどうかを調べることができます。
my @NUM = qw(one two three four five six seven eight nine ten);
# eで終わっている数を表示する
foreach my $word (@NUM) {
print $word, "\n" if $word =~ /e$/;
}
$を使うと末尾に一致しているかどうかを調べることができます。
my @NUM = qw(one two three four five six seven eight nine ten);
# eで終わっている数を表示する
foreach my $word (@NUM) {
print $word, "\n" if $word =~ /e$/;
}