You could use User Defined Character Properties (example).
Update:
sub IsConsonant () { "42 44\n46 48\n4A 4E\n50 54\n56 58\n5A\n62 64\n" ."66 68\n6A 6E\n70 74\n76 78\n7A\n" } sub IsVowel () { "41\n45\n49\n4F\n55\n59\n61\n65\n69\n6F\n75\n79\n" } print "CVC word found : $1\n" if /\b(\p{IsConsonant}\p{IsVowel}\p{IsConsonant})\b/;
Update 2: Code you can use to generate sets like the above:
use warnings; use strict; use Data::Dump; use Set::IntSpan; my @chars = grep {!/^[aeiouy]$/i} 'a'..'z','A'..'Z'; dd join '', map { no warnings 'redundant'; sprintf $$_[0]==$$_[1] ? "%X\n" : "%X %X\n", @$_ } Set::IntSpan->new( map {ord} @chars )->spans; __END__ "42 44\n46 48\n4A 4E\n50 54\n56 58\n5A\n62 64\n66 68\n6A 6E\n70 74\n76 + 78\n7A\n"
In reply to Re: User name character classes (updated)
by haukex
in thread User name character classes
by Zenzizenzizenzic
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |