Switch Case in user defined tag?

[StarGeek]

I'm trying to make a user defined tag that will return the name of a person depending upon the serial number of the camera.  I ended up using IF statements and that's fine, but I'm interested in learning where my mistake with SWITCH was.  Here's the code:

Code Select Expand

CopyrightBySerialNumber => {
Require => 'SerialNumber',
ValueConv => q{
switch ($val){
case '1234567890' { return "John Smith"; }
case '0987654321' { return "Terry Pratchett"; }
case '1234123412' { return "Neil deGrasse Tyson"; }
case '8008675309' { return "Albert Einstein"; }
}
return undef;
},
        },

Some but not all, perl examples I saw had use Switch; at the beginning and I tried adding that at various places in the config file, but it didn't change anything. 

[Phil Harvey]

I wasn't aware of a Perl 'switch' statement.  If there is one, I've never used it.

- Phil

[StarGeek]

I was just going off of what I read here.   But if it's something of an oddity or an add on, nevermind then.  I just thought I was doing something wrong and wanted to figure out my error.

[Hayo Baan]

Hi stargeek,

Wow, that article is for a really old version of Perl (5.8.8). There is no switch statement in current Perl. The only thing than comes close is the given/when construct see article at perldoc. However, that feature has gone back to the drawing board and is now marked as experimental (as is the smart match operator ~~) again (it used to be ok to use it from v5.10 up to v5.16).

Better stick to if/then/else for now I guess.

[Phil Harvey]

Hi Stargeek,

In your reference they use a special "Switch" module.  This module may well provide this functionality, but it isn't part of the language.

- Phil

[StarGeek]

Wow, that article is for a really old version of Perl (5.8.8).

That leads to something I've wondered a few times.  What version of perl does the Windows executable use?

[Phil Harvey]

This command will tell you:

exiftool exiftool.exe



It is an old version because I had some problems with newer versions on Windows.

- Phil

[StarGeek]

Wow, very cool.

Bundled Perl Version            : ActivePerl 5.8.7