Hello fionbarr,
When I use 'given/when' I get the message 'given is experimental' and the program will not compile.
Are you using a very old version of Perl? According to perlexperiment, the smartmatch feature was introduced in Perl 5.10.0, so unless your version is older than that, the program should compile OK — but emit warnings — as long as you remember to use feature 'switch':
0:33 >perl -we "use feature 'switch'; my $c = 42; given ($c) { when ( +$_ < 50) { print 'Yes!' } }" given is experimental at -e line 1. when is experimental at -e line 1. Yes! 0:33 >
The warnings can be turned off with this pragma:
no warnings 'experimental::smartmatch';
But if you’re going to use when, you should still replace the topicaliser given with its more prosaic alternative for, as explained by brian_d_foy in his article “Use for() instead of given().”
However, even the use of when is not recommended for production code. For other switch options, begin with How-do-I-create-a-switch-or-case-statement of perlfaq7. And if a dispatch table doesn’t meet your particular needs, what’s wrong with if/elsif/.../else, anyway? :-)
Hope that helps,
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re: switch statement
by Athanasius
in thread switch statement
by fionbarr
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |