Was bedeuten Dollar-, At-Zeichen- und Semikolonzeichen in Perl-Parameterlisten?

Question

Ich habe eine Reihe von Perl-Skripten in der Codebasis bei meinem Job gefunden. Einige von ihnen enthalten Subroutinen mit folgenden Syntax Kuriosität:

sub sum($$$) { 
    my($a,$b,$m)=@_; 
    for my $i (0..$m) { 
     $$a[$i] += $$b[$i] if $$b[$i] > 0; 
    } 
} 

sub gNode($$;$$) { 
    my($n,$l,$s,$d) = @_; 
    return (
      "Node name='$n' label='$l' descr='$d'" , 
      $s ? ("Shape type='$s' /") :(), 
      '/Node' 
     ); 
} 

sub gOut($$@) { 
    my $h = shift; 
    my $i = shift; 
    if ($i > 0) { 
     print $h (('')x$i, map '<'.$_.'>', @_); 
    } else { 
     print $h map '<'.$_.'>', @_; 
    } 
} 

Abgesehen von der Frage, was diese Unterprogramme sollen tun (ich bin nicht ganz sicher, ob ich ...), was tun, um die Sequenzen von Zeichen in die Position der Parameterliste bedeutet? Nämlich. die $$$, $$;$$ und $$@ Sequenzen in diesen Beispielen.

Ich habe ein sehr begrenztes Verständnis von Perl, aber ich glaube, dass die my($a,$b,$m)=@_; Linie im ersten Beispiel (sum) an das Unterprogramm in die $a geleitet, $b und $m lokalen Variablen die Parameter auspackt. Dies legt nahe, dass $$$ die Arity- und Typ-Signatur von sum anzeigt (in diesem Fall werden drei Skalare erwartet). Dies würde möglicherweise vorschlagen, dass gOut zwei Skalare und ein Array erwartet. Ist das die richtige Interpretation?

Auch wenn die obige Interpretation korrekt ist, bin ich in Bezug auf die Bedeutung des Semikolons in der zweiten Routine verloren (gNode).

Answer 1

Siehe perldoc perlsub Eintrag auf Prototypen.

# Declared as   Called as 
sub mylink ($$)  mylink $old, $new 
sub myvec ($$$)  myvec $var, $offset, 1 
sub myindex ($$;$)  myindex &getstring, "substr" 
sub mysyswrite ($$$;$) mysyswrite $buf, 0, length($buf) - $off, $off 
sub myreverse (@)  myreverse $a, $b, $c 
sub myjoin ($@)  myjoin ":", $a, $b, $c 
sub mypop (+)   mypop @array 
sub mysplice (+$$@) mysplice @array, 0, 2, @pushme 
sub mykeys (+)   mykeys %{$hashref} 
sub myopen (*;$)  myopen HANDLE, $name 
sub mypipe (**)  mypipe READHANDLE, WRITEHANDLE 
sub mygrep (&@)  mygrep { /foo/ } $a, $b, $c 
sub myrand (;$)  myrand 42 
sub mytime()   mytime 

Nicht vergessen: Das alles ist sehr mächtig, natürlich, und soll nur in Maßen verwendet werden, die Welt zu einem besseren Ort zu machen.

Answer 2

Ich stimme dem Rest zu: Verwenden Sie keine Sub-Prototypen, außer Sie wissen, was Sie tun. "Mit großer Kraft kommt große Verantwortung." Die sehen aus, als wären sie von jemandem erstellt worden, der an C-Prototypen gewöhnt war. Zum Beispiel sollte die Unter sum wirklich diesen Prototyp hat:

sub sum (\$\$\$) {