如何唯一标识对函数的所有调用？

Question

我知道 caller 会给我文件名并且调用函数的行号，但如何获取字符或字节偏移量？如果我必须降到 XS 也没关系（无论如何，该函数最终可能会变成 XS）。

我想做的是唯一地标识对函数的所有调用，因此，如果有比源中的位置更好的方法，我愿意接受其他路线。

基本目的是创建一个可以安全地迭代相同哈希的 each 函数。这是一个纯 Perl 版本，与我正在考虑的类似：

#!/usr/bin/perl

use 5.012;
use warnings;
use Scalar::Util qw/refaddr/;

sub safe_each(\%) {
    my $h    = shift;
    my $key  = join "/", (caller)[1,2], refaddr $h;
    state %iter;

    unless (exists $iter{$key}) {
        $iter{$key} = [ keys %$h ];
    }

    unless (@{$iter{$key}}) {
        delete $iter{$key};
        return;
    }

    my $cur = shift @{$iter{$key}};

    return wantarray ? ($cur, $h->{$cur}) : $cur;
}

my %h = (a => 1, b => 2);
while (my ($k, $v) = safe_each %h) {
    say "$k => $v";
    while (my ($k, $v) = safe_each %h) {
        say "\t$k => $v";
    }
}

Answer 1

Perl 调试器将其需要的源文件的所有行加载到条目下的主符号表中。

@::{"_<$path_to_file"}

这样，当您到达文件 FILE 中行 LINE 处的断点时，调试器可以显示您将要执行的代码行：

$::{"_<FILE"}[LINE]

但您也可以使用此信息来计算源文件中的当前字符偏移量。

sub _get_offset_into_file {
    my ($file,$line) = @_;
    my *teh_codez = @::{"_<$file"};

    my $offset = 0;
    # the debugger spoofs line $teh_codez[0], so don't include it in offset calc
    $offset += length $_ for @teh_codez[1 .. $line-1];
    return $offset
}

您可以在调试器下运行代码，或者模拟调试器的功能并自己将文件加载到内存中（这样您就不必使用相同的“_<”+文件名约定，甚至根本不需要使用符号表） ）。

抱歉，如果这是一个与您所问的问题完全不同的问题的答案。