Re^2: 'switch' and 'smartmatch' features deprecated in 5.38

I guess for sheer conciseness this would work:

for ( keys %opts ) {
    /h/ ? HELP_MESSAGE() :
    /v/ ? ++$verbose :
    /f/ ? ++$force :
    /t/ ? $table = $opts{$_} :
    die "*** BUG: no handler for -$_.\n";
}
[download]

Comment on Re^2: 'switch' and 'smartmatch' features deprecated in 5.38 Download Code

Replies are listed 'Best First'.
Re^3: 'switch' and 'smartmatch' features deprecated in 5.38 by swl (Prior) on Jun 28, 2023 at 01:53 UTC
Although one should first check the keys are all single letter for this case, otherwise one will get matches for words like `haft`, `vatful` and `thrive`.	[reply] [d/l] [select]
Re^4: 'switch' and 'smartmatch' features deprecated in 5.38 by ibm1620 (Hermit) on Jun 28, 2023 at 18:59 UTC
%opts was populated by Getopt::Std, so the keys are guaranteed to be one character.	[reply]