given-when statement as a rvalue?

[Peter Daum]

Is it possible to get a value from a given-when statement?

Suppose I have a long comparison in which all branches affect
the same variable. Here's a short example (minor variation
from"perlsyn"):

given($something) {
    when (/^abc/) { $x = 1; }
    when (/^def/) { $x = 2; }
    when (/^xyz/) { $x = 3; }
    default { $x=-1; }
}

All the explicit assignments to the same variable are pretty ugly;
With an "if" statement, I can do something like:

my $x=do {
    $_=$something;
        if (/^abc/) { 1; }
        elsif (/^def/) { 2; }
        elsif (/^xyz/) { 3; }
        else { -1; }
};

but the same thing using the new (well, relatively;)
"given-when" statement does not seem to work:

$x=do {
    given($something) {
        when (/^abc/) { 1; }
        when (/^def/) { 2; }
        when (/^xyz/) { 3; }
        default { -1; }
    }
};

Any ideas?
                             Peter


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/