perl-在被require的文件里获取被require文件的路径,该怎么解决

perl-在被require的文件里获取被require文件的路径
假设在文件/pathA/A.pl里面，
require "/pathB/B.pl";

在文件 /pathB/B.pl 里有函数：
sub XXX {
}

如何在sub XXX里面获取文件 /pathB/B.pl的路径？

用FindBin等等得到的都是/pathA/A.pl的路径。

[解决办法]
在你写脚本的时候，路径的相对关系已经确定了吧，可以通过A.pl的路径得到B.pl的路径
如果是在@INC里的，可以试试

Perl code

use strict;use warnings;use Module::Locate qw/locate/;my $to_find = "Some::Module";print "Perl would use: ", scalar locate($to_find), "\n";