求助,用perl脚本怎样获取当前目录的全路径信息

2025-05-17 23:35:49
推荐回答(1个)
回答(1):

  1. 获取方法
  use File::Basename;
  print dirname(__FILE__);  

  2. 设置当前目录为lib:
  use Cwd qw/abs_path/;
use File::Basename;

  use lib abs_path(dirname(__FILE__)) . '/lib';