Thank you Joseph,
Your response along with Bruce's response (which I'll respond to
separately) I presume works.
My hopes of fitting this into a one liner are crushed! lol Nah, just
playing.
Thank you for taking the time to respond.
This certainly helps with my project.
~Paul
On Sun, Nov 8, 2020 at 6:32 PM Joseph Brenner <doom...@gmail.com> wrote:
> I think this kind of thing does what you're after:
>
> use Inline::Perl5;
> my $p5 = Inline::Perl5.new;
>
> my $p5pat = '\w+';
> $p5.run( 'sub chk { $_[0] =~ m/' ~ $p5pat ~ '/ }' );
> subset p5_words of Str where { $p5.call( "chk", $^a ) };
>
> my p5_words $a = "alpha";
> say $a; # alpha, perl5 word chars, so acceptable to subset
> my p5_words $b = "^^^^^"; # Type check failed in assignment to $b;
> expected str_p5 but got Str ("^^^^^")
> # Errors out because carets don't pass \w check
>
>
> It could probably be cleaned up a little more, but it works.
>
>
> On 11/5/20, Paul Procacci <pproca...@gmail.com> wrote:
> > https://github.com/niner/Inline-Perl5
> >
> > use Inline::Perl5;
> >
> > subset test of Str where EVAL "sub {@_[0] ~= m/\w+/}", :lang<Perl5>;
> >
> >
> > Question: Can you pass whatever {*} into eval for use in Inline::Perl5 a
> > la subset?
> > The above example is incomplete, I understand, however I'm looking to
> find
> > a method of constraining Str's w/ >perl5.8 RE's in subset's without it
> > getting too crazy.
> >
> > The RE's that come w/ raku proper are are much older version of RE and
> > cannot accomplish what I need.
> >
> > Thanks in Advance,
> > ~Paul
> >
> > --
> > __________________
> >
> > :(){ :|:& };:
> >
>
--
__________________
:(){ :|:& };:
