根据p6doc 5to6-perlfunc
:
文件
替换为与
__FILE__
略有不同的$?FILE
它始终是绝对路径,而不是 Perl 中的相对路径 5例。
根据p6doc CallFrame
没有参数,
callframe
将为您提供框架信息 呼叫callframe
的线路。文件和行注释将是 与$?FILE
和$?LINE
中的相同.
但是当我对此进行测试时,file
属性给出了一个相对路径名:
/p.p6:
use v6;
use Data::Dump::Tree;
use lib '.';
use MyModule;
say 'Main script: package path name : ', $?FILE;
say 'Main script: $*PROGRAM-NAME : ', $*PROGRAM-NAME;
MyModule::func();
./MyModule.pm6:
unit module MyModule;
our sub func() {
say "func: This package path name : ", $?FILE;
my $frame = callframe 1;
say "func: Calling package's file name: ", $frame.file;
}
输出:
Main script: package path name : /home/hakon/test/perl6/./p.p6
Main script: $*PROGRAM-NAME : ./p.p6
func: This package path name : /home/hakon/test/perl6/MyModule.pm6 (MyModule)
func: Calling package's file name: ./p.p6
如何获取调用方编译单元的绝对路径名?
你看过 IO::P ath 的绝对方法吗?
say "func: Calling package's file name: ", $frame.file.IO.absolute;