Quelle est la signification d'un trait de soulignement dans Perl ($ _, @_)?

Question

Je suis nouveau à Perl, et je les ai utilisés comme celui-ci

$_

foreach (@list) { 
    print "$_\n"; 
} 

@_

sub search { 
    my ($no, @list) = @_; 
} 

Comment exactement ces fonctionnent les variables en soulignent Perl? Quelles sont les autres constructions où elles sont utiles?

Answer 1

C'est le genre de question qui vous indique vraiment devrait lire un livre, et peut-être le reste de la balise perl faqs.

Néanmoins, $_ est une variable de contexte qui est créée implicitement par certaines constructions et utilisée implicitement par certaines fonctions intégrées. Voici quelques exemples:

while(<>) { 
    next if /^#/; 
    last if /^q(?:uit)?$/; 
    say "Howdy!" if /^hello$/; 
} 

Ce faisant beaucoup de milieu de travail et d'inspection de la variable $_ et est équivalent à:

while(defined($_ = <>)) { 
    next if $_ =~ /^#/; 
    last if $_ =~ /^q(?:uit)?$/; 
    say "Howdy!" if $_ =~ /^hello$/; 
} 

D'autres constructions qui définissent $_ sont: foreach boucles, given blocs, map et grep opérations, et catch blocs dans Try::Tiny.

D'autres constructions qui utilisent $_ sont: les instructions print; nues, l'opérateur de substitution s/// et l'opérateur de translittération tr///.

Je vous le dis: pendant que vous apprenez Perl, n'utilisez pas $_ implicitement. Ecrivez tout cela en entier (comme dans le deuxième exemple ci-dessus), pour renforcer dans votre esprit ce qui se passe réellement. Tout comme lorsque vous apprenez une langue étrangère, vous devez apprendre à parler correctement et soigneusement avant d'apprendre à abréver la langue. $_ est utile pour écrire du code terser plus court, et peut être plus clair en se concentrant sur le traitement en cours plutôt que sur les variables pour lesquelles il est fait, mais seulement une fois que vous avez appris que les opérations utilisent $_. Sinon, c'est juste un gâchis déroutant.

Comme mentionné ailleurs, @_ est la liste d'arguments à un sous-programme.

Answer 2

Ce sont des variables spéciales en Perl. Voir Perl - Special Variables.