Re: One liner?

How much fun do you want to have with the mind of the next person who has to maintain your code?

@ip=unpack('C4',[(sub{return(gethostbyname($machine)or next)})->()]->[4]);

If you want it to be maintainable, leave it at two lines.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]

Comment on Re: One liner? Select or Download Code

Replies are listed 'Best First'.
Re: Re: One liner? by ChrisR (Hermit) on Oct 01, 2003 at 01:52 UTC
Strangely enough, that's the point. I have been challenged by a collegue. I was told that my code was "old style" and extremely verbose. Often that is a good thing, I think. But nevertheless, I was told that I wasn't using enough of the features that perl has to offer and most importantly that I couldn't do it. So far I have been doing pretty well but I still have more to do. My collegue calls it simplifying, I call it complicating. Anyway, thanks for the thought.	[reply]
Re: One liner? by jonadab (Parson) on Oct 01, 2003 at 02:54 UTC
The four-line version _was_ needlessly verbose. But I don't think getting it down to one line is necessary. Two lines may be about right for this example. Good code is terse enough that it doesn't take forever to say anything, but not so terse that it makes the reader shake his head and drag out reference books. Somewhere in between ten-thousand-line epics and golfed-down one-liners there's a happy medium. Of course, you may not need the @ipaddr array at all; if you're only using the resulting numbers once, you may be able to feed the results of the second line directly into the next function. I'd have to see the larger context of your code to see how to further simplify it. But I don't think that combining your existing two lines into one will make for greater simplicity. If you really want to learn serious code shortening techniques, do a Google search for "Perl golf". But be advised that shorter code isn't always easier to read. Up to a point it is, but Perl golf has a strong tendency to go beyond that point. If you just want to scare your coworker, show him some of the stuff from the obfuscation section of Perlmonks, and tell him you're studying programming techniques from the people who wrote them. `$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/` [download]	[reply] [d/l]