『明解Ｃ言語 入門編』in Perl 柴田望洋『明解C言語 入門編』を Perl で実装してみます。 1. まずは慣れよう 000.整数値 15 と 37 の和を表示する 001.整数値 15 から 37 を引いた値を表示する 002.整数値 15 と 37 の和を親切に表示する 003.２つの変数に整…

明解Ｃ言語 入門編 > 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-…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体の動的配列 (realloc) Perl

明解Ｃ言語 入門編 > 12. 構造体 > 構造体の動的配列 (malloc) 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…

明解Ｃ言語 入門編 > 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->…

明解Ｃ言語 入門編 > 12. 構造体 > ５人の学生を 身長で ソート (構造体) Perl $NINSU = 5; sub swap { my ($x, $y) = @_; $tmp = $$x; $$x = $$y; $$y = $tmp; } sub sort { my ($data, $n) = @_; $k = $$n - 1; while ($k >= 0) { $j = -1; foreach $i(1..…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体を返す関数 Perl

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

明解Ｃ言語 入門編 > 12. 構造体 > -> 演算子 Perl

明解Ｃ言語 入門編 > 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", $sa…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体のメンバの初期化 Perl %sanaka = (name => "Sanaka", height => 175, weight => 60.5); printf("氏名：%s\n", $sanaka{"name"}); printf("身長：%d\n", $sanaka{"height"}); printf("体重：%f\n", $sanaka{"weight"…

明解Ｃ言語 入門編 > 12. 構造体 > 構造体 Perl $sanaka{"name"} = "Sanaka"; $sanaka{"height"} = 175; $sanaka{"weight"} = 60.5; printf("氏名：%s\n", $sanaka{"name"}); printf("身長：%d\n", $sanaka{"height"}); printf("体重：%f\n", $sanaka{"weigh…