Argument einer sub pruefen - #49343 (Allgemeines zu Perl)

renee

2004-08-17 13:30

User since
2003-08-04
14371 Artikel
ModeratorIn

Überprüfen, ob es ein HASH-ref ist:

Code: (dl )

print "Falscher Parameter\n" unless(ref($hash_ref) eq 'HASH');

Ob Das Hash auch nur Referenzen auf Arrays hat, müstest Du so prüfen:

Code: (dl )

foreach(keys(%{$hash_ref})){
  if(ref($hash_ref->{$_}) ne 'ARRAY'){
    print "Hashref enthält falsche Werte\n";
    last; # evtl auch exit()
  }
}