Мне трудно понять, почему работает следующее: my $array_reference; foreach $element (@{$array_reference}) { # some code } пока не работает следующее my $array_reference; if (scalar (@{$array_reference}) { # some code here } Я...

Это то, что у меня есть my %count_words; while (<DATA>){ my $line= $_; chomp $line; my @words = split (/ /, "$line"); foreach my $word(@words){ $count_words{"$word"}++; } } foreach my $key (%count_words){...

Предположим, мне нужна PERL-подобная автовивикация в Python, т.е.: >>> d = Autovivifier() >>> d = ['nested']['key']['value']=10 >>> d {'nested': {'key': {'value': 10}}} Есть несколько основных способов сделать это:...

Я довольно часто пишу такие фрагменты кода: if (exists $myHash->{$key}) { $value = $myHash->{$key}; } Что я пытаюсь сделать, так это получить значение из хэша, если хэш содержит этот ключ, и в то же время я хочу избежать...