Switch (Perl): Różnice pomiędzy wersjami
Z ToProste
m (Utworzył nową stronę „<syntaxhighlight lang="perl"> #!/usr/bin/perl use feature qw(switch); given ($x) { when ('a') { print "x zawiera $x"; } when ('b') { print "x zawiera $x"; } def...”) |
m (Perl switch przeniesiono do Switch) |
(Brak różnic)
|
Wersja z 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' } }