Thread Problem mit Hashes/ Hashreferenzen /Arrays (5 answers)
Opened by f0 at 2010-11-11 01:25

ich
 2010-11-11 02:56
#142629 #142629
User since
2003-09-19
120 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo,

du koenntest das z.b. so machen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

sub check_mount {
my ($must_mounted, $is_mounted, $ergebnis) = @_;

my %erg;
my @not_mounted;
        while ( my ($key, $value) = each(%$must_mounted) ) {

                if ( not exists $is_mounted->{$key}){
                        push(@not_mounted,$key);
                        $erg{'servity'}='critical'; 
                        $erg{'mounts'} = \@not_mounted;                  
                }
        };

        push(@{$ergebnis}, \%erg);

};


und dann folgendermassen aufrufen:
Code (perl): (dl )
1
2
3
4
5

my %ergebnis;
&check_mount(\%block_mounts,\%mounts, \%ergebnis);
&check_mount(\%block_mounts,\%mounts, \%ergebnis);
&check_mount(\%block_mounts,\%mounts, \%ergebnis);
# ...


Edit:
Du uebergibst dadurch die Referenz von (oder auch Zeiger auf) %ergebnis.
Last edited: 2010-11-11 02:57:41 +0100 (CET)
If you tell the truth you don't have to remember anything.
-- Mark Twain

View full thread Problem mit Hashes/ Hashreferenzen /Arrays