All the Perl that's Practical to Extract and Report
use Perl Log In
djberg96 (2603)
(email not shown publicly)
Perl Design Patterns and iterators
He first shows a (clunky) example of a Java iterator, then goes on to compare that against a foreach loop, iterating over the keys of a hash. However, then he goes on to say:
In Perl 6 it will even be possible to return a list that expands lazily, so the above [code] will be more efficient than it is now. In Perl 5, the keys list is built completely when I call keys. In the future, the keys list will be built on demand, saving memory in most cases, and time in cases where the loop ends early.
But doesn't Perl 5 violate the "one at a time" definition? I mean, you're not iterating over one element at a time. You're slurping a list, and THEN iterating over that list. This distinction can be important if, for example, you're retrieving a million rows out of a database. That million-element array is now in memory, instead of being fed to you one element at a time.
I also think he's railing on OO a bit by using Java (and statically typed languages in general), and its overly verbose syntax, as his whipping boy. Consider an equivalent Ruby example...
hash.each{ |k,v|
puts "#{k}\t#{v}"
}
...and suddenly iterators within OO don't seem so stupid
--Larry Wall in stab.c from the perl source code
keys is not the iterator (Score:1)
In this example,
keysis not the iterator;foreachis.eachis a hash's iterator.(darren)
Re:keys is not the iterator (Score:2)
Re:keys is not the iterator (Score:1)
I think you are right. Perl 5 really lacks a good syntax for iterating over data structures (that are not lists, arrays). Perhabs the best way is to overload the diamond operator to work on any data structure.
Iteration with
whilein Perl can be nice, but it really only works for data structures that can't include values which Perl considers false. As soon as you get towhile(defined(...))Perl is clunky, too.Perl 6 will probably get it right, but if we're fair the next version of Java (1.5) will also in
Arrays are special (Score:1)
Arrays are special with foreach. They're not slurped, but iterated one by one. You could tie an array to each and iterate over the hash keys without slurping. But then, a simple while loop would be easier :)
To get a lazy list in Perl 5, simply tie. You can have an infinite list and iterate over it using foreach, as long as you implement the list as an array.