Lista argumentów podprogramu perl - "przekazać przez alias"?

Question

Właśnie spojrzał z niedowierzaniem na tej sekwencji:

my $line; 
$rc = getline($line); # read next line and store in $line 

I zrozumiał cały czas, że argumenty Perl były przekazywane przez wartość, więc kiedy mam potrzebne do przekazania w dużej strukturze, albo przekazać w zmiennej być zaktualizowany, zdałem ref.

Czytając drobnym drukiem w perldoc, dowiedziałem się, że @_ składa się z aliasów do zmiennych wymienionych na liście argumentów. Po przeczytaniu następnego fragmentu danych, getline() zwraca je z $ _ [0] = $ dane;, który przechowuje $ dane bezpośrednio w $ linia.

Ja podoba mi się to - to jak przekazywanie przez odniesienie w C++. Jednak nie znalazłem sposobu na przypisanie bardziej znaczącej nazwy do $ _ [0]. Czy jest jakiś?

Answer 1

Można, jego niezbyt ładna:

use strict; 
use warnings; 

sub inc { 
    # manipulate the local symbol table 
    # to refer to the alias by $name 
    our $name; local *name = \$_[0]; 

    # $name is an alias to first argument 
    $name++; 
} 

my $x = 1; 
inc($x); 
print $x; # 2 

Answer 2

Najłatwiej jest prawdopodobnie tylko do korzystania z pętli, ponieważ pętli alias ich argumentów do nazwy; tj

sub my_sub { 
    for my $arg ($_[0]) { 
    code here sees $arg as an alias for $_[0] 
    } 
} 

Answer 3

Wersja @ kodu Steve'a, który pozwala na wiele różnych argumentów:

sub my_sub { 
    SUB: 
    for my $thisarg ($_[0]) { 
    for my $thatarg ($_[1]) { 
     code here sees $thisarg and $thatarg as aliases 
     last SUB; 
    } 
    } 
} 

Oczywiście to przynosi wielopoziomowych zagnieżdżenia i własne problemy czytelności kodu, więc używać go tylko wtedy, gdy absolutnie neccessary.