将哈希从一个包传递到另一个包中的方法并在 Perl 中操作它

发布于 2024-12-05 14:09:24 字数 890 浏览 2 评论 0原文

我有两个包裹。一个包中有一个哈希值。我想将此哈希传递给另一个包中的方法，对其进行操作并查看前一个包中的结果。这是我的代码： {

package Statistical_Analysis;
use Moose;
our $data;
our $ref;
our $k;
our $v;
sub countUseCase
{
    my ($self, $value, $hash) = @_;
    print "Passed value: ".$value."\n";
    print "Hash Address: ".$hash."\n";
    $self->{ref} = $hash;
    $self->{%$ref}{'country'} = "something";
    #print "IP Address: ".$self->{data}."\n";
    #print "Hash Value: ".$self->{ref{'ip_count'}}."\n";
}

}

{
package Parse;
use Moose;
our %ip_address;
sub getFields
{
    our $stanalyze_obj = Statistical_Analysis->new();
       my $ref = \%ip_address;
       $stanalyze_obj->countUseCase($ref);
       dispHashMap();
}

sub dispHashMap
{
    print \%ip_address."\n";
    while ( my ($k,$v) = each %ip_address )
    {
     print "$k => $v\n";
    }

}

但我看不到哈希值的变化。有什么帮助吗？

原文

I have two packages. There is one hash in one package. I want to pass this hash to a method in another package, manipulate it and see the results in the previous package. Here's my code:
{

package Statistical_Analysis;
use Moose;
our $data;
our $ref;
our $k;
our $v;
sub countUseCase
{
    my ($self, $value, $hash) = @_;
    print "Passed value: ".$value."\n";
    print "Hash Address: ".$hash."\n";
    $self->{ref} = $hash;
    $self->{%$ref}{'country'} = "something";
    #print "IP Address: ".$self->{data}."\n";
    #print "Hash Value: ".$self->{ref{'ip_count'}}."\n";
}

}

{
package Parse;
use Moose;
our %ip_address;
sub getFields
{
    our $stanalyze_obj = Statistical_Analysis->new();
       my $ref = \%ip_address;
       $stanalyze_obj->countUseCase($ref);
       dispHashMap();
}

sub dispHashMap
{
    print \%ip_address."\n";
    while ( my ($k,$v) = each %ip_address )
    {
     print "$k => $v\n";
    }

}

But I cant see the changes in the hash. Any help?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

别在捏我脸啦 2024-12-12 14:09:24

你看不到任何变化，因为你从未改变它。因为它没有意义，我认为您打算在这样做时更改 $ip_address{country}

 $self->{%$ref}{'country'} = 'something';

如果是这样，那应该是

 $hash->{country} = 'something';

当然，$hash 存储在 < code>$self->{ref}，所以您也可以使用

 $self->{ref}->{country} = 'something';

可以缩写为

 $self->{ref}{country} = 'something';

PS 的 which ，这些 our 变量是怎么回事？您几乎不必使用我们的。 @ISA 和 @EXPORT_OK 是我能想到的唯一用途。所有这些都应该是我的。

PSS——实际上，这些几乎都不应该存在。声明你根本不使用的变量是怎么回事？这些声明之一是让你的错误变得不那么明显。

You don't see any change because you never change it. Since it makes no sense, I presume you meant to change the $ip_address{country} when you do

 $self->{%$ref}{'country'} = 'something';

If so, that should be

 $hash->{country} = 'something';

Of course, $hash is stored in $self->{ref}, so you could also use

 $self->{ref}->{country} = 'something';

which can be shortened to

 $self->{ref}{country} = 'something';

PS — What's with all the our variables? You should almost never have to use our. @ISA and @EXPORT_OK are about the only uses I can think of. All of those should be my.

PSS — Actually, almost none of those should exist at all. What's with declaring variables you don't even use? One of these declarations is making your error a lot less obvious.

回复收藏 0 原文