Re: Short and easy way to write if...elsif syntax

in reply to Short and easy way to write if...elsif syntax

Somehow funny way:

%versions=
(
    'linux' => sub { print "This is linux VM\n" },
    'Windows' => sub { print "This is a Windows VM\n" }
);

# create this list once before loop
my $idlist = join "|", keys %versions;

@array = ('linux', 'Windows', 'OSX');

foreach(@array)
{
    if(/$idlist/)
    {
        my $id = $&;
        &{$versions{$id}}();
    }
    else
    {
        print "I have no idea what it is\n";
    }
}
[download]

Update: please be careful with this approach, as you will have problems if one sysname is included in another one, e.g. 'Windows' and 'Windows 7' (well, actually this is a problem in your original if / elsif list, too.)

In Section Seekers of Perl Wisdom