Ein Kollege fragte mich heute, wie man in Perl nochmal Parameter an eine Funktion \u00fcbergibt.<\/p>\n
Das ist ja im Prinzip ganz einfach. Eine Funktion in Perl erh\u00e4lt als \u00dcbergabeparameter eine einfache Liste mit Namen @_<\/strong>. Aber damit f\u00e4ngt es dann erst an.<\/p>\n Nehmen wir mal an, wir haben eine einfache Funktion mit zwei Parametern:<\/p>\n Hier wird die Liste @_<\/strong> einer Liste mit gerade frisch deklarierten Variablen zugewiesen. Es werden also alle zus\u00e4tzlichen Parameter verworfen. Diese Art der Parameter\u00fcbergabe ist vermutlich eine der gebr\u00e4uchlichsten und einfachsten.<\/p>\n Aber nat\u00fcrlich war das nicht die Art der \u00dcbergabe, die mein Kollege im Sinn hatte. Also gut, wir k\u00f6nnen auch benannte Parameter mit Standard-Werten benutzen:<\/p>\n Hier wird die Liste in eine Hashstruktur eingeblendet und so k\u00f6nnen die benannte Parameter one<\/strong> und two<\/strong> sowohl \u00fcbergeben, als auch weggelassen werden – dann erhalten sie eben ihre Standardwerte.<\/p>\n Aber ach, das war es auch nicht. Nun gut, wir k\u00f6nnen beide Methoden mischen:<\/p>\n Hier werden aus der Parameterlliste die ersten beiden Elemente $one<\/strong> und $two<\/strong> zugewiesen, und der Rest wird wie in hashAsParam<\/strong> einer Hashstruktur aufgehen. Wenn hierbei auch noch Standardwerte vorgegeben werden sollen, kann das in einer extra Zeile geschehen.<\/p>\n Hmhm, das war es auch nicht. Ok, wir k\u00f6nnen nat\u00fcrlich auch noch die Liste einzeln abarbeiten:<\/p>\n Ja, genau das wars! Aber wo wir jetzt schon so viele Varianten hatten, k\u00f6nnen wir eine noch zus\u00e4tzlich anbieten:<\/p>\n \u00c4h? Aber ab hier sollte eigentlich sp\u00e4testens klar sein, dass man perldata<\/strong> und man perlsyn<\/strong> mal wieder besucht werden sollten. Um den ganzen die Krone aufzusetzen, kam mein Kollege eine halbe Stunde sp\u00e4ter wieder an. Diesmal wollte er aber die M\u00f6glichkeiten der R\u00fcckgaben aus Perl-Funktionen wissen…<\/p>\n","protected":false},"excerpt":{"rendered":" Ein Kollege fragte mich heute, wie man in Perl nochmal Parameter an eine Funktion \u00fcbergibt. Das ist ja im Prinzip ganz einfach. Eine Funktion in Perl erh\u00e4lt als \u00dcbergabeparameter eine einfache Liste mit Namen @_. Aber damit f\u00e4ngt es dann erst an. Nehmen wir mal an, wir haben eine einfache Funktion mit zwei Parametern: sub […]<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[34,27],"class_list":["post-53","post","type-post","status-publish","format-standard","hentry","category-allgemein","tag-perl","tag-sprachen"],"_links":{"self":[{"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/posts\/53","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/comments?post=53"}],"version-history":[{"count":0,"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/posts\/53\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/media?parent=53"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/categories?post=53"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.internetallee.de\/byteblog\/wp-json\/wp\/v2\/tags?post=53"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}sub twoParamFunction {\n my ($one, $two) = @_;\n print \"$one and $twon\";\n}<\/pre>\nsub hashAsParam {\n my %hash_param = ( \n 'one' => 'Eins',\n 'two' => 'Zwei',\n @_ );\n print \"$hash_param{one} und $hash_param{two}n\";\n}\n<\/pre>\nsub mixedParams {\n my ($one, $two, %optional) = @_;\n print \"$one and $twon\";\n print join(\"; \", keys %optional) . \"n\";\n}\n<\/pre>\nsub oneStep {\n my $one = shift;\n my $two = shift;\n print \"$one and $twon\";\n}<\/pre>\nsub selectAFew {\n my ($one, $four) = @_[0,3];\n print \"$one a $fourn\";\n}<\/pre>\n