Why doesn’t Perl’s each() iterate through the entire hash the second time?

by

each uses a pointer associated with the hash to keep track of iteration. It does not know that the first while is different from the second while loop, and it keeps the same pointer between them.

Most people avoid each for this (and other) reasons, instead opting for keys:

for my $key (keys %hash){
    say "$key => $hash{$key}";
}

This gives you control over the iteration order, as well:

for my $key (sort keys %hash){
    say "$key => $hash{$key}";
}

Anyway, if you are going to end the loop early, avoid each.

BTW, functional programming advocates should take this opportunity to point out the disadvantages of hidden state. What looks like a stateless operation (“loop over each pair in a table”) is actually quite stateful.

More Related Contents:

  1. What’s the difference between a hash and hash reference in Perl?
  2. How can I combine hashes in Perl?
  3. How does double arrow (=>) operator work in Perl?
  4. Iterating hash based on the insertion order?
  5. What decides the order of keys when I print a Perl hash?
  6. Why do hash keys have different order when printing?
  7. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  8. Redirecting the perl script
  9. How can I troubleshoot my Perl CGI script?
  10. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  11. How can I install Perl modules without root privileges?
  12. How do I compare two strings in Perl?
  13. What is the difference between ‘my’ and ‘our’ in Perl?
  14. Difference between &function and function() in perl [duplicate]
  15. How do you round a floating point number in Perl?
  16. Why do I have to specify the -i switch with a backup extension when using ActivePerl?
  17. How can I run Perl system commands in the background?
  18. Why is this program valid? I was trying to create a syntax error
  19. Find size of an array in Perl
  20. What does the -> arrow do in Perl?
  21. What’s the difference between iterating over a file with foreach or while in Perl?
  22. What’s the differences between system and backticks and pipes in Perl?
  23. How to ignore ‘Certificate Verify Failed’ error in perl?
  24. How do I make Perl scripts recognize command-line parameters in the Win32 cmd console?
  25. What does shift() do in Perl?
  26. Local and Global variables in perl
  27. How to read to and write from a pipe in Perl?
  28. Can a Perl script install its own CPAN dependencies?
  29. How to make DateTime::Duration output only in days?
  30. In Perl, is it appropriate to use map in void context instead of a foreach loop?

Leave a Comment