Re: Re (tilly) 1: if and unless


Don't ask to ask, just ask
	PerlMonks

Re: Re (tilly) 1: if and unless

by c0d34w4y (Acolyte)

on Dec 15, 2001 at 23:45 UTC ( [id://132237]=note: print w/replies, xml )

Need Help??

in reply to Re (tilly) 1: if and unless
in thread if and unless

I wonder if he also meant this:

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();
}
[download]

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)))
[download]

Comment on Re: Re (tilly) 1: if and unless Select or Download Code

Replies are listed 'Best First'.
Re (tilly) 3: if and unless by tilly (Archbishop) on Dec 15, 2001 at 23:51 UTC
The program flow apparently meant from your comment does not match the program flow of the code. My warn was merely a reasonable implementation of your something_screwed_up() function. If you want it to be called, it has to be called there.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://132237]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others studying the Monastery: (3)

As of 2024-04-16 20:03 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found