Argument einer sub pruefen (Allgemeines zu Perl)

[thread]6506[/thread]

Argument einer sub pruefen

frodus

2004-08-17 13:16

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Hi Leute,

ich habe ein Subroutine and die ich folgende arbumente
Uebergebe:

Code: (dl )

sub test {
    my $self = shift();
    my $hash_ref = shift();

...
}

Die hash_ref hat als Werte wieder eine Reference auf ein Array.
Wie kann ich ueberpruefen ob der User die Funktion auch mit
den richtigen Argumenten aufruft?

Dass ueberpruefen der ersten Reference ist einfach aber wie komme ich an die 2te?

/Frodus

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()
  }
}

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/

frodus

2004-08-17 15:14

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Danke funktioniert super!

View all threads created 2004-08-17 13:16.