有没有办法在运行时获取当前（当前未执行）文件的目录？

作者: 晴天3
发布时间: 2024-04-18 06:46:16 (1天前)
转自：

3 条回复

0#
回复此人
永远的记忆 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果你已经 <code> use </code> '或者 <code> require </code> 一个模块，文件的位置在 <code> %INC </code> 。 </p> <pre> <code> $ perl -MJSON -E 'say $INC{"JSON.pm"}' /opt/share/perl5/site_perl/5.16/JSON.pm </code> </pre> </DIV>

编辑
1#
回复此人
记忆短浅♡思念不变 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> <code> __FILE__ </code> 返回用于检索正在执行的文件的路径。这意味着您可以使用以下内容： </p> <pre> <code> use File::Basename qw( dirname ); dirname(__FILE__) </code> </pre> <P> 如果使用符号链接加载文件，那将失败，因此通常首先想要解析符号链接。 </p> <pre> <code> use Cwd qw( abs_path ); use File::Basename qw( dirname ); dirname(abs_path(__FILE__)) </code> </pre> <P> 这对于脚本比对模块更重要，因为用于加载模块的符号链接的几率非常低。 </p> <P> 警告：如果自模块加载后CWD发生更改，这些可能会失败。 </p> </DIV>

编辑

登录后才能参与评论