I really dislike downvoting (which I just did) on nodes expressing opinion; the more so, in this case, because all but fenLisesi's second sentence have merit (IMO). My error!
Update: The above was well intentioned, but bleary-eyed /me carelessly missed the typo in prop's OP, in which
find{ sub $total_size += -s if -f}, '.');
should be
find (sub { $total_size += -s if -f}, '.');.
mea culpa and apologies.
But sentence 2 amount to a direct and gratuitous negative implication about props' integrity (or, I suppose, ability to copy code from a book)... and it is wrong.
The intial code fragment comes from p71 of Intermediate Perl, 2nd edition. It is verbatim, save for the book's inclusion of a use File::Find above. And it's available, on line, for your ease of checking these assertions, at http://safari.oreilly.com/ (more precisely, and as a link, 7.4 . Closures)
| [reply] [d/l] |
ww,
I was trying to lead him to try to run the code he posted, be puzzled and hopefully learn while trying to fix it. I assure you that I intended no negative sense at all.
I don't mind the downvote and your feedback is very valuable to me; thank you.
props (and the rest of the monks): I am sorry if the post raised such a negative feeling with you, too.
Cheers.
| [reply] |