Funcoes implementado. Ultima hora, cheio de variaveis globais.

[myPerl.git] / exps / func1.pl

func1 {
    my $a;
    $a = $a + 1;
}

$a = 3;
write_int($a);

func2 { $a = 1; }

func2();
func1();