構造体の受け渡し

明解Ｃ言語 入門編 > 12. 構造体 >

構造体の受け渡し

Perl

sub hiroko
{
    my ($std) = @_;
    
    $$std{"height"} = 180;
    $$std{"weight"} =  80;
}

%sanaka = (name => "Sanaka", height => 175);

printf("氏名：%s\n", $sanaka{"name"});
printf("身長：%d\n", $sanaka{"height"});
printf("体重：%f\n", $sanaka{"weight"});

print "\n";

&hiroko(\%sanaka);

printf("氏名：%s\n", $sanaka{"name"});
printf("身長：%d\n", $sanaka{"height"});
printf("体重：%f\n", $sanaka{"weight"});

実行結果

L:\>perl lesson_12_092.pl

氏名：Sanaka

身長：175

体重：0.000000
氏名：Sanaka

身長：180

体重：80.000000