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

明解Ｃ言語 入門編 > 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..$k) { if (…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > さまざまな文字列操作 Perl # strcat $st1 = "1234567890"; $st2 = "ABCDE"; $st3 = $st1 . $st2; printf("%s + ", $st1); printf("%s = ", $st2); printf("%s\n", $st3); $st3 = join('', ($st1, $st2)); print…

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 指定した文字数だけ、文字列をコピー Perl

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 文字列のコピー Perl

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 文字列の長さを調べる Perl

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 「配列で実現する文字列」の配列と、「ポインタで実現する文字列」の配列 Perl

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 配列で実現する文字列と、ポインタで実現する文字列との、違い (文字列の代入) Perl

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 配列で実現する文字列と、ポインタで実現する文字列との、共通点 Perl

明解Ｃ言語 入門編 > 11. 文字列とポインタ > 配列で実現する文字列と、ポインタで実現する文字列 Perl

明解Ｃ言語 入門編 > 10. ポインタ > 配列の受け渡し Perl

明解Ｃ言語 入門編 > 10. ポインタ > 配列とポインタ Perl

明解Ｃ言語 入門編 > 10. ポインタ > ２つの値を交換する Perl sub swap1 { my ($nx, $ny) = @_; my $tmp = $nx; $nx = $ny; $ny = $tmp; } sub swap2 { my ($nx, $ny) = @_; my $tmp = $$nx; $$nx = $$ny; $$ny = $tmp; } $na = 57; $nb = 21; printf("整数…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 大文字・小文字の変換 Perl $str = "BohYoh"; $str = uc($str); print "大文字：$str\n"; $str = lc($str); print "小文字：$str\n"; 実行結果 L:\>perl lesson_09_076.pl 大文字：BOHYOH 小文字：bohyoh

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の配列を受け渡し Perl sub put_strary { my ($st, $n) = @_; for (0..$$n - 1) { print "st[$_] = \"$$st[$_]\"\n"; } } @cs = ("Turbo", "NA", "DOHC"); $n = 3; &put_strary(\@cs, \$n); 実行結果 L:\>perl …

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列内の数字の出現回数を数える Perl @cnt = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0); $str = "3.1415926535897932846"; foreach $char(split(//, $str)) { $cnt[$char]++ if (("0" le $char) && ($char le "9")); } $i =…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の走査 Perl sub put_string { my ($str) = @_; foreach $val(split(//, $str)) { print $val; } } $str = "ABC"; &put_string($str); print "\n"; 実行結果 L:\>perl lesson_09_073.pl ABC

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の長さを調べる Perl sub char_count { ($_) = @_; # 全角文字数を数え、全角文字を消去する $lz = s/[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]//g; # 半角文字数を数える $lh = length($_); # 全角・半角の文…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列の配列 Perl @cs = ("Turbo", "NA", "DOHC"); for (0..2) { printf("cs[%d] = \"%s\"\n", $_, $cs[$_]); } 実行結果 L:\>perl lesson_09_071.pl cs[0] = "Turbo" cs[1] = "NA" cs[2] = "DOHC"

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列を読み込み、書式化して表示 Perl print "文字を入力してください："; chomp($str = <>); printf("%s\n", $str); # そのまま printf("%5s\n", $str); # 最低５桁 printf("%.3s\n", $str); # ３桁まで printf("%…

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列を格納する配列 Perl

明解Ｃ言語 入門編 > 9. 文字列の基本 > 文字列リテラルの大きさを表示する Perl $n = length("123"); print "length('123') = $n \n"; 実行結果 L:\>perl lesson_09_068.pl length('123') = 3

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 標準入力からの入力を標準出力にコピーする Perl print while(<>); 実行結果 L:\>perl lesson_08_067.pl Hello, Hello, World! World! ^Z

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 標準入力からの入力に現れた数字をカウントする (ver.2) Perl

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 標準入力からの入力に現れた数字をカウントする Perl

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 最大公約数を求める (再帰) Perl

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 階乗を求める (再帰) Perl sub factorial { my ($n) = @_; return ($n * &factorial($n -1)) if ($n > 0); return 1; } $n = 3; printf("%dの階乗は%dです。\n", $n, &factorial($n)); 実行結…

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 選ばれた動物の鳴き声を表示 (列挙体) Perl

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 警報を発しながら表示を行うマクロ (カンマ演算子) Perl

明解Ｃ言語 入門編 > 8. いろいろなプログラムを作ってみよう > 整数の２乗と浮動小数点数２乗 (関数マクロ) Perl