note
moritz
<p>If you have a non-ancient version of Perl 5, this should work:
<code>
use 5.010;
foreach (@array)
{
when (/linux/) { say "This is linux VM" }
when (/Windows/) { say "This is Windows VM" }
default { say "I have no idea what it is" }
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-616540">
[http://perl6.org/|Perl 6 - the future is here, just unevenly distributed]
</div></div>
989949
989949