while each で突然投げ出すと死ぬ - Yappo::タワシ

use strict; use warnings; use Data::Dumper; my %hash = ( key => 'value', ); while (my($k, $v) = each %hash) { last; } while (my($k, $v) = each %hash) { print "$k => $v\n"; } while (my($k, $v) = each %hash) { print "$k => $v\n"; } $ perl ./each.pl key => value 当然ですよねー！

[fbis]

「keys %hash;」してリセットするとか＞＜