if (test_conditions(@info)) {
eval(do_something(@info));
warn "Failed to do whatever because '$@'" if ($@);
} else {
# handler method for whenever something is 'screwed up'
# such as when test_conditions() fails...
something_screwed_up();
}
ps: actually, I'm sure there might be quite a few implementations for the original 'pseudo' code since it
contains some uncommon language constructs/flow. Say,
if(..) { } unless {} isn't something you find
in a standard pseudo code? Also the meaning of the 'unless' keyword is a bit vague.
--
print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x1234
+5678)))
|