As I have discussed in my previous article that switch case deprecated in Perl 5. Three new keywords: given, when and default got introduced in Perl 5 that provides functionality similar to switch case.
Syntax:
given (argument) { when (condition) { statement(s); } when (condition) { statement(s); } when (condition) { statement(s); } . . . default { statement(s); } }
Example:
#!/usr/local/bin/perl use v5.10; no warnings 'experimental'; printf "Enter any number:"; $num = <STDIN>; given($num){ when ($num>10) { printf "number is greater than 10\n"; } when ($num<10) { printf "number is less than 10\n"; } default { printf "number is equal to 10\n"; } }
Output:
Enter any number:10 number is equal to 10
Leave a Reply