Perl运行报错：main::getcwd重定义，如何指定使用Cwd模块的该子例程？

当Cwd和POSIX模块同时导入时，两者都会将getcwd子例程导出到main命名空间，从而触发Subroutine main::getcwd redefined的错误警告。要指定使用Cwd模块的getcwd，可以通过以下几种方式实现：

• 显式调用Cwd模块的getcwd（推荐）
  修改模块导入语句，阻止Cwd将getcwd导出到全局命名空间：

  use Cwd qw(); # 不导出任何子例程
  use POSIX;
  

  之后在代码中需要获取当前工作目录时，直接通过模块名调用：

  my $current_dir = Cwd::getcwd();
  

  这种方式最清晰，完全避免命名冲突，也无需抑制警告。

• 调整模块导入顺序并屏蔽警告
  如果希望继续直接使用getcwd()调用，可以将Cwd模块的导入语句放在POSIX之后，并屏蔽重定义警告：

  use POSIX;
  no warnings 'redefine';
  use Cwd qw(getcwd);
  

  这样Cwd的getcwd会覆盖POSIX导出的版本，同时消除警告提示。

• 仅保留Cwd模块的getcwd导出
  若不需要POSIX模块的其他子例程，可只导入Cwd的getcwd；若必须导入POSIX，也可以通过屏蔽警告确保使用Cwd的版本：

  no warnings 'redefine';
  use Cwd qw(getcwd);
  use POSIX;
  

内容的提问来源于stack exchange，提问作者Marcos Camargo