Well, there isn't a real case statement as in C or Pascal, but, you can emulate one through a block =)
SWITCH: for ($str_fruit) {
if (/apple/) {
...
last SWITCH;
}
if (/banana/) {
...
last SWITCH;
}
if (/orange/) {
...
last SWITCH;
}
}
Hope this helps,
Marc...
| Hi,
|
| there is in Perl a statement "case" like in "C" or in "Pascal" ???
|
| Walter
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
