Mega Code Archive

 

Categories / Perl / Statement

 

Switch on sub

#!/usr/bin/perl -w use strict; use Switch; my $input; sub lessthan { $input < $_[0] }; $input=int(<>); switch ( \&lessthan ) {     case 10           { print "less than 10\n" }     case (100-$input) { print "less than 50\n" }     case 100          { print "less than 100\n" } }