> my $x = 'x';
>
> switch ($x) {
> case 'x' { print 'x' }
> else { print 'not x' }
> }
>
> # %>
I always implement case statements as such....
my $x = 'x';
for ($x) {
/^x$/
and do {
print 'x';
last;
};
# Default
print 'not x';
}
--
Ian Cass
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
