copying includes walking a hash (each) ... see Hash::StoredIterator - Functions for accessing a hashes internal iterator.

Found with hash iterator

This works like a charm. Not checked CPAN (don't know why), just googled :) If anyone can suggest other solutions, interested in them all.

I guess. What happens if you avoid each?

foreach my $key ( keys %hash ) {
    print qq($key => $hash{$key}\n);
    my %other_hash = %hash;
}
[download]

If i run this, i don't get an infinite loop...

Regards, Karl

If i run this, i don't get an infinite loop...

Hurricup is writing a debugger, his debugger cannot be rewriting the users code while its running the code, the user isn't going to like that,

"Hurricup is writing a debugger...rewriting the users code..."

Yes, sure. It interested me to see what happens, as i wrote. Or should i check out his plugin code (if available) and so on...?

«The Crux of the Biscuit is the Apostrophe»

"Hurricup is writing a debugger...rewriting the users code..."

Yes, sure. It interested me to see what happens, as i wrote. Or should i check out his plugin code (if available) and so on...?

«The Crux of the Biscuit is the Apostrophe»

Excerpts from the man pages:

each "When called on a hash in list context, returns a 2-element list consisting of the key and value for the next element of a hash."

keys "Called in list context, returns a list consisting of all the keys of the named hash."

values "In list context, returns a list consisting of all the values of the named hash."

As you can see the example below each is executed repeatedly however keys and values are called only once.

use strict;
use warnings;

my %hash = ('Hello' => 'World');
while ( my ( $key, $value ) = each %hash ) {
      #my %otherhash = %hash;
      print "\n$key=$value";
}

print "\n------------------\n";

foreach ( keys %hash ) {
      my %otherhash = %hash;
      print "\n$_=$hash{$_}";
}

print "\n------------------\n";

foreach ( each %hash ) {
      my %otherhash = %hash;
      print "\n$_\n";
}

print "\n------------------\n";
[download]

I don't get your point. If you are saying how to modify source code - I know it, but can't do. Check the last paragraph of the question.

A simple way to work around each would be to load it into an array and simulate each as follows:

$ perl -e '
> my %h=(qw(a b c d e f));
> { my @each = %h;
>   while (my $k = shift @each) {
>     my $v = shift @each;
>     print "$k => $v\n";
> }}' 
c => d
e => f
a => b
[download]

package OOEach;

sub new {
    my ($class) = @_;
    return bless {}, $class;
}

sub each {
    my $self = shift;
    $self->{queue} ||= [@_]; # note: will only init once
    my $k = shift @{$self->{queue}};
    my $v = shift @{$self->{queue}};
    return ($k, $v);
}
;
[download]

Heheh, another one , hurricup is creating the debugger, hes writing the debugger, he cannot change the users code to suit the debugger,

Actually he IS changing the user's code to effect debugging. As I understand it he is effectively inserting a command to copy the hash into the code he is debugging. So in fact a custom implementation of each is still one way to stop the real one breaking.

One world, one people

So, let me get this straight. You are using IntelliJ IDEA as your Perl development integrated development environment (IDE).

(Excuse me if my question shows that I am behind the times.)

Yup, hes created perl plugin for it, as you can see by hurricup / hurricup's writeups

Why do you want to make a copy of the hash inside the loop?

This is just an example. Please, read the last paragraph.

I guess. What happens if you avoid each?

foreach my $key ( keys %hash ) {
    print qq($key => $hash{$key}\n);
    my %other_hash = %hash;
}
[download]

If i run this, i don't get an infinite loop...

Regards, Karl

A simple way to work around each would be to load it into an array and simulate each as follows:

$ perl -e '
> my %h=(qw(a b c d e f));
> { my @each = %h;
>   while (my $k = shift @each) {
>     my $v = shift @each;
>     print "$k => $v\n";
> }}' 
c => d
e => f
a => b
[download]