diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2022-10-03 08:02:40 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2022-10-03 08:02:40 +0000 |
| commit | 28f612f47a1b95b37cdea25c1a2c081b63696f55 (patch) | |
| tree | 1893899504db8651629313ccd7fa4d318a8e08fc | |
| parent | 57f2a104a5c3961d3343ed09f28c622690fcc0b6 (diff) | |
| download | perlweeklychallenge-club-28f612f47a1b95b37cdea25c1a2c081b63696f55.tar.gz perlweeklychallenge-club-28f612f47a1b95b37cdea25c1a2c081b63696f55.tar.bz2 perlweeklychallenge-club-28f612f47a1b95b37cdea25c1a2c081b63696f55.zip | |
Ignore case in regexp
| -rwxr-xr-x | challenge-185/perlboy1967/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-185/perlboy1967/perl/ch-2.pl b/challenge-185/perlboy1967/perl/ch-2.pl index e972e05120..d5cca9c7ff 100755 --- a/challenge-185/perlboy1967/perl/ch-2.pl +++ b/challenge-185/perlboy1967/perl/ch-2.pl @@ -27,7 +27,7 @@ sub maskcode { state $re = '([^0-9a-z]*)([0-9a-z])' x 4; my @r; for (@_) { - push(@r,s/^$re/$1x$3x$5x$7x/or); + push(@r,s/(?i)^$re/$1x$3x$5x$7x/or); } @r; } |