知道一个字符串ARRAY(0x9608708)，能否得到它指定的地址的值呢？

toniz

如果用XS，如何将这个地址传到C函数里面呢？

yybmsrs

唉  下午看那个数组引用的帖子时，也想到了这个问题，当时还想用eval看下。。。

关注

Osment

关注之。。
这个我做不到滴。

engrol

xs里面有标准的做法。

py

回复 1# toniz


我想先问个问题，ARRAY(0x960870，这是个地址吗？（我觉得是）如果是，那这个地址里是一个数组的引用。
如果你说知道这个地址，想看地址里的值，那就Dumper一下就能看到。

1. my @array = (1,2,3);
   
2. my $ref = \@array;
   
3. print $ref;
   
4. print Dumper($ref);

复制代码

如果你想指定一块内存地址，而你确信知道这块地址里存的是一个数组的引用。
那在XS里可以用SvRV宏dereference，然后再转成AV*（数组指针）然后用av_fetch拿数组的值。

1. avref = (AV*)SvRV(svp);

复制代码

其中svp就是地址，这里说的地址假设是IV类型。

但我觉得这个需求很奇怪，如果你都知道一个变量是数组的引用了，那就直接Dumper就可以看到这个变量的值了。像你说的，你知道“字符串ARRAY(0x960870”，我觉得就挺奇怪的，你是怎么知道的这个字符串？还是应该有对应的变量吧。

toniz

回复  toniz


我想先问个问题，ARRAY(0x960870，这是个地址吗？（我觉得是）如果是，那这个地址里是 ...
py 发表于 2010-05-28 08:25

    呵呵  先谢谢PY和各位同学先。


其实是这样的  昨天看到一帖子  有个代码如下：

1. @s=qw(1 1 1 1 1 1 1);
   
2. $a=\@s;
   
3. $b="$a";#引号将reference字符串化了，失去了引用的功能
   
4. print $a,"\n";
   
5. print $b,"\n";#虽然print的结果和$a一样，但没有引用功能。
   
6. print @{$a},"\n";
   
7. print @{$b},"\n";#结果为空。

复制代码

因为加了个双引号，这个时候，其实$b的引用被字符化了。这时候我就在想，能不能$b这个字符串，得到对应的这个地址内容呢。

climby

回复 6# toniz


    我尝试了一下，代码如下：

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use Data::Dumper;
   
5. 
   
6. my @var = ( 'a', 'b', 'c' );
   
7. 
   
8. my $str = Dumper( \@var );
   
9. 
   
10. print "reference to str:\n$str\n";
    
11. 
    
12. my $str2ref = eval($str);
    
13. 
    
14. print "string to reference:\n@{$str2ref}\n";
    
15. 
    

复制代码

运行结果：

1. 
   
2. reference to str:
   
3. $VAR1 = [
   
4.           'a',
   
5.           'b',
   
6.           'c'
   
7.         ];
   
8. 
   
9. string to reference:
   
10. a b c
    

复制代码

nuclearxin

ARRAY(0x960870
后面的数字 是什么 那里有官方解释呢？

toniz

我的理解是地址  然后前面的是类型

toniz

回复 7# climby


   试下这个。

1. 
   
2. use Data::Dumper;
   
3. my @var = ( 'a', 'b', 'c' );
   
4. my $str =  \@var ;
   
5. print Dumper $str;
   
6. my $str2ref = "$str";
   
7. print "string to reference:\n@{$str2ref}\n";

复制代码

主要是 $str2ref = "$str";这里