#!/usr/bin/perl -wT use strict; my $value = 10; SWITCH: for ($value) { /^0$/ && do {print "ZERO\n"; last; }; /^1$/ && do {print "ONE\n"; last; }; /^10$/ && do {print "TEN\n"; last; }; print "NONE OF THE ABOVE\n"; }
In reply to Re: Re3: Use an array slices
by TVSET
in thread Use an array slices
by nite_man
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |