- 1
- 2
- 3
my $parent_key=$$hash{parent_key};
delete $$hash{parent_key};
$parent_key = '' if ! $parent_key;
=()= / Говнокод #13311
0
my $parent_key = delete $hash->{parent_key} || '';
Запостил: 
Elvenfighter,
(Updated )
Единственно оправдание - старая версия перляки.