Switch (Perl)
Z ToProste
Wersja z dnia 19:26, 17 gru 2013 autorstwa Victor (dyskusja | edycje) (Switch przeniesiono do Switch (Perl))
#!/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' } }