如何將參數傳遞給子程序？

Question

我在理解子程序語法時遇到了困難。使用

以下代碼：

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); 
} 

在「構建達因文件」的子程序，在散列密鑰的「for循環」迭代，而外部「for循環」中所使用的$ I參數。

我希望你明白這個問題，如果不是的話 - 我會試着更正確地解釋它。

感謝您的任何答案。

Answer 1

你必須收到參數。

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

您在較低的一個lexical範圍for循環（使用my）宣佈它，所以因此只有迴路可以「看到」它。當你把它傳遞給build_dyne_file時，你需要接收參數。

請參閱perlsub

Answer 2

你需要獲得$i參數在子程序：

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); 
}