perl - 在 Perl 5 中获取 switch/case 行为

Question

在 Perl 5 中是否有一种巧妙的方式来制作 case 或 switch 语句？在我看来，他们应该包括一个版本 6 的开关..

我需要在脚本中使用这种控制结构，而且我听说您可以导入“开关模块”。但是如何在没有导入的情况下实现它以最大限度地减少依赖关系并获得可移植性？

Answer 1

Programming Perl 中的建议是:

for ($string) {
    /abc/ and do {$abc    = 1; last;};
    /def/ and do {$def    = 1; last;};
    /xyz/ and do {$xyz    = 1; last;};
    $nothing = 1;
}