home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 4916 < prev    next >
Encoding:
Internet Message Format  |  1992-07-23  |  1.6 KB
  1. Path: sparky!uunet!dtix!darwin.sura.net!jvnc.net!yale.edu!yale!gumby!destroyer!caen!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!network.ucsd.edu!nic!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: or puzzlement
  5. Message-ID: <1992Jul23.191243.9731@netlabs.com>
  6. Date: 23 Jul 92 19:12:43 GMT
  7. References: <BrtMFu.D0L@unx.sas.com>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 50
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <BrtMFu.D0L@unx.sas.com> kent@manzi.unx.sas.com (Paul Kent) writes:
  14. : 
  15. : 
  16. : hi,
  17. : 
  18. : in some sub xx, i currently do the moral equivalent of:
  19. : 
  20. : sub xx
  21. : {
  22. :   opendir(D,$f) || warn "no dir $f" || return 1;
  23. : }
  24. : 
  25. : which to my app is a non-fatal warning -- typically my outer loop
  26. : will do 
  27. : 
  28. :   &sub() && next;
  29. : 
  30. : 
  31. : 
  32. : 
  33. : is it guarenteed that warn <stuff> will evaluate
  34. : to 0/false forcing the next thing in the or-sequence to be
  35. : evaluated, or am i just getting "lucky" (warn in the camel
  36. : book doesnt describe its result -- it may be grandfathered
  37. : elsewhere....)
  38.  
  39. Actually, warn always returns true, but the reason the return is never
  40. evaluated is that "no dir $f" is always true, and warn is a list
  41. operator.  You're getting lucky.
  42.  
  43. What you really want to say is
  44.  
  45.     opendir(D,$f) || warn("no dir $f") && return 1;
  46.  
  47. It works out nicely that && binds tighter than ||.  On the other hand,
  48. it may be clearer to say
  49.  
  50.     opendir(D,$f) || do {warn "no dir $f"; return 1};
  51.  
  52. or
  53.  
  54.     opendir(D,$f) || (warn("no dir $f"), return 1);
  55.  
  56. Since warn returns 1, you should even be able to say
  57.  
  58.     opendir(D,$f) || return warn "no dir $f";
  59.  
  60. That doesn't work for "next" though.
  61.  
  62. Larry
  63.