明解Ｃ言語 入門編 > 12. 構造体 > ポインタのソート Perl $NINSU = 5; sub swap { my ($x, $y) = @_; $tmp = $$x; $$x = $$y; $$y = $tmp; } sub compare_height { my ($x, $y) = @_; return 1 if ($$x->{"height"} > $$y->{"height"}); return -1 if ($$x-…