Wie übergebe ich Parameter an ein Unterprogramm?

Question

Ich habe Schwierigkeiten beim Verständnis der Subroutinensyntax.

mit dem folgenden Code:

sub build_dyne_file{ 
open(DYNAP, "+>$veri_dir/$dyna_para") or die $!; 
    for (keys %hash){ 
     print DYNAP "#define ",$_," ",$hash{$_}->[$i],"\n"; 
    } 
    close(DYNAP); 
} 

for (my $i = 0 ; $i <$TEST_QUOTA ; $i++){ 
    build_dyna_file($i); 
} 

In 'build dyne Datei' Subroutine der 'for-Schleife' iteriert über den Hash-Schlüssel, während die $ i Parameter innerhalb der externen 'for-Schleife' verwendet.

Ich hoffe, Sie verstehen das Problem, wenn nicht - ich werde versuchen, es richtiger zu erklären.

danke für jede antwort.

Answer 1

Sie müssen erhalten die Parameter.

sub build_dyne_file { 
    my $i = shift; # take it off the parameter queue 
    ... 

Sie erklärt es mit einem lexical Umfang im unteren for-Schleife (mit my), so deshalb nur, dass Schleife sie „sehen“ kann. Wenn Sie es an build_dyne_file übergeben, müssen Sie den Parameter erhalten.

Bitte beachten Sie perlsub

Answer 2

Sie müssen die $i Parameter in dem Unterprogramm erhalten:

sub build_dyne_file 
{ 
    open(DYNAP, "+>$veri_dir/$dyna_para") or die $!; 

    # the crucial omission... 
    my $i = shift; 

    for (keys %hash){ 
     print DYNAP "#define ",$_," ",$hash{$_}->[$i],"\n"; 
    } 
    close(DYNAP); 
}