O'Reilly logo

Einführung in Perl, Sixth Edition by brian d foy, Tom Phoenix, Randal L. Schwartz

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Die given-Anweisung

Die given-when-Kontrollstruktur ermöglicht es Ihnen, einen Codeblock auszuführen, wenn die mit given angegebene Bedingung erfüllt ist. Dies ist Perls Entsprechung für die switch-Anweisung aus C – aber natürlich wesentlich »perliger«. Sie ist ein wenig extravaganter, und deshalb hat sie auch einen ausgefalleneren Namen.

Hier ein wenig Code, der in $ARGV[0] das erste auf der Kommandozeile angegebene Argument übernimmt und danach auf der Suche nach Fred eine Reihe von when-Bedingungen durchläuft. Jeder when-Block hat seine eigene Methode Fred zu finden. Die Stärke der Einschränkung nimmt nach unten hin zu:

use 5.010001; given ( $ARGV[0] ) { when ( 'Fred' ) { say 'Der Name ist Fred'} when ( /fred/i ) { say 'Der Name enthält fred' ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required