问在已经传递该哈希的子例程中将散列传递给子例程。
EN

Stack Overflow用户

提问于 2014-03-18 11:43:00

回答 1查看 68关注 0票数 0

我正在处理将散列传递给各个子程序的方法，我想知道如何将散列传递给子例程，然后将该子例程中的相同哈希传递给不同的子例程，以此类推。

例如，下面的代码工作正常。

use strict;
use warnings;

my %hash = ( 
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3',
    key4 => '', 
);      

print %hash, "\n"; 
check_it(\%hash);

sub check_it {
    my $params = shift; 

    foreach(keys %{$params}){        
        if($params->{$_}) {
            print "'$_' defined as '$params->{$_}'\n";
        }   
        else {
            print "'$_' not defined as '$params->{$_}'. Deleting it.\n"; 
            #delete $params->{$_};
            $params->{$_} = 'null';
        }     
    } 

    for ( my $i = 0 ; $i < 7 ; $i++ ) {
        print "looping\n";
        &check_tags_again(\%hash);
    }     
}   

sub check_tags_again {
    my $hash_now = shift;

    #check again...
    foreach(keys %{$hash_now}){
        print "An element of hash: ", $hash_now->{$_}, "\n";
        #if(defined $hash_now->{$_}){ delete $hash_now->{$_};}
    }
    &check_tags_thrice(\%hash);
}   

sub check_tags_thrice {
    my $hash_now = shift;

    #check again...
    foreach(keys %{$hash_now}){
        print "An element of hash: ", $hash_now->{$_}, "\n";
        #if(defined $hash_now->{$_}){ delete $hash_now->{$_};}
    }   
}   

print "final hash:", %hash, "\n";

但是，当我运行以下代码时：

use strict;
use warnings;
use Data::Dumper;

sub process_data {

    my $group_size = 10; 

    my %HoA = ( 
        flintstones => [ "fred",   "barney" ],
        jetsons     => [ "george", "jane", "elroy" ],
        simpsons    => [ "homer",  "marge", "bart" ],
    );      

    &delete_stuff( \%HoA, $group_size );
    print "New group:\n";
    print Dumper( \%HoA );
    undef %HoA;
}   

sub delete_stuff {
    my $HoARef     = shift;
    my $group_size = shift;

    print "group size in sub $group_size\n";

    for ( my $j = 0 ; $j < $group_size ; $j++ ) { 
        my $dlted = &delete_other_stuff( \%HoA, $j );
        print "deleted? '$dlted'\n";

        if ( $dlted == 0 ) { 
            &presence_check( \%HoA, $j );
        }   

        for ( my $i = 0 ; $i < $group_size ; $i++ ) { 
        }   
    }   
}   

sub delete_other_stuff {
    my $HoAref  = shift;
    my $Dex     = shift;
    return $deleted;
}   

sub presence_check {
    my $HoAreF = shift;
    my $DeX    = shift;
}

我得到：

 Global symbol "%HoA" requires explicit package name at x.pl line 32.
 Global symbol "%HoA" requires explicit package name at x.pl line 35.
 Execution of x.pl aborted due to compilation errors.

我很困惑，因为我认为它在做与第一个相同的事情，但是现在它声称%HoA从来没有初始化过。

perl

hash

perl-data-structures

回答 1

Stack Overflow用户

回答已采纳

发布于 2014-03-18 12:07:25

在delete_stuff中，你没有%HoA，你有$HoARef。如果所有的subs都期望一个对散列的引用，那么您可以只使用它：

for ( my $j = 0 ; $j < $group_size ; $j++ ) { 
    my $dlted = &delete_other_stuff( $HoARef, $j );
    print "deleted? '$dlted'\n";

    if ( $dlted == 0 ) { 
        &presence_check( $HoARef, $j );
    }
    ...
}