🚀 go-pugleaf

Użytkownik KEyS napisał:
> Użytkownik Stachu 'Dozzie' K. napisał:
>> No i w czym masz w ogóle problem? $_ to zmienna globalna.
>>

> i co z tego?
>
> dla
>
> sub S(\$){
>    my $S=shift;  #ref($PAR)
>    $$S=11;       #$PAR=11
> }
>
>
> Jak napisać funkcję zwracającą wynik przez parametr. W powyższym
> przykładzie próbowałem to zrobi przez prototyp (\$), ale kiedy nie podam
> parametru - program czepia się.
>
> Wywołanie:
>
>    X;
>
> kończy się błędem.
>
> Chcę żeby $_ po wywołaniu X miało wartość 11;
>
> Przy funkcji nie prototypowanej (innej) też nie działa, np:
>
> sub X{
>    my $S=shift;
>    print "$S\n";
> }
>
> $_=1111;
>
>
> Wywołanie:
>
> X;
>
> powinno wypisać 1111, nie robi nic.
>
Ale się wygłupiłem ;)
Zapomniałem w ogóle o globalności - za bardzo się przejąłem unikaniem 
efektów ubocznych.

Dopiero, gdy w którejś procedurze "zlokalizowałem" $_ i uświadomiłem 
sobie, że przecież ona musi być local, żeby nie zmienić globalnie :).
Procedura ~j.w.

sub X{
   my $S=shift;
   my $GLOBAL=(!$S);
   $S=11;
   $_=$S if($GLOBAL);
   return $S;
}

Działa .