Исходное сообщение
"Странное поведение хеша в perl ???" Отправлено tian, 25-Сен-19 10:25
Вот для копирования набросал такую функцию, может кому поможет. sub copy_hash {     my ( $hash_in, $hash_out ) = @_;     while( my $key = each %{$hash_in} ) {         if ( ref($$hash_in{$key}) eq 'HASH' ) {             copy_hash( \%{$$hash_in{$key}}, \%{$$hash_out{$key}} );         } else {             $$hash_out{$key} = $$hash_in{$key};         }     } }

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Вот для копирования набросал такую функцию, может кому поможет. > sub copy_hash { > my ( $hash_in, $hash_out ) = @_; > while( my $key = each %{$hash_in} ) { > if ( ref($$hash_in{$key}) eq > 'HASH' ) { > > copy_hash( \%{$$hash_in{$key}}, \%{$$hash_out{$key}} ); > } else { > > $$hash_out{$key} = $$hash_in{$key}; > } > } > }
	Введите код, изображенный на картинке: