Switch (Perl)

Z ToProste
Skocz do: nawigacji, wyszukiwania 
#!/usr/bin/perl
use feature qw(switch);
 
 given ($x) {
  when ('a') { print "x zawiera $x"; }
  when ('b') { print "x zawiera $x"; }
  default { print 'x zawiera zupelnie cos innego niz a lub b' }		
 }
Źródło „http://to.proste.info.pl/index.php?title=Switch_(Perl)&oldid=3205”