http://www.perlmonks.org?node_id=1220592


in reply to Match multiple number

Another similar solution:

$ perl -e '
for (0..1000) {
  my $n = int(rand(10000));
  print $n, "\n" if $n =~ /\d{0,}[05]\z/
}
'
__sample_output__
7495
8120
8340
9540
7370
4455
310
7540
35
7085
7235
5355
9190
6790
1360
820
1900
1945
1630
9895

[download]

Replies are listed 'Best First'.
Re^2: Match multiple number
by tobyink (Canon) on Aug 19, 2018 at 03:30 UTC
[reply]
      yeah, but it satisfies the OP's implied set of integer values given by x=x+5 | {0, 5, 10, 15, 20, 25, ...}
[reply]

        Yes, it matches all the valid inputs, but it also matches various invalid inputs.

        If all you care about is matching valid inputs and don't care about matching invalid ones, you can just do:

        if (1) {
   ...;
}

        [download]
        toby döt ink
[reply]
[d/l]

In Section Seekers of Perl Wisdom