On 12/9/23 19:42, William Michels via perl6-users wrote:
On 12/9/23 17:44, Tom Browder wrote:
> Try: say so $=....
>
Would you give me a quick example?
Hi Todd!
In the Raku REPL (MoarVM 2023.05):
[0] > my $x="abc2def"; say $x ~~ / ^ <alnum> ** 7 $ /;
「abc2def」
alnum => 「a」
alnum => 「b」
alnum => 「c」
alnum => 「2」
alnum => 「d」
alnum => 「e」
alnum => 「f」
[0] > my $x="abc2def"; .so.put if $x ~~ / ^ <alnum> ** 7 $ /;
False
[0] > my $x="abc2def"; $x ~~ / ^ <alnum> ** 7 $ /.so;
True
[1] > my $x="abc2def"; ($x ~~ / ^ <alnum> ** 7 $ /).so;
True
[2] > my $x="abc2def"; Bool($x ~~ / ^ <alnum> ** 7 $ /);
True
[3] > my $x="abc2def"; Bool($x ~~ / ^ <alnum> ** 8 $ /);
False
[4] > my $x="abc2def"; Bool($x ~~ / ^ <alnum> ** 7 $ /).say;
True
[4] > my $x="abc2def"; Bool($x ~~ / ^ <alnum> ** 8 $ /).say;
False
[4] > my $x="abc2def"; Bool($x ~~ / ^ <[0..9] + [a..z]> ** 7 $ /).say;
True
[4] > my $x="abc2def"; Bool($x ~~ / ^ <[0..9] + [a..z]> ** 8 $ /).say;
False
[4] > my $x="abc2def"; Bool($x ~~ / ^ <+[0..9] + [a..z]> ** 8 $ /).say;
False
[4] > my $x="abc2def"; say so $x.match: / ^ <+[0..9] + [a..z]> ** 8 $ /;
False
[4] > my $x="abc2def"; say so $x.match: / ^ <+[0..9] + [a..z]> ** 7 $ /;
True
[4] >
HTH, Bill.
Awesome! Thank you!
:-) :-) :-)
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Computers are like air conditioners.
They malfunction when you open windows
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~