即使已安装也无法找到 Switch.pm

Question 1

Switch模块已弃用。请参阅：perldoc

转变

Switch 有缺陷，应避免使用。您可能会发现 Perl 的新 given/when 功能是一个合适的替代品。有关更多信息，请参阅 perlsyn 中的 Switch 语句。

改用：

use feature qw(switch);

given($var){
  when(1) { print 'Number one'; }
  when(2) { print 'Number two'; }
  default { print 'Everything else' }
}

Answer

Switch模块已弃用。请参阅：perldoc

转变

Switch 有缺陷，应避免使用。您可能会发现 Perl 的新 given/when 功能是一个合适的替代品。有关更多信息，请参阅 perlsyn 中的 Switch 语句。

改用：

use feature qw(switch);

given($var){
  when(1) { print 'Number one'; }
  when(2) { print 'Number two'; }
  default { print 'Everything else' }
}

Question 2

由于您的 perl 版本似乎较旧，并且您需要 Switch，因此您可以使用强制重新安装cpan -f Switch。但我认为您还有另一个问题，Switch.pm 不在您的 @INC 中。假设您locate -i switch.pm在 dir 中找到它/home/libs，请将此行添加到脚本顶部：

use lib '/home/libs';

Answer

由于您的 perl 版本似乎较旧，并且您需要 Switch，因此您可以使用强制重新安装cpan -f Switch。但我认为您还有另一个问题，Switch.pm 不在您的 @INC 中。假设您locate -i switch.pm在 dir 中找到它/home/libs，请将此行添加到脚本顶部：

use lib '/home/libs';

即使已安装也无法找到 Switch.pm

答案1

答案2

相关内容