Switch (Perl): Różnice pomiędzy wersjami
Z ToProste
m (Perl switch przeniesiono do Switch) |
m (Switch przeniesiono do Switch (Perl)) |
(Brak różnic)
|
Aktualna wersja na dzień 19:26, 17 gru 2013
#!/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' } }