Что означает $ # массив в Perl?

Question

Я смотрю на следующем фрагменте кода:

my @ret = <someMethod> 
return (undef) if($DB_ERROR); 
return (undef) unless ($#ret >= 0); 

ли $# просто дать вам количество элементов в массиве?

Answer 1

$#arrayname дает индекс последнего элемента, так что, если массив @ret имеет 2 элемента, то $#ret является 1.

И, как отметил Барри Браун, пустой массив дает -1.

Чтобы получить длину, вы можете использовать массив в скалярном контексте:

print scalar @ret; 

Answer 2

Имейте в виду, что выражение массиву $ # вернет -1, если массив имеет нулевые элементы.

Answer 3

edg правильный, но исходный код излишне тупой. В большинстве случаев $#foo является красным флагом, что код можно было бы написать проще, используя scalar @foo.

return (undef) unless ($#ret >= 0); 

unless foo >= bar трудно разобраться. Во-первых, превратите его в положительное утверждение.

return (undef) if ($#ret < 0); 

Когда есть $ # ret < 0? Когда это -1. A $ # RET -1 является массивом длины 0. Таким образом, выше может быть написана гораздо проще, как ...

return (undef) if scalar @ret <= 0; 

Но вы не можете иметь отрицательный массив длины, так что ...

return (undef) if scalar @ret == 0; 

А == в скалярном контексте, так что «скаляр» является излишним ...

return (undef) if @ret == 0; 

Но это просто многословный способ сказать «если @ret ложно».

return (undef) if !@ret; 

Который, я думаю, для простых модификаторов высказываний лучше выражается с помощью.

return (undef) unless @ret; 

Не так ли проще?

В качестве заключительной боковой заметки return undef обескуражен, потому что он делает неправильную вещь в контексте списка. Вы возвращаете список, содержащий один элемент undef, который является истинным. Вместо этого просто используйте пустой возврат, который возвращает undef в скалярном контексте и пустой список в контексте списка.

return unless @ret; 

Answer 4

Суммируя все остальные, что код гораздо более разборчивыми, если написано так:

my @ret = someMethod(); 
return if $DB_ERROR; 
return unless @ret;