Re^6: fall through switch/case in perl

in reply to Re^5: fall through switch/case in perl
in thread fall through switch/case in perl

s/==/>=/g and it falls through ie

for ( $var ) {
    $_ >= 10 and print "a";
    $_ >=  9 and print "b";
    $_ >=  8 and print "c";
    $_ >=  7 and print "d";
    $_ >=  6 and print "e";
    $_ >=  5 and print "f";
    $_ >=  4 and print "g";
    $_ >=  3 and print "h";
    $_ >=  2 and print "i";
    $_ >=  1 and print "j";
}
[download]

cheers

tachyon

In Section Seekers of Perl Wisdom