Обхват на променливата по подразбиране $_ в Perl

В Perl името _ може да се отнася до редица различни променливи:

Често срещаните са:

$_ the default scalar (set by foreach, map, grep)
@_ the default array  (set by calling a subroutine)

По-рядко срещаните:

%_ the default hash (not used by anything by default)
 _ the default file handle (used by file test operators)
&_ an unused subroutine name
*_ the glob containing all of the above names

Всяка от тези променливи може да се използва независимо от другите. Всъщност, единственият начин, по който те са свързани е, че всички те се съдържат в *_ glob.

Тъй като сигилите варират в зависимост от масиви и хешове, когато осъществявате достъп до елемент, вие използвате знаците в скоби, за да определите коя променлива имате достъп:

$_[0]   # element of @_
$_{...} # element of %_

$$_[0]  # first element of the array reference stored in $_
$_->[0] # same

Цикълът for/foreach може да приеме име на променлива за използване вместо $_ и това може да е по-ясно във вашата ситуация:

for my $result (@results) {...}

Като цяло, ако вашият код е по-дълъг от няколко реда или е вложен, трябва да наименувате променливите, вместо да разчитате на тези по подразбиране.

Тъй като въпросът ви беше свързан повече с имена на променливи, отколкото с обхват, не съм обсъждал действителния обхват около цикъла foreach, но като цяло следният код е еквивалентен на това, което имате.

for (my $i = 0; $i < $#results; $i++) {
    local *_ = \$results[$i];
    ...
}

Редът local *_ = \$results[$i] инсталира $iтия елемент от @results в скаларния слот на *_ globus, известен още като $_. В този момент $_ съдържа псевдоним на елемента от масива. Локализацията ще се развие в края на цикъла. local създава динамичен обхват, така че всички подпрограми, извикани от цикъла, ще видят новата стойност на $_, освен ако не я локализират. Има много повече подробности за тези концепции, но мисля, че те са извън обхвата на вашия въпрос.

Проблемът тук е, че използвате наистина @_ вместо $_. Цикълът foreach променя $_, скаларната променлива, а не @_, което е това, което имате достъп, ако го индексирате с $_[X]. Освен това проверете отново кода, за да видите какво има вътре в @results. Ако това е масив от масиви или референции, може да се наложи да използвате индиректния ${$_}[0] или нещо подобно.

Както други посочиха:

• Вие наистина използвате @_, а не $_ в изявлението си за печат.
• Не е добре да съхранявате неща в тези променливи, тъй като те се използват другаде.

Официално $_ и @_ са глобални променливи и не са членове на нито един пакет. Можете да локализирате обхвата с my $_, въпреки че това вероятно е наистина, наистина лоша идея. Проблемът е, че Perl може да ги използва, без дори да знаете. Лоша практика е да разчитате на техните стойности за повече от няколко реда.

Ето леко пренаписване на вашата програма, за да се отървете от зависимостта от @_ и $_, доколкото е възможно:

sub showResults {
    my $foo = shift;    #Or some meaningful name
    my $bar = shift;    #Or some meaningful name

    if (not defined $foo) {
       print "didn't pass two parameters\n";
       return;  #No need to hang around
    }
    if (my @results = dbGetResults($foo)) {
        foreach my $item (@results) {
        ...
    }
}

Някои модификации:

• Използвах shift, за да дам действителните имена на вашите два параметъра. foo и bar не са добри имена, но не можах да разбера от какво е dbGetResults, така че не можах да разбера какви параметри търсите. @_ все още се използва, когато параметрите се предават, а моят shift зависи от стойността на @_, но след първите два реда съм свободен.
• Тъй като вашите два параметъра имат действителни имена, мога да използвам if (not defined $bar), за да видя дали и двата параметъра са предадени. Промених и това на отрицателно. По този начин, ако не са преминали и двата параметъра, можете да излезете по-рано. По този начин вашият код има един отстъп по-малко и нямате if структура, която да заема цялата ви подпрограма. Това улеснява разбирането на вашия код.
• Използвах foreach my $item (@results) вместо foreach (@results) и завися от $_. Отново, по-ясно е какво прави вашата програма и не бихте объркали $_->[0] с $_[0] (мисля, че това правите). Щеше да е очевидно, че искаш $item->[0].