末尾に一致
$を使うと末尾に一致しているかどうかを調べることができます。
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$/; }