Problem mit Hashes/ Hashreferenzen /Arrays (gelöst) (Allgemeines zu Perl)

[thread]15622[/thread]

Problem mit Hashes/ Hashreferenzen /Arrays [gelöst]

Leser: 18

Articles: hide open all | hide show old branches

+6 replies

2010-11-11 01:25

User since
2010-03-08
6 Artikel
BenutzerIn
[default_avatar]

Nabend,

ich habe ein kleines Problem mit Hashes / Hashreferenzen / Arrays:

Ich habe eine Subroutine die den Inhalt von 2 Hashes miteinander Vergleicht und bei einer Ungeleichheit einige Werte in ein Array Schreibt, was dann als Hash zurückgegeben wird (Kurz: ich vergleiche auf Unix Systemen die fstab und mount)

Ich habe folgenden Code

Code: (dl )

sub check_mount(){

my $must_mounted = shift(@_);
my $is_mounted = shift(@_);
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;                  
                }
        };

        return %erg;

};

Aufgerufen wird er wie folgt:

Code: (dl )

%ergebnis = &check_mount(\%block_mounts,\%mounts);

Der inhalt von %block_mounts und %mounts ist so aufgebaut;

Code: (dl )

$VAR{
/ => /root
... => ...
}

Dies funktioniert wunderbar.

Ich muss die Subroutine allerdings mehrmals aufrufen, und %ergebnis enthält immer nur das Ergebnis des letzten Aufrufes, ist auch Logisch ich überschreibe es ja, nur wie bekomme ich es hin das alle aufrufe gespeichert werden (quasi der push wie bei nem array)? Ich steh da irgentwie total auf dem Schlauch.

Perl 5.8.8 (CentOS 5.5)

Gruß f0
Last edited: 2010-11-11 01:58:20 +0100 (CET)

+3 replies

ich

2010-11-11 02:56

User since
2003-09-19
120 Artikel
BenutzerIn

Hallo,

du koenntest das z.b. so machen:

Code (perl): (dl )

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 )

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

+2 replies
f0

2010-11-11 10:12

User since
2010-03-08
6 Artikel
BenutzerIn

Hallo,

Da bekomme ich den Fehler das es keine Array Referenz ist, ist ja auch eine Hash Referenz.
Trotzdem Danke

Gruß f0
- topeg
  
  2010-11-11 19:14
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Er hat einen Tippfehler drin:
  
  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); # ...

+2 replies

renee

2010-11-11 08:21

User since
2003-08-04
14371 Artikel
ModeratorIn

Du könntest auch alle Ergebnisse in einem Array speichern...

Code (perl): (dl )

my @all_results;

for ( ... ) { # irgend eine schleife
    my %result = check_mount(...);
    push @all_results, \%result;
}

print Dumper \@all_results;

Übrigens lässt man die "()" bei der Deklaration der Subroutine weg - solange man keine Prototypen braucht. Also einfach

Code (perl): (dl )

1
2
3

sub check_mount {
   ...
}

Die Prototypen umgehst Du mit dem "&" beim Subroutinenaufruf sowieso.

Prototypen sind in Perl ein eigenes Thema, das man in 99% der Fälle auch gar nicht braucht.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

2010-11-11 10:16

User since
2010-03-08
6 Artikel
BenutzerIn
[default_avatar]

Ich habs jetzt anders gelöst, warum ich da Gestern nicht drauf grekommen bin... ich weis ja wie oft ich die Subroutine aufrufe..

Code: (dl )

sub check_mount{

my ($must_mounted ,my $is_mounted) = @_;
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;                  
                }
        };

        return \%erg;

};

Code: (dl )

1
2

%ergebnis{A} = &check_mount(\%block_mounts,\%mounts);
%ergebnis{B} = &check_mount(\%nfs_mounts,\%mounts);

Gruß f0

View all threads created 2010-11-11 01:25.