Skip to content

Instantly share code, notes, and snippets.

@karupanerura

karupanerura/perl530-subpattern.pl

Last active June 20, 2019 11:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save karupanerura/cf410325872c9457fe4861fe63517cac to your computer and use it in GitHub Desktop.
Save karupanerura/cf410325872c9457fe4861fe63517cac to your computer and use it in GitHub Desktop.
Download ZIP
Raw
perl530-subpattern.pl
use strict;
use warnings;
use utf8;
use feature qw/say/;
no warnings qw/experimental::uniprop_wildcards/;
say "5" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
say "５" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
say "五" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
say "６" =~ m!\p{nv= /(?x) \A [0-5] \z /}! ? "match!" : "mismatch!";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment