Ahoj,

muze mi prosim nekdo vysvetlit, proc nasledujici program dela co dela?

sub f1 {
my $counter = 0;
f2();

sub f2 { $counter++; print "$counter\n"; }
}

f1; f1; f1; f1;



Vypise 1,2,3,4, ja bych ale ocekaval, ze vypise 1,1,1,1? Muzete mi prosim objasnit jak se v tomto pripade s tou promennou ptacuje?

Diky,

O.H.

Priznam se, ze perl zas tak moc neznam, ale to zanoreni mi prijde celkem logicke. Nicmene zda se, ze na to interpret primo upozornuje – variable "$counter" will not stay shared.

Pomoci "my" se deklaruje promenna, ktera je videt pouze v dane funkci. Ve vasem pripade je $counter v f2 globalni promenna (nebyla deklarovana pomoci "my" ani "local"; je to jina promenna nez $counter v f1) a proto se pri kazdem volani f2 inkrementuje.

Vami ocekavane chovani lze docilit deklaraci pomoci "local" v f1 (promenna je videt v dane funkci a ve funkcich z ni volanych):

sub f1 {
local $counter = 0;
f2();

sub f2 { $counter++; print "$counter\n"; }
}

f1; f1; f1; f1;

Jeden by rekl, ze je to zvlastni. Moje chapani programu by bylo, ze ta promenna je lokalni pro f1 (a funkce uvnitr teto funkce vytvorene), Ovsem zaroven bych ocekaval, ze pro kazde volani f1 vznikne nova funkce f2 (se stejnym kodem, ale odlisnym prostredim promennych, dedicim od prostredi funkce f1, kde byla definovana).

To jenom dokazuje muj nazor, ze perl je divny.

Mno, me se zda, ze uplne jina nez ta v f1 to asi nebude, protoze kdyz deklaruju:

my $counter;
$counter = 100;

tak se potom vypisuje 101, 102, 103, 104,

takze neco spolecneho mit musi, ne?