perl 获取当前脚本的目录

1. 获取方法

use File::Basename; print dirname(__FILE__);

2. 设置当前目录为lib：

use Cwd qw/abs_path/;
use File::Basename;

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