How to write a switch case statement examples

The switch is a syntax in programming to test multiple conditions and execute single code blocks

Perl 5.10.1 introduced a new experimental feature switch. Use the below code to enable the switch

use feature "switch";

Syntax:

use feature qw(switch);

my $var = '123';



for ($var) {
    when (/^123/) { $result =1 }
    when (/^456/) {$result =2 }
    when (/^789/) {$result =3 }
    default       { $result =4}
}


print $result;

With Version 5.14, for can be replaced with the given

use feature qw(switch);

my $var = '123';



given ($var) {
    when (/^123/) { $result =1 }
    when (/^456/) {$result =2 }
    when (/^789/) {$result =3 }
    default       { $result =4}
}

print $result;

Perl - switch