props,
Studying the examples in a good book is a great way to learn, but you need to run the examples and play with them a little. I don't have that book, but it is unlikely that the code you posted would come from there. Why don't you go ahead now and run that code first and tell us how you think it works (or doesn't)? Then monks will be able discuss it with you. Cheers. | [reply] |
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] |
This is an example from "Intermediate Perl"
aims to demonstrate the presence of a closure
| [reply] |
It is a closure, you want to pass in a bit of code into a function(perldoc -q closure)
| [reply] |
