perl usage of bare blocks, example 1
# file:# bare_blocks.pl
# description:
# this is the file to test semantic of bare blocks
#
# conclusion:
# bare blocks is like a loop which execute only once
# you can use last;next;redo as you can do on loops.
#
use strict;
my $i = 85;
if ($i > 0 and $i < 100) {
{
print "Excellent" and last if $i >= 90;
print "Good" and last if $i >= 80;
print "Fair" and last if $i >= 70;
print "Pass" and last if $i >= 60;
print "Fail" and last if $i < 60;
}
}
页:
[1]