Using smartmatch with split function

[gurpreetsingh13]

Hello monks,
Here is again a simple one. But couldn't find any answer in any tags.
What I want is just to get out an array from split function and apply smartmatch operator over it.
My major purpose is to do the work with fewer and fewer variables within the code, that is why I am interested in this.
This is just an example to get clear picture.
Now this code works fine.

perl -e 'use v5.14;$a=3456; my @all=split (//,$a);print "Yes" if 3 ~~ 
+@all;'

But this fails.

perl -e 'use v5.14;$a=3456; print "Yes" if 3 ~~ split (//,$a);'

I want to eliminate that @all array there. It might be possible using 'grep' or 'any' or 'regex' or any of those List utility type modules. But is there any way I can simply impose a list context on split function.
The doc of smartmatch says that smartmatch operator looks at the RHS to see if that is an array and then uses grep.

Any ARRAY smartmatch each ARRAY element[ 3] like: grep { Any ~~ $_ } ARRAY

[Athanasius]

Imposing list context on the split function won’t help, because the smartmatch operator infers the required behaviour only when it finds the righthand side to contain an array, not a list. So you can do this:

17:49 >perl -we "use v5.14; $a = 3456; print 'Yes' if 3 ~~ @{[split(//
+, $a)]};"
Smartmatch is experimental at -e line 1.
Yes
17:49 >

which creates an anonymous array reference from the output of the split and then immediately dereferences it back to an array.

Whether that is really an improvement over using an explicit array is another question...

Hope that helps,

[trizen]

The smartmatch operator takes an array reference as argument:

% perl -MO=Deparse -e '1 ~~ @{[1,2]}'
Smartmatch is experimental at -e line 1.
1 ~~ \@{[1, 2];};
-e syntax OK

simplifying the code to: 3 ~~ [split //, $a];

[gurpreetsingh13]

Thanks. Worked perfectly.

[boftx]

Given that smart match might be going away (or undergo extensive change) you might want to see this node.