[RESOLVED] Perl Switch?

This site is best viewed in a modern browser with JavaScript enabled.

Mr_Initial_Man

In PHP, you have something like this:

switch ($variable)
{
case 1:
//do this;
break;
case 2:
//do that;
break;
case 3:
//do something else;
break;
}

Is there an equivalent in Perl?

Jeff_Mott

switch ($variable) {
	case 1 { do this }
	case 2 { do that }
	case 3 { do something else }
	else   { when all else fails }
}

Mr_Initial_Man

EDIT: Dealt with one error message, still getting a couple others.

#!usr/bin/perl
# switchexperiment.perl

use warnings;
use strict;

my $variable=<STDIN>;
my $word;
chomp $variable;

switch ($variable){
	case=1 {
		$word="One";
	}
	case=2 {
		$word="Two";
	}
	case=3 {
		$word="Three";
	}
	else {
		$word="Zip";
	}
}

print $word;

Error wrote:
syntax error at C:\Program Files\xampp\htdocs\Pages\Scripts\switchexperiment.perl line 11, near "){"
Execution of C:\Program Files\xampp\htdocs\Pages\Scripts\switchexperiment.perl aborted due to compilation errors.

Jeff_Mott

Whoops. Somehow a line came out missing when I pasted the code into the text box. It should have been this:

[color=green]use Switch;[/color]

switch ($variable) {
	case 1 { do this }
	case 2 { do that }
	case 3 { do something else }
	else   { when all else fails }
}

Mr_Initial_Man

Can't locate Switch.pm in @INC (@INC contains: C:/Perl/lib C:/Perl/site/lib .) at C:\Program Files\xampp\htdocs\Pages\Scripts\switchexperiment.perl line 6.
BEGIN failed--compilation aborted at C:\Program Files\xampp\htdocs\Pages\Scripts\switchexperiment.perl line 6.

So now what do I do?

Jeff_Mott

I would actually suggest that you update your version of Perl. The Switch module is one of the core modules that comes prepackaged with Perl, but it is possible that you have an older release of Perl that did not include it.

If you do not want to install the latest version of Perl, then you will need to install this module. If you installed ActiveState's ActivePerl, then you can use their Perl Package Manager; if you compiled Perl on your machine, then you should use the CPAN module.

Mr_Initial_Man

Is Perl 5.6 old, then?

Jeff_Mott

The 5.6.x versions began in 2000 and ended in 2003, so yes.

The newest release at the moment seems to be 5.8.8.

Mr_Initial_Man

Where can I get the latest?

Jeff_Mott

http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.8.819-MSWin32-x86-267479.msi

Mr_Initial_Man

Here we go! Thanks!

Aroty_WOW

F.Y.I. The switch module is now deprecated. There is now the given-when statement which is much more powerful. Or you can simply is the if-else control structure.

Mr_Initial_Man

Holy thread necromancy, Batman! 6+ years old and resolved to boot!