This works too:
my $x = "9.0v1"; die "Horribly" if $x =~ /[\p{L}]+/;
Art
On Thu, Aug 2, 2018 at 8:18 AM Timo Paulssen <t...@wakelift.de> wrote:
> Is this what you want?
>
> perl6 -e 'say "12345" ~~ /^<+alnum -alpha>+$/'
> ｢12345｣
>
> perl6 -e 'say "123a45" ~~ /^<+alnum -alpha>+$/'
> Nil
>
> HTH
> - Timo
>
--
==================================
Arthur Ramos Jr.
207 Wisner Avenue
Middletown, NY 10940
==================================
"Don't dig in against Bob Gibson, he'll knock you down. He'd knock down his
own grandmother if she dared to challenge him. Don't stare at him, don't
smile at him, don't talk to him. He doesn't like it. If you happen to hit a
home run, don't run too slow, don't run too fast. If you happen to want to
celebrate, get in the tunnel first. And if he hits you, don't charge the
mound, because he's a Gold Glove boxer." ~ Hank Aaron's advice to Dusty
Baker
