漢のUNIX　JSON データを扱うJanssonライブラリ（Vol.55掲載）

投稿日：2018.07.18　｜　カテゴリー：　コード

著者：後藤大地

C言語のJSON用ライブラリ「Jansson」の使い方を紹介する。Janssonライブラリは、使い方がかなり直感的で扱いやすい。C言語でJSONデータを扱いたいのなら最初に使っておきたいものだ。

記事本文掲載のシェルスクリプトマガジンvol.55は以下のリンク先でご購入できます。

{
  "Image": {
      "Width":  800,
      "Height": 600,
      "Title":  "View from 15th Floor",
      "Thumbnail": {
          "Url":    "http://www.example.com/image/481989943",
          "Height": 125,
          "Width":  100
      },
      "Animated" : false,
      "IDs": [116, 943, 234, 38793]
    }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

{

"Image": {

"Width": 800,

"Height": 600,

"Title": "View from 15th Floor",

"Thumbnail": {

"Url": "http://www.example.com/image/481989943",

"Height": 125,

"Width": 100

},

"Animated" : false,

"IDs": [116, 943, 234, 38793]

}

[
  {
     "precision": "zip",
     "Latitude":  37.7668,
     "Longitude": -122.3959,
     "Address":   "",
     "City":      "SAN FRANCISCO",
     "State":     "CA",
     "Zip":       "94107",
     "Country":   "US"
  },
  {
     "precision": "zip",
     "Latitude":  37.371991,
     "Longitude": -122.026020,
     "Address":   "",
     "City":      "SUNNYVALE",
     "State":     "CA",
     "Zip":       "94085",
     "Country":   "US"
  }
]

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

[

{

"precision": "zip",

"Latitude": 37.7668,

"Longitude": -122.3959,

"Address": "",

"City": "SAN FRANCISCO",

"State": "CA",

"Zip": "94107",

"Country": "US"

},

{

"precision": "zip",

"Latitude": 37.371991,

"Longitude": -122.026020,

"Address": "",

"City": "SUNNYVALE",

"State": "CA",

"Zip": "94085",

"Country": "US"

}

]

{"Image":{"Width":800,"Height":600,"Title":"View from 15th Floor","Thumbnail":{"Url":"http://www.example.com/image/481989943","Height":125,"Width":100},"Animated":false,"IDs":[116,943,234,38793]}}

1	{"Image":{"Width":800,"Height":600,"Title":"View from 15th Floor","Thumbnail":{"Url":"http://www.example.com/image/481989943","Height":125,"Width":100},"Animated":false,"IDs":[116,943,234,38793]}}

[{"precision":"zip","Latitude":37.7668,"Longitude":-122.3959,"Address":"","City":"SAN FRANCISCO","State":"CA","Zip":"94107","Country":"US"},{"precision":"zip","Latitude":37.371991,"Longitude":-122.026020,"Address":"","City":"SUNNYVALE","State":"CA","Zip":"94085","Country":"US"}]

1	[{"precision":"zip","Latitude":37.7668,"Longitude":-122.3959,"Address":"","City":"SAN FRANCISCO","State":"CA","Zip":"94107","Country":"US"},{"precision":"zip","Latitude":37.371991,"Longitude":-122.026020,"Address":"","City":"SUNNYVALE","State":"CA","Zip":"94085","Country":"US"}]

#include <stdio.h>
#include <stdlib.h>
#include <jansson.h>

void print_json_aux(json_t *element, int indent);

const char *json_plural(int count) {
    return count == 1 ? "" : "s";
}

void print_json_indent(int indent) {
    int i;
    for (i = 0; i < indent; i++) { putchar(' '); }
}

void print_json_object(json_t *element, int indent) {
    size_t size;
    const char *key;
    json_t *value;

    print_json_indent(indent);
    size = json_object_size(element);

    printf("JSON Object of %ld pair%s:\n", size, json_plural(size));
    json_object_foreach(element, key, value) {
        print_json_indent(indent + 2);
        printf("JSON Key: \"%s\"\n", key);
        print_json_aux(value, indent + 2);
    }

}

void print_json_array(json_t *element, int indent) {
    size_t i;
    size_t size = json_array_size(element);
    print_json_indent(indent);

    printf("JSON Array of %ld element%s:\n", size, json_plural(size));
    for (i = 0; i < size; i++) {
        print_json_aux(json_array_get(element, i), indent + 2);
    }
}

void print_json_string(json_t *element, int indent) {
    print_json_indent(indent);
    printf("JSON String: \"%s\"\n", json_string_value(element));
}

void print_json_integer(json_t *element, int indent) {
    print_json_indent(indent);
    printf("JSON Integer: \"%" JSON_INTEGER_FORMAT "\"\n", json_integer_value(element));
}

void print_json_real(json_t *element, int indent) {
    print_json_indent(indent);
    printf("JSON Real: %f\n", json_real_value(element));
}

void print_json_true(json_t *element, int indent) {
    (void)element;
    print_json_indent(indent);
    printf("JSON True\n");
}

void print_json_false(json_t *element, int indent) {
    (void)element;
    print_json_indent(indent);
    printf("JSON False\n");
}

void print_json_null(json_t *element, int indent) {
    (void)element;
    print_json_indent(indent);
    printf("JSON Null\n");
}

void print_json_aux(json_t *element, int indent) {
    switch (json_typeof(element)) {
    case JSON_OBJECT:
        print_json_object(element, indent);
        break;
    case JSON_ARRAY:
        print_json_array(element, indent);
        break;
    case JSON_STRING:
        print_json_string(element, indent);
        break;
    case JSON_INTEGER:
        print_json_integer(element, indent);
        break;
    case JSON_REAL:
        print_json_real(element, indent);
        break;
    case JSON_TRUE:
        print_json_true(element, indent);
        break;
    case JSON_FALSE:
        print_json_false(element, indent);
        break;
    case JSON_NULL:
        print_json_null(element, indent);
        break;
    default:
        fprintf(stderr, "unrecognized JSON type %d\n", json_typeof(element));
    }
}

void print_json(json_t *root) {
    print_json_aux(root, 0);
}

json_t *load_json(const char *text) {
    json_t *root;
    json_error_t error;

    root = json_loads(text, 0, &error);

    if (root) {
        return root;
    } else {
        fprintf(stderr, "json error on line %d: %s\n", error.line, error.text);
        return (json_t *)0;
    }
}

char *read_line(char *line, int max_chars) {
    printf("Type some JSON > ");
    fflush(stdout);
    return fgets(line, max_chars, stdin);
}

int main(int argc, char *argv[]) {
    char line[4096];

    if (argc != 1) {
        fprintf(stderr, "Usage: %s\n", argv[0]);
        exit(-1);
    }

    while (read_line(line, 4096) != (char *)NULL) {

        json_t *root = load_json(line);

        if (root) {
            print_json(root);
            json_decref(root);
        }
    }

    return 0;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

#include <stdio.h>

#include <stdlib.h>

#include <jansson.h>

void print_json_aux(json_t *element, int indent);

const char *json_plural(int count) {

return count == 1 ? "" : "s";

}

void print_json_indent(int indent) {

int i;

for (i = 0; i < indent; i++) { putchar(' '); }

}

void print_json_object(json_t *element, int indent) {

size_t size;

const char *key;

json_t *value;

print_json_indent(indent);

size = json_object_size(element);

printf("JSON Object of %ld pair%s:\n", size, json_plural(size));

json_object_foreach(element, key, value) {

print_json_indent(indent + 2);

printf("JSON Key: \"%s\"\n", key);

print_json_aux(value, indent + 2);

}

void print_json_array(json_t *element, int indent) {

size_t i;

size_t size = json_array_size(element);

print_json_indent(indent);

printf("JSON Array of %ld element%s:\n", size, json_plural(size));

for (i = 0; i < size; i++) {

print_json_aux(json_array_get(element, i), indent + 2);

}

void print_json_string(json_t *element, int indent) {

print_json_indent(indent);

printf("JSON String: \"%s\"\n", json_string_value(element));

}

void print_json_integer(json_t *element, int indent) {

print_json_indent(indent);

printf("JSON Integer: \"%" JSON_INTEGER_FORMAT "\"\n", json_integer_value(element));

}

void print_json_real(json_t *element, int indent) {

print_json_indent(indent);

printf("JSON Real: %f\n", json_real_value(element));

}

void print_json_true(json_t *element, int indent) {

(void)element;

print_json_indent(indent);

printf("JSON True\n");

}

void print_json_false(json_t *element, int indent) {

(void)element;

print_json_indent(indent);

printf("JSON False\n");

}

void print_json_null(json_t *element, int indent) {

(void)element;

print_json_indent(indent);

printf("JSON Null\n");

}

void print_json_aux(json_t *element, int indent) {

switch (json_typeof(element)) {

case JSON_OBJECT:

print_json_object(element, indent);

break;

case JSON_ARRAY:

print_json_array(element, indent);

break;

case JSON_STRING:

print_json_string(element, indent);

break;

case JSON_INTEGER:

print_json_integer(element, indent);

break;

case JSON_REAL:

print_json_real(element, indent);

break;

case JSON_TRUE:

print_json_true(element, indent);

break;

case JSON_FALSE:

print_json_false(element, indent);

break;

case JSON_NULL:

print_json_null(element, indent);

break;

default:

fprintf(stderr, "unrecognized JSON type %d\n", json_typeof(element));

}

void print_json(json_t *root) {

print_json_aux(root, 0);

}

json_t *load_json(const char *text) {

json_t *root;

json_error_t error;

root = json_loads(text, 0, &error);

if (root) {

return root;

} else {

fprintf(stderr, "json error on line %d: %s\n", error.line, error.text);

return (json_t *)0;

}

char *read_line(char *line, int max_chars) {

printf("Type some JSON > ");

fflush(stdout);

return fgets(line, max_chars, stdin);

}

int main(int argc, char *argv[]) {

char line[4096];

if (argc != 1) {

fprintf(stderr, "Usage: %s\n", argv[0]);

exit(-1);

}

while (read_line(line, 4096) != (char *)NULL) {

json_t *root = load_json(line);

if (root) {

print_json(root);

json_decref(root);

}

return 0;

}

#include <stdio.h>
#include <stdlib.h>
#include <jansson.h>

int main(int argc, char *argv[])
{
  // JSONデータをパース
  json_error_t error;
  json_t *root = json_loads(buf, 0, &error);

  // JSON要素の種類判定
  switch (json_typeof(root)) {
  case JSON_OBJECT:  break;
  case JSON_ARRAY:  break;
  case JSON_STRING:  break;
  case JSON_INTEGER:  break;
  case JSON_REAL:    break;
  case JSON_TRUE:    break;
  case JSON_FALSE:  break;
  case JSON_NULL:    break;
  default:
  }

  // JSONデータを印刷
  printf("%s\n", json_string_value(element));
  printf("%f\n", json_real_value(element));
  printf("%lld\n", json_integer_value(element));

  // 配列処理
  int index;
  json_t *value;
  json_array_foreach(element, index, value) {
    printf("%d\n", index);
    ...value...
  }

  // オブジェクト処理
  const char *key;
  json_t *value;
  json_object_foreach(element, key, value) {
    printf("%s\n", key);
    ...value...
  }

  // メモリー解放
  json_decref(root);

  return 0;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

#include <stdio.h>

#include <stdlib.h>

#include <jansson.h>

int main(int argc, char *argv[])

{

// JSONデータをパース

json_error_t error;

json_t *root = json_loads(buf, 0, &error);

// JSON要素の種類判定

switch (json_typeof(root)) {

case JSON_OBJECT: break;

case JSON_ARRAY: break;

case JSON_STRING: break;

case JSON_INTEGER: break;

case JSON_REAL: break;

case JSON_TRUE: break;

case JSON_FALSE: break;

case JSON_NULL: break;

default:

}

// JSONデータを印刷

printf("%s\n", json_string_value(element));

printf("%f\n", json_real_value(element));

printf("%lld\n", json_integer_value(element));

// 配列処理

int index;

json_t *value;

json_array_foreach(element, index, value) {

printf("%d\n", index);

...value...

}

// オブジェクト処理

const char *key;

json_t *value;

json_object_foreach(element, key, value) {

printf("%s\n", key);

...value...

}

// メモリー解放

json_decref(root);

return 0;

}

#include <unistd.h>
#include <fcntl.h>
#include <stdio.h>
#include <stdlib.h>
#include <jansson.h>

void print(json_t *element, int indent)
{
  const char *key;
  json_t *value;
  int index;

#define INDENT \
  for (int i = 0; i < indent; i++) \
    putchar(' ');

  switch (json_typeof(element)) {
  case JSON_OBJECT:
    putchar('\n');
    json_object_foreach(element, key, value) {
      INDENT
      printf("%s: ", key);
      print(value, 1+indent);
    }
    break;
  case JSON_ARRAY:
    putchar('\n');
    json_array_foreach(element, index, value) {
      INDENT
      printf("%d: ", index);
      print(value, 1+indent);
    }
    break;
  case JSON_STRING:
    printf("%s\n", json_string_value(element));
    break;
  case JSON_INTEGER:
    printf("%lld\n", json_integer_value(element));
    break;
  case JSON_REAL:
    printf("%f\n", json_real_value(element));
    break;
  case JSON_TRUE:
    printf("true\n");
    break;
  case JSON_FALSE:
    printf("false\n");
    break;
  case JSON_NULL:
    printf("null\n");
    break;
  }
}

int main(int argc, char *argv[])
{
  char buf[1024 * 1024];
  int fd = open(argv[1], O_RDONLY);
  read(fd, buf, 1024 * 1024 - 1);

  // JSONデータをパース
  json_error_t error;
  json_t *root = json_loads(buf, 0, &error);

  // JSONデータをトラバースしながら印刷
  print(root, 0);

  // JSONメモリー解放
  json_decref(root);

  close(fd);
  return 0;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

#include <unistd.h>

#include <fcntl.h>

#include <stdio.h>

#include <stdlib.h>

#include <jansson.h>

void print(json_t *element, int indent)

{

const char *key;

json_t *value;

int index;

#define INDENT \

for (int i = 0; i < indent; i++) \

putchar(' ');

switch (json_typeof(element)) {

case JSON_OBJECT:

putchar('\n');

json_object_foreach(element, key, value) {

INDENT

printf("%s: ", key);

print(value, 1+indent);

}

break;

case JSON_ARRAY:

putchar('\n');

json_array_foreach(element, index, value) {

INDENT

printf("%d: ", index);

print(value, 1+indent);

}

break;

case JSON_STRING:

printf("%s\n", json_string_value(element));

break;

case JSON_INTEGER:

printf("%lld\n", json_integer_value(element));

break;

case JSON_REAL:

printf("%f\n", json_real_value(element));

break;

case JSON_TRUE:

printf("true\n");

break;

case JSON_FALSE:

printf("false\n");

break;

case JSON_NULL:

printf("null\n");

break;

}

int main(int argc, char *argv[])

{

char buf[1024 * 1024];

int fd = open(argv[1], O_RDONLY);

read(fd, buf, 1024 * 1024 - 1);

// JSONデータをパース

json_error_t error;

json_t *root = json_loads(buf, 0, &error);

// JSONデータをトラバースしながら印刷

print(root, 0);

// JSONメモリー解放

json_decref(root);

close(fd);

return 0;

}

ラズパイ入門ボードで学ぶ電子回路の制御（Vol.55掲載）

投稿日：2018.07.18　｜　カテゴリー：　コード

著者：米田聡

シェルスクリプトマガジンでは、小型コンピュータボード「Raspberry Pi」（ラズパイ）のプログラミングが楽しめる拡張ボード「ラズパイ入門ボード」を制作しました。本連載では、ラズパイ入門ボードを使った電子回路制御を取り上げていきます。第3回は、OLEDに画像を表示します。

記事本文掲載のシェルスクリプトマガジンvol.55は以下のリンク先でご購入できます。

#!/usr/bin/python3
# -*- coding: utf-8 -*-

import time
import Adafruit_GPIO.SPI as SPI
import Adafruit_SSD1306
import RPi.GPIO as GPIO

from PIL import Image
from PIL import ImageDraw
from PIL import ImageFont

class EB_OLED(Adafruit_SSD1306.SSD1306_128_64):

  WIDTH = 128
  HEIGHT = 64
  
  __RST = 24
  __DC = 23
  SPI_PORT = 0
  SPI_DEVICE = 0
  
  def __init__(self):
    self.__spi = SPI.SpiDev(self.SPI_PORT, self.SPI_DEVICE, max_speed_hz=8000000)
    super().__init__(rst=self.__RST, dc=self.__DC, spi=self.__spi)


if __name__ == "__main__":

  oled = EB_OLED()
  # 初期化
  oled.begin()
  oled.clear()
  oled.display()
  
  jpg = Image.open("sample.jpg")
  # 画像を縮小
  scale = float(float(EB_OLED.WIDTH)/float(jpg.size[0]))
  jpg = jpg.resize((int(jpg.size[0] * scale), int(jpg.size[1]*scale)))
  jpg = jpg.crop(box=(0, 0, EB_OLED.WIDTH, EB_OLED.HEIGHT))
  # 2値に変換
  image = jpg.convert('1')
  oled.image(image)
  oled.display()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

#!/usr/bin/python3

# -*- coding: utf-8 -*-

import time

import Adafruit_GPIO.SPI as SPI

import Adafruit_SSD1306

import RPi.GPIO as GPIO

from PIL import Image

from PIL import ImageDraw

from PIL import ImageFont

class EB_OLED(Adafruit_SSD1306.SSD1306_128_64):

WIDTH = 128

HEIGHT = 64

__RST = 24

__DC = 23

SPI_PORT = 0

SPI_DEVICE = 0

def __init__(self):

self.__spi = SPI.SpiDev(self.SPI_PORT, self.SPI_DEVICE, max_speed_hz=8000000)

super().__init__(rst=self.__RST, dc=self.__DC, spi=self.__spi)

if __name__ == "__main__":

oled = EB_OLED()

# 初期化

oled.begin()

oled.clear()

oled.display()

jpg = Image.open("sample.jpg")

# 画像を縮小

scale = float(float(EB_OLED.WIDTH)/float(jpg.size[0]))

jpg = jpg.resize((int(jpg.size[0] * scale), int(jpg.size[1]*scale)))

jpg = jpg.crop(box=(0, 0, EB_OLED.WIDTH, EB_OLED.HEIGHT))

# 2値に変換

image = jpg.convert('1')

oled.image(image)

oled.display()

SW1=4
SW2=17
SW3=5
SW4=6

pos_y = 0
img_height = 0
f_exit = False
jpg = None

def sw_event(channel):

  global pos_y
  global f_exit
  global jpg
  global img_height

  if channel == SW1:
    if (img_height - pos_y - EB_OLED.HEIGHT) >= 0:
      pos_y += 1
  elif channel == SW4:
    if pos_y <= 0:
      return
    pos_y -= 1
  elif channel == SW2:
    f_exit = True
  
  image = jpg.crop(box=(0, pos_y, EB_OLED.WIDTH, EB_OLED.HEIGHT+pos_y))
  oled.image(image)
  oled.display()
  

if __name__ == "__main__":

  oled = EB_OLED()
  # OLED 初期化
  oled.begin()
  oled.clear()
  oled.display()
  
  # スイッチ初期化
  GPIO.setmode(GPIO.BCM)
  GPIO.setup([SW1, SW2, SW4], GPIO.IN)
  GPIO.add_event_detect(SW1, GPIO.FALLING, bouncetime=60)
  GPIO.add_event_detect(SW2, GPIO.FALLING, bouncetime=60)
  GPIO.add_event_detect(SW4, GPIO.FALLING, bouncetime=60)
  
  GPIO.add_event_callback(SW1, sw_event )
  GPIO.add_event_callback(SW2, sw_event )
  GPIO.add_event_callback(SW4, sw_event )
  
  jpg = Image.open("sample.jpg")
  scale = float(float(EB_OLED.WIDTH)/float(jpg.size[0]))
  jpg = jpg.resize((int(jpg.size[0] * scale), int(jpg.size[1]*scale)))
  # 2値に変換
  jpg = jpg.convert('1')
  img_height = jpg.size[1]
  
  image = jpg.crop(box=(0, 0, EB_OLED.WIDTH, EB_OLED.HEIGHT))
  oled.image(image)
  oled.display()

  while f_exit == False:
    time.sleep(0.1)

  GPIO.cleanup()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

SW1=4

SW2=17

SW3=5

SW4=6

pos_y = 0

img_height = 0

f_exit = False

jpg = None

def sw_event(channel):

global pos_y

global f_exit

global jpg

global img_height

if channel == SW1:

if (img_height - pos_y - EB_OLED.HEIGHT) >= 0:

pos_y += 1

elif channel == SW4:

if pos_y <= 0:

return

pos_y -= 1

elif channel == SW2:

f_exit = True

image = jpg.crop(box=(0, pos_y, EB_OLED.WIDTH, EB_OLED.HEIGHT+pos_y))

oled.image(image)

oled.display()

if __name__ == "__main__":

oled = EB_OLED()

# OLED 初期化

oled.begin()

oled.clear()

oled.display()

# スイッチ初期化

GPIO.setmode(GPIO.BCM)

GPIO.setup([SW1, SW2, SW4], GPIO.IN)

GPIO.add_event_detect(SW1, GPIO.FALLING, bouncetime=60)

GPIO.add_event_detect(SW2, GPIO.FALLING, bouncetime=60)

GPIO.add_event_detect(SW4, GPIO.FALLING, bouncetime=60)

GPIO.add_event_callback(SW1, sw_event )

GPIO.add_event_callback(SW2, sw_event )

GPIO.add_event_callback(SW4, sw_event )

jpg = Image.open("sample.jpg")

scale = float(float(EB_OLED.WIDTH)/float(jpg.size[0]))

jpg = jpg.resize((int(jpg.size[0] * scale), int(jpg.size[1]*scale)))

# 2値に変換

jpg = jpg.convert('1')

img_height = jpg.size[1]

image = jpg.crop(box=(0, 0, EB_OLED.WIDTH, EB_OLED.HEIGHT))

oled.image(image)

oled.display()

while f_exit == False:

time.sleep(0.1)

GPIO.cleanup()

特別企画　普通のパソコンではじめる仮想通貨マイニング（Vol.55掲載）

投稿日：2018.07.18　｜　カテゴリー：　コード

著者：末安泰三

一時期のバブルは弾けた感じはありますが、仮想通貨にはまだまだ注目が集まっています。仮想通貨の一部は、パソコンでマイニング（採掘）という作業をすることで獲得できます。ASIC 耐性が高い「yescrypt」と呼ばれるハッシュ関数を使用する仮想通貨をマイニングする方法を紹介します。

記事本文掲載のシェルスクリプトマガジンvol.55は以下のリンク先でご購入できます。

#!/bin/sh

if [ $# -ne 1 ];then
  echo "Usage: sh reqpkg.sh program" 1>&2
  exit 1
fi

apt-file update >/dev/null 2>&1
ldd $1 | grep "not found" | cut -d '=' -f 1 | tr -d [:blank:] | xargs -I {} apt-file -l search {}

1

2

3

4

5

6

7

8

9

#!/bin/sh

if [ $# -ne 1 ];then

echo "Usage: sh reqpkg.sh program" 1>&2

exit 1

fi

apt-file update >/dev/null 2>&1

ldd $1 | grep "not found" | cut -d '=' -f 1 | tr -d [:blank:] | xargs -I {} apt-file -l search {}

特集1　CentOSではじめるLinuxサーバー構築（Vol.55掲載）

投稿日：2018.07.18　｜　カテゴリー：　コード

著者：麻生二郎

CentOSやUbuntuなどのLinuxディストリビューション、パソコン、インターネットに接続する環境を用意すれば、無料で実用的なサーバーを構築できます。本特集では、企業のサーバーOSとして人気のCentOSを用いて、「ファイル共有」と「ブログ」の2種類のサーバーを立ち上げる方法を分かりやすく紹介します。
記事本文掲載のシェルスクリプトマガジンvol.55は以下のリンク先でご購入できます。

Part2　リモートアクセス環境の構築

TYPE="Ethernet"
PROXY_METHOD="none"
BROWSER_ONLY="no"
BOOTPROTO="none"
IPADDR="192.168.10.254"
PREFIX="24"
GATEWAY="192.168.10.1"
DNS1="192.168.10.1"
DEFROUTE="yes"
IPV4_FAILURE_FATAL="no"
IPV6INIT="yes"
IPV6_AUTOCONF="yes"
IPV6_DEFROUTE="yes"
IPV6_FAILURE_FATAL="no"
IPV6_ADDR_GEN_MODE="stable-privacy"
NAME="enp0s3"
UUID="120ac59c-2ec3-4ec4-b66f-2bcac2c8e18b"
DEVICE="enp0s3"
ONBOOT="yes"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

TYPE="Ethernet"

PROXY_METHOD="none"

BROWSER_ONLY="no"

BOOTPROTO="none"

IPADDR="192.168.10.254"

PREFIX="24"

GATEWAY="192.168.10.1"

DNS1="192.168.10.1"

DEFROUTE="yes"

IPV4_FAILURE_FATAL="no"

IPV6INIT="yes"

IPV6_AUTOCONF="yes"

IPV6_DEFROUTE="yes"

IPV6_FAILURE_FATAL="no"

IPV6_ADDR_GEN_MODE="stable-privacy"

NAME="enp0s3"

UUID="120ac59c-2ec3-4ec4-b66f-2bcac2c8e18b"

DEVICE="enp0s3"

ONBOOT="yes"

Part3 ファイル共有/ブログサーバーの構築

[global]
workgroup = SHELLMAG
dos charset = CP932
unix charset = UTF8

[share]
comment = CentOS
path = /var/share
browsable = yes
writable = yes
create mask = 0777
directory mask = 0777

1

2

3

4

5

6

7

8

9

10

11

12

[global]

workgroup = SHELLMAG

dos charset = CP932

unix charset = UTF8

[share]

comment = CentOS

path = /var/share

browsable = yes

writable = yes

create mask = 0777

directory mask = 0777

第13回　ストレージの使用量を制限する（クオータの設定1）

投稿日：2018.07.13　｜　カテゴリー：　記事

Linuxサーバー上で複数のユーザーが作業することもあります。通常、各ユーザーには、作業場所として「/home」ディレクトリーの下に自分の名前と同じ「ホームディレクトリー」が割り当てられています。自分のホームディレクトリー内なら自由にファイルを保存できます。

ただし、自由に保存できるからといって、一人のユーザーが多くのストレージ容量を使うと、システムや他の人が使用できる領域を圧迫しかねません。よって、ユーザーや、ユーザーが所属するグループごとにファイルシステム単位でストレージの使用容量を制限するための「クオータ」（Quota）機能が用意されています（図1）。そのクオータの設定方法を紹介します。今回も「Ubuntu Server 16.04 LTS」を例にします。

図1　ユーザーやグループごとにストレージの使用量を制限する

第12回　ストレージの可用性を高める（RAIDの復旧）

投稿日：2018.07.6　｜　カテゴリー：　記事

前回は、RAIDの運用管理における監視方法を紹介しました。RAIDの障害を検出したら、次の障害が発生する前に完全復旧させましょう。
完全復旧作業の手順は図1のようになります。

図1　RAIDアレイの完全復旧手順

まず、障害が発生したストレージをRAIDアレイから切り離します。そして、サーバーマシンから故障したストレージを抜き取り、新しいストレージを交換します。「ホットスワップ」または「ホットプラグ」に対応したベイまたはケースなら電源を入れたまま抜き差しできますが、大抵はホットスワップに対応していません。サーバーマシンをシャットダウンして電源をオフにしてからストレージを交換してください。
交換を終えたら、サーバーマシンの電源をオンにします。サーバーが起動したら、新しいストレージに物理ボリュームを作成します。作成したら、RAIDアレイに追加します。これで完全復旧の完了です。

第11回　ストレージの可用性を高める（RAIDの運用管理）

投稿日：2018.06.29　｜　カテゴリー：　記事

3回にわたって、Ubuntu Server 16.04 LTSにおけるRAIDアレイ（ソフトウエアRAID)の構築方法を紹介しました。複数のストレージを使ってRAIDを構成したことで、可用性を高めることができました。しかし、安心はできません。ストレージの故障から復旧するまでの間は、高可用性を確保できないからです。

常にRAIDの状態を監視し、ストレージの故障を発見したときはすぐに新しいストレージを割り当て完全復旧しなくてはいけません（図1）。よって、今回はRAIDの運用管理方法について解説します。

図1　RAIDアレイの監視

第10回　ストレージの可用性を高める（ソフトウエアRAIDの構築3）

投稿日：2018.06.22　｜　カテゴリー：　記事

前回と前々回で、Ubuntu Server 16.04 LTSのインストーラーを使った、ソフトウエアRAIDの構築方法を解説しました。今回は、既に動かしているUbuntuサーバーにRAID構成にしたストレージ（RAIDアレイ）を追加します（図1）。

図1　ソフトウエアRAIDによるRAIDアレイを追加

今回も扱うRAIDは「ソフトウエアRAID」です。LinuxにはソフトウエアRAIDを構築・管理する「mdadm」コマンドが用意されています。

第9回　ストレージの可用性を高める（ソフトウエアRAIDの構築2）

投稿日：2018.06.15　｜　カテゴリー：　記事

前回は、「BIOS」のファームウエアを搭載するマシンで、Ubuntu Server 16.04 LTSのインストーラーを使ったソフトウエアRAID（RAID 1、RAID 5、RAID 6）を構築する手順を解説しました。今回は、ファームウエアが「UEFI」のマシンでの手順を紹介します（図1）。

図1　ファームウエアが「UEFI」のマシンでUbuntu ServerのインストーラーによるRAID構築

前回も少し触れましたが、「EFIシステムパーティション」への障害対策が必要です。EFIシステムパーティションはRAID構成にできませんが、起動時にしか使いません。そこで、別のストレージを用意してその中に作成し、バックアップしておきます。

第8回　ストレージの可用性を高める（ソフトウエアRAIDの構築1）

投稿日：2018.06.8　｜　カテゴリー：　記事

前回は「RAID」（レイド、Redundant Arrays of Inexpensive/Independent Disks）の概要、「RAID 0」「RAID 1」「RAID 5」「RAID 6」「RAID 0+1」「RAID 1+0」の構成、「ハードウエアRAID」と「ソフトウエアRAID」などの種類を紹介しました。今回から数回にわたって、Ubuntu Server 16.04 LTSのストレージをRAID構成にする方法、RAIDの監視やストレージの障害検出、障害からの復旧方法を解説します。

今回は、Ubuntu Server 16.04 LTSのインストーラーを使った、ソフトウエアRAIDによるRAID 1、RAID 5、RAID 6を構築する手順です。マシンのファームウエアが「BIOS」なら、Ubuntu Serverのインストーラーからシステムで利用しているストレージを簡単にRAID構成にできるので、それから始めましょう（図1）。

図1　Ubuntu Server 16.04 LTSのインストーラーによるRAID構築

ちなみに、ファームウエアが「UEFI」の場合、ストレージの先頭にある、OS起動用のソフトなどを格納する「EFIシステムパーティション」への障害対策が必要です。このパーティションを含むストレージに障害が発生した状態で、サーバーを再起動すると起動しないことがあり得ます。UEFIのマシンにおけるシステム全体のRAID構築方法は、次回以降に解説します。

第7回　ストレージの可用性を高める（RAIDの概要）

投稿日：2018.06.1　｜　カテゴリー：　記事

「可用性」（Availability）とは、システム稼働を継続できる能力のことです。この可用性を向上するには、障害に対して強いシステムを構築できるかどうかにかかっています。
サーバーには、ソフトウエアによる障害以外にハードウエアによる障害もあります。ハードウエアの中で最も壊れやすいのが、機械部品（モーター）で動作する「ハードディスク」（HDD）です。HDDの経年劣化による故障は避けられません。一部のデータが読み出しにくかったり、読み出せなかったりと、部分的に故障するので、とてもやっかいです。
このように壊れやすいにもかかわらず、HDDはサーバー内の大切なデータを保存しています。大切なデータが失われてしまうと、システム稼働を継続できません。逆にいえば、HDDが故障しても大切なデータを失うことがなければ、システム稼働を継続できます。その方法として有効なのが「RAID」（レイド、Redundant Arrays of Inexpensive/Independent Disks）です。RAIDは、複数のストレージを組み合わせて、1台（または2台）のストレージが故障しても他のストレージによってデータを消失させない仕組みです（図1）。複数のストレージに同じデータを保存したり、データを修復するための「パリティー」を生成・保存したりして、データ消失を防ぎます。

図1　RAID（Redundant Arrays of Inexpensive/Independent Disks）

第6回　ストレージを柔軟に管理する（LVMの操作3）

投稿日：2018.05.25　｜　カテゴリー：　記事

第5回に引き続き、Linuxなどのストレージを柔軟に管理する仕組み「LVM」（Logical Volume Manager）の利点を紹介します。今回は「スナップショット」です。
このスナップショットは、LVMの「論理ボリューム」を瞬時にバックアップできるとても便利な機能です（図1）。スナップショット作成時の論理ボリューム（LV）の状態を維持でき、それを「dump」や「rsync」などのコマンドで簡単に取り出せます。

図1　スナップショット機能

ラズパイ入門ボードで学ぶ電子回路の制御（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：米田

シェルスクリプトマガジンでは、小型コンピュータボード「Raspberry Pi」（ラズパイ）のプログラミングが楽しめる拡張ボード「ラズパイ入門ボード」を制作しました。本連載では、ラズパイ入門ボードを使った電子回路制御を取り上げていきます。第2 回は、Grove System の光センサーを扱います。

記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

import time
import Adafruit_GPIO.SPI as SPI
import Adafruit_SSD1306

from PIL import Image
from PIL import ImageDraw
from PIL import ImageFont


class OLED():
	OLED_WIDTH = 128
	OLED_HEIGHT = 64

	RST = 24
	DC = 23
	SPI_PORT = 0
	SPI_DEVICE = 0

	DEFAULT_FONT = '/usr/share/fonts/truetype/fonts-japanese-gothic.ttf'
	FONT_SIZE = 14
	
	_LINE_HEIGHT = 16

	def __init__(self, port=SPI_PORT, dev=SPI_DEVICE, _rst=RST, _dc=DC):
		self._spi = SPI.SpiDev(port, dev, max_speed_hz=8000000)
		self._disp = Adafruit_SSD1306.SSD1306_128_64(rst=_rst, dc=_dc, spi=self._spi)
		self._disp.begin()
		self._disp.clear()
		self._disp.display()
		self._image = Image.new('1', (self.OLED_WIDTH, self.OLED_HEIGHT) ,0)
		self._draw = ImageDraw.Draw(self._image)
		self._font = ImageFont.truetype(self.DEFAULT_FONT, self.FONT_SIZE, encoding='unic')
		
	def put_string(self, str, line=0):
		self._draw.rectangle((0, line*self._LINE_HEIGHT, self.OLED_WIDTH,line*self._LINE_HEIGHT+self._LINE_HEIGHT), fill=(0))
		self._draw.text((0, line*self._LINE_HEIGHT), str, font=self._font, fill=1)
		self._disp.image(self._image)
		self._disp.display()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

import time

import Adafruit_GPIO.SPI as SPI

import Adafruit_SSD1306

from PIL import Image

from PIL import ImageDraw

from PIL import ImageFont

class OLED():

OLED_WIDTH = 128

OLED_HEIGHT = 64

RST = 24

DC = 23

SPI_PORT = 0

SPI_DEVICE = 0

DEFAULT_FONT = '/usr/share/fonts/truetype/fonts-japanese-gothic.ttf'

FONT_SIZE = 14

_LINE_HEIGHT = 16

def __init__(self, port=SPI_PORT, dev=SPI_DEVICE, _rst=RST, _dc=DC):

self._spi = SPI.SpiDev(port, dev, max_speed_hz=8000000)

self._disp = Adafruit_SSD1306.SSD1306_128_64(rst=_rst, dc=_dc, spi=self._spi)

self._disp.begin()

self._disp.clear()

self._disp.display()

self._image = Image.new('1', (self.OLED_WIDTH, self.OLED_HEIGHT) ,0)

self._draw = ImageDraw.Draw(self._image)

self._font = ImageFont.truetype(self.DEFAULT_FONT, self.FONT_SIZE, encoding='unic')

def put_string(self, str, line=0):

self._draw.rectangle((0, line*self._LINE_HEIGHT, self.OLED_WIDTH,line*self._LINE_HEIGHT+self._LINE_HEIGHT), fill=(0))

self._draw.text((0, line*self._LINE_HEIGHT), str, font=self._font, fill=1)

self._disp.image(self._image)

self._disp.display()

#!/usr/bin/python3
# -*- coding: utf-8 -*-

from tsl2561 import TSL2561
from OLED import OLED
import time

oled = OLED()
# アドレスを指定する
tsl = TSL2561(address=0x29)

oled.put_string('Current LUX')

while True:
	# lux()メソッドで現在の照度を得ることが出来る
	oled.put_string(str(tsl.lux()), 1)
	time.sleep(1)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

#!/usr/bin/python3

# -*- coding: utf-8 -*-

from tsl2561 import TSL2561

from OLED import OLED

import time

oled = OLED()

# アドレスを指定する

tsl = TSL2561(address=0x29)

oled.put_string('Current LUX')

while True:

# lux()メソッドで現在の照度を得ることが出来る

oled.put_string(str(tsl.lux()), 1)

time.sleep(1)

ユニケージ新コードレビュー（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：大内智明

ユニケージでは、小さな道具の「コマンド」をシェルスクリプトで組み合わせて、さまざまな業務システムを構築しています。本連載では、毎回あるテーマに従ってユニケージによるシェルスクリプトの記述例を分かりやすく紹介します。初回は、サーバー2重化時のデータ書き込みです。
記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

#!/bin/ush -xve
（略）
err ERROR_EXIT(){
  exit 1
}
（略）
if [ -z $(msctrl -job HACHU -ctrl C -msflg M -print host) ] ; then
  ERROR_EXIT
else
  set +e
  err true
  touch ${lv1d}/touchfile
  [ $? -eq 0 ] || echo "AP1" >> $tmp-cp-err
  err ERROR_EXIT
  set -e
  if [ -s $tmp-cp-err ];then
    errcnt=$(lineup 1 $tmp-cp-err | gyo)
    [ "${errcnt}" -eq "1" ] && ERROR_EXIT
  fi
  set +e
  err true
  正サーバーへのデータ書き込み処理（記述例）
  ファイルを書き込むコマンド
  [ $? -eq 0 ] || echo "AP1" >> $tmp-cp-err
  err ERROR_EXIT
  set -e
  if [ -s $tmp-cp-err ];then
    errcnt=$(lineup 1 $tmp-cp-err | gyo)
    [ "${errcnt}" -eq "1" ] && ERROR_EXIT
  fi
  if [ -z $(msctrl -job HACHUBT -ctrl C -msflg S -print host) ] ; then
    :
  else
    set +e
    err true
    副サーバーへの書き込み処理（記述例）
    ファイルを書き込むコマンド
    [ $? -eq 0 ] || echo "AP2" >> $tmp-cp-err
    err ERROR_EXIT
    set -e
    if [ -s $tmp-cp-err ];then
      errcnt=$(lineup 1 $tmp-cp-err | gyo)
      [ "${errcnt}" -eq "1" ] && ワーニング処理
    fi
  fi
fi

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

#!/bin/ush -xve

（略）

err ERROR_EXIT(){

exit 1

}

（略）

if [ -z $(msctrl -job HACHU -ctrl C -msflg M -print host) ] ; then

ERROR_EXIT

else

set +e

err true

touch ${lv1d}/touchfile

[ $? -eq 0 ] || echo "AP1" >> $tmp-cp-err

err ERROR_EXIT

set -e

if [ -s $tmp-cp-err ];then

errcnt=$(lineup 1 $tmp-cp-err | gyo)

[ "${errcnt}" -eq "1" ] && ERROR_EXIT

fi

set +e

err true

正サーバーへのデータ書き込み処理（記述例）

ファイルを書き込むコマンド

[ $? -eq 0 ] || echo "AP1" >> $tmp-cp-err

err ERROR_EXIT

set -e

if [ -s $tmp-cp-err ];then

errcnt=$(lineup 1 $tmp-cp-err | gyo)

[ "${errcnt}" -eq "1" ] && ERROR_EXIT

fi

if [ -z $(msctrl -job HACHUBT -ctrl C -msflg S -print host) ] ; then

:

else

set +e

err true

副サーバーへの書き込み処理（記述例）

ファイルを書き込むコマンド

[ $? -eq 0 ] || echo "AP2" >> $tmp-cp-err

err ERROR_EXIT

set -e

if [ -s $tmp-cp-err ];then

errcnt=$(lineup 1 $tmp-cp-err | gyo)

[ "${errcnt}" -eq "1" ] && ワーニング処理

fi

漢のUNIX　XML2JSON のコードを整理して仕上げる（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：後藤大地

前回までの2回で、XMLパーサーライブラリ「expat」の使い方と、expatによるXMLデータをJSONデータへ変換する方法を取り上げた。前回作成したサンプルコードはとりあえず動作するものだが、それほどきれいに整理はされていない。今回はこのサンプルコードを整理して完成させる。
記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

#include "xml2json.h"

int
main(int argc, char *argv[])
{
	char buf[BUFSIZ];
	int len, done;
	XML_Parser parser = XML_ParserCreate(NULL);

	XML_SetElementHandler(parser, begin, end);
	XML_SetCharacterDataHandler(parser, chardata);
	do {
		len = fread(buf, 1, sizeof(buf), stdin);
		done = len < sizeof(buf);
		if (XML_Parse(parser, buf, (int)len, done) == 
			XML_STATUS_ERROR)
			return 1;
	} while (!done);

	XML_ParserFree(parser);
	return 0;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

#include "xml2json.h"

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

int len, done;

XML_Parser parser = XML_ParserCreate(NULL);

XML_SetElementHandler(parser, begin, end);

XML_SetCharacterDataHandler(parser, chardata);

do {

len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR)

return 1;

} while (!done);

XML_ParserFree(parser);

return 0;

}

typedef enum __element_type {
	TYPE_STRUCTURE,
	TYPE_KEY,
	TYPE_VALUE,
	TYPE_NOT_APPLICABLE
} ELEMENT_TYPE;

typedef enum __element {
	ELEMENT_DOCUMENT,
	ELEMENT_DOCGROUP,
	ELEMENT_DOCINFO,
	ELEMENT_TITLE,
	ELEMENT_AUTHOR,
	ELEMENT_FIRSTEDITION,
	ELEMENT_LASTMODIFIED,
	ELEMENT_P,
	ELEMENT_NOT_APPLICABLE
} ELEMENT;

typedef struct __element_info {
	ELEMENT_TYPE	element_type;
	ELEMENT		element;
	char*		name;
} ELEMENT_INFO;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

typedef enum __element_type {

TYPE_STRUCTURE,

TYPE_KEY,

TYPE_VALUE,

TYPE_NOT_APPLICABLE

} ELEMENT_TYPE;

typedef enum __element {

ELEMENT_DOCUMENT,

ELEMENT_DOCGROUP,

ELEMENT_DOCINFO,

ELEMENT_TITLE,

ELEMENT_AUTHOR,

ELEMENT_FIRSTEDITION,

ELEMENT_LASTMODIFIED,

ELEMENT_P,

ELEMENT_NOT_APPLICABLE

} ELEMENT;

typedef struct __element_info {

ELEMENT_TYPE element_type;

ELEMENT element;

char* name;

} ELEMENT_INFO;

#include "xml2json.h"

static const ELEMENT_INFO ELEMENTS_INFO[] = {
	{ TYPE_STRUCTURE,	ELEMENT_DOCUMENT,	"document"	},
	{ TYPE_STRUCTURE,	ELEMENT_DOCGROUP,	"docgroup"	},
	{ TYPE_STRUCTURE,	ELEMENT_DOCINFO,	"docinfo"	},
	{ TYPE_KEY,		ELEMENT_TITLE,		"title"		},
	{ TYPE_KEY,		ELEMENT_AUTHOR,		"author"	},
	{ TYPE_KEY,		ELEMENT_FIRSTEDITION,	"firstedition"	},
	{ TYPE_KEY,		ELEMENT_LASTMODIFIED,	"lastmodified"	},
	{ TYPE_VALUE,		ELEMENT_P,		"p"		},
	{ TYPE_NOT_APPLICABLE,	ELEMENT_NOT_APPLICABLE,	NULL		}
};

ELEMENT_TYPE
name_2_element_type(const XML_Char *name)
{
	int i = 0;
	while (ELEMENTS_INFO[i].element != ELEMENT_NOT_APPLICABLE) {
		if (0 == strcmp(ELEMENTS_INFO[i].name, name))
			return ELEMENTS_INFO[i].element_type;

		i++;
	}

	return TYPE_NOT_APPLICABLE;
}

ELEMENT_TYPE
element_2_element_type(ELEMENT element)
{
	int i = 0;
	while (ELEMENTS_INFO[i].element != ELEMENT_NOT_APPLICABLE) {
		if (ELEMENTS_INFO[i].element == element)
			return ELEMENTS_INFO[i].element_type;

		i++;
	}

	return TYPE_NOT_APPLICABLE;
}

ELEMENT
name_2_element(const XML_Char *name)
{
	int i = 0;
	while (ELEMENTS_INFO[i].element != ELEMENT_NOT_APPLICABLE) {
		if (0 == strcmp(ELEMENTS_INFO[i].name, name))
			return ELEMENTS_INFO[i].element;

		i++;
	}

	return ELEMENT_NOT_APPLICABLE;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

#include "xml2json.h"

static const ELEMENT_INFO ELEMENTS_INFO[] = {

{ TYPE_STRUCTURE, ELEMENT_DOCUMENT, "document" },

{ TYPE_STRUCTURE, ELEMENT_DOCGROUP, "docgroup" },

{ TYPE_STRUCTURE, ELEMENT_DOCINFO, "docinfo" },

{ TYPE_KEY, ELEMENT_TITLE, "title" },

{ TYPE_KEY, ELEMENT_AUTHOR, "author" },

{ TYPE_KEY, ELEMENT_FIRSTEDITION, "firstedition" },

{ TYPE_KEY, ELEMENT_LASTMODIFIED, "lastmodified" },

{ TYPE_VALUE, ELEMENT_P, "p" },

{ TYPE_NOT_APPLICABLE, ELEMENT_NOT_APPLICABLE, NULL }

};

ELEMENT_TYPE

name_2_element_type(const XML_Char *name)

{

int i = 0;

while (ELEMENTS_INFO[i].element != ELEMENT_NOT_APPLICABLE) {

if (0 == strcmp(ELEMENTS_INFO[i].name, name))

return ELEMENTS_INFO[i].element_type;

i++;

}

return TYPE_NOT_APPLICABLE;

}

ELEMENT_TYPE

element_2_element_type(ELEMENT element)

{

int i = 0;

while (ELEMENTS_INFO[i].element != ELEMENT_NOT_APPLICABLE) {

if (ELEMENTS_INFO[i].element == element)

return ELEMENTS_INFO[i].element_type;

i++;

}

return TYPE_NOT_APPLICABLE;

}

ELEMENT

name_2_element(const XML_Char *name)

{

int i = 0;

while (ELEMENTS_INFO[i].element != ELEMENT_NOT_APPLICABLE) {

if (0 == strcmp(ELEMENTS_INFO[i].name, name))

return ELEMENTS_INFO[i].element;

i++;

}

return ELEMENT_NOT_APPLICABLE;

}

#include <sys/queue.h>
#include <stdlib.h>
#include <malloc_np.h>

#include "xml2json.h"

static int initialized = 0;
static struct slisthead *headp;
static struct entry {
	ELEMENT	element;
	SLIST_ENTRY(entry) entries;
} *np;
SLIST_HEAD(slisthead, entry) head = SLIST_HEAD_INITIALIZER(head);

static void init(void);

void
stack_push(ELEMENT element)
{
	init();

	np = malloc(sizeof(struct entry));
	np->element = element;
	SLIST_INSERT_HEAD(&head, np, entries);
}

void
stack_pop(void)
{
	init();

	np = SLIST_FIRST(&head);
	SLIST_REMOVE_HEAD(&head, entries);
	free(np);
}

ELEMENT
stack_top(void)
{
	init();

	np = SLIST_FIRST(&head);
	if (NULL == np)
		return ELEMENT_NOT_APPLICABLE;

	return (SLIST_FIRST(&head)->element);
}

static void
init(void)
{
	if (!initialized) {
		SLIST_INIT(&head);
		initialized = 1;
	}
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

#include <sys/queue.h>

#include <stdlib.h>

#include <malloc_np.h>

#include "xml2json.h"

static int initialized = 0;

static struct slisthead *headp;

static struct entry {

ELEMENT element;

SLIST_ENTRY(entry) entries;

} *np;

SLIST_HEAD(slisthead, entry) head = SLIST_HEAD_INITIALIZER(head);

static void init(void);

void

stack_push(ELEMENT element)

{

init();

np = malloc(sizeof(struct entry));

np->element = element;

SLIST_INSERT_HEAD(&head, np, entries);

}

void

stack_pop(void)

{

init();

np = SLIST_FIRST(&head);

SLIST_REMOVE_HEAD(&head, entries);

free(np);

}

ELEMENT

stack_top(void)

{

init();

np = SLIST_FIRST(&head);

if (NULL == np)

return ELEMENT_NOT_APPLICABLE;

return (SLIST_FIRST(&head)->element);

}

static void

init(void)

{

if (!initialized) {

SLIST_INIT(&head);

initialized = 1;

}

#include "xml2json.h"

static void indent(void);
static int depth = 0;

static ELEMENT pre_element;
static ELEMENT_TYPE pre_type;
static int pre_element_is_start_tag;

void XMLCALL
begin(void *d, const XML_Char *name, const XML_Char **attr)
{
	ELEMENT element = name_2_element(name);
	ELEMENT_TYPE type = name_2_element_type(name);

	ELEMENT parent = stack_top();
	ELEMENT_TYPE parent_type = element_2_element_type(parent);

	switch (element) {
	case ELEMENT_DOCUMENT:
		printf("{");
		break;
	default:
		switch (type) {
		case TYPE_STRUCTURE:
			switch (element) {
			case ELEMENT_DOCUMENT:
				printf("{ ");
				break;
			default:
				if (pre_element_is_start_tag)
					printf("\n");
				else
					printf(",\n");
				break;
			}
			indent();
			printf("\"%s\": {", name);
			break;
		case TYPE_KEY:
			switch (pre_type) {
			case TYPE_KEY:
				printf(",");
				break;
			default:
				break;
			}
			printf("\n");
			indent();
			printf("\"%s\":", name);
			break;
		case TYPE_VALUE:
			switch (parent_type) {
			case TYPE_KEY:
				putchar('"');
				break;
			default:
				if (pre_element_is_start_tag)
					printf("\n");
				else
					printf(",\n");
				indent();
				printf("\"content\":\"");
				break;
			}
			break;
		default:
			break;
		}
		break;
	}


	++depth;
	pre_element = element;
	pre_type = type;
	pre_element_is_start_tag = 1;
	stack_push(element);
}

void XMLCALL
end(void *d, const XML_Char * name)
{
	--depth;

	ELEMENT_TYPE type = name_2_element_type(name);
	ELEMENT element = name_2_element(name);

	switch (element) {
	case ELEMENT_DOCUMENT:
		printf("\n}\n");
		break;
	default:
		switch (type) {
		case TYPE_STRUCTURE:
			printf("\n");
			indent();
			printf("}");
			break;
		case TYPE_KEY:
			break;
		case TYPE_VALUE:
			putchar('"');
			break;
		default:
			break;
		}
		break;
	}


	pre_element = element;
	pre_type = type;
	pre_element_is_start_tag = 0;
	stack_pop();
}

void
chardata(void *data, const XML_Char *cdata, int len)
{
	char *p;

	switch (stack_top()) {
	case ELEMENT_P:
		p = (char *)cdata;
		for (int i = 0; i < len; i++)
			if ('\n' != *p)
				putchar(*p++);
		break;
	default:
		break;
	}
}

static void
indent()
{
	for (int i = 0; i < depth; i++)
		printf("\t");
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

#include "xml2json.h"

static void indent(void);

static int depth = 0;

static ELEMENT pre_element;

static ELEMENT_TYPE pre_type;

static int pre_element_is_start_tag;

void XMLCALL

begin(void *d, const XML_Char *name, const XML_Char **attr)

{

ELEMENT element = name_2_element(name);

ELEMENT_TYPE type = name_2_element_type(name);

ELEMENT parent = stack_top();

ELEMENT_TYPE parent_type = element_2_element_type(parent);

switch (element) {

case ELEMENT_DOCUMENT:

printf("{");

break;

default:

switch (type) {

case TYPE_STRUCTURE:

switch (element) {

case ELEMENT_DOCUMENT:

printf("{ ");

break;

default:

if (pre_element_is_start_tag)

printf("\n");

else

printf(",\n");

break;

}

indent();

printf("\"%s\": {", name);

break;

case TYPE_KEY:

switch (pre_type) {

case TYPE_KEY:

printf(",");

break;

default:

break;

}

printf("\n");

indent();

printf("\"%s\":", name);

break;

case TYPE_VALUE:

switch (parent_type) {

case TYPE_KEY:

putchar('"');

break;

default:

if (pre_element_is_start_tag)

printf("\n");

else

printf(",\n");

indent();

printf("\"content\":\"");

break;

}

break;

default:

break;

}

break;

}

++depth;

pre_element = element;

pre_type = type;

pre_element_is_start_tag = 1;

stack_push(element);

}

void XMLCALL

end(void *d, const XML_Char * name)

{

--depth;

ELEMENT_TYPE type = name_2_element_type(name);

ELEMENT element = name_2_element(name);

switch (element) {

case ELEMENT_DOCUMENT:

printf("\n}\n");

break;

default:

switch (type) {

case TYPE_STRUCTURE:

printf("\n");

indent();

printf("}");

break;

case TYPE_KEY:

break;

case TYPE_VALUE:

putchar('"');

break;

default:

break;

}

break;

}

pre_element = element;

pre_type = type;

pre_element_is_start_tag = 0;

stack_pop();

}

void

chardata(void *data, const XML_Char *cdata, int len)

{

char *p;

switch (stack_top()) {

case ELEMENT_P:

p = (char *)cdata;

for (int i = 0; i < len; i++)

if ('\n' != *p)

putchar(*p++);

break;

default:

break;

}

static void

indent()

{

for (int i = 0; i < depth; i++)

printf("\t");

}

#include <stdio.h>
#include <string.h>
#include <expat.h>

typedef enum __element_type {
	TYPE_STRUCTURE,
	TYPE_KEY,
	TYPE_VALUE,
	TYPE_NOT_APPLICABLE
} ELEMENT_TYPE;

typedef enum __element {
	ELEMENT_DOCUMENT,
	ELEMENT_DOCGROUP,
	ELEMENT_DOCINFO,
	ELEMENT_TITLE,
	ELEMENT_AUTHOR,
	ELEMENT_FIRSTEDITION,
	ELEMENT_LASTMODIFIED,
	ELEMENT_P,
	ELEMENT_NOT_APPLICABLE
} ELEMENT;

typedef struct __element_info {
	ELEMENT_TYPE	element_type;
	ELEMENT		element;
	char*		name;
} ELEMENT_INFO;

void XMLCALL begin(void *, const XML_Char*, const XML_Char**);
void XMLCALL end(void *, const XML_Char *);
void XMLCALL chardata(void *, const XML_Char *, int);

ELEMENT_TYPE name_2_element_type(const XML_Char *);
ELEMENT_TYPE element_2_element_type(ELEMENT);
ELEMENT name_2_element(const XML_Char *);

void stack_push(ELEMENT);
void stack_pop(void);
ELEMENT stack_top(void);

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

#include <stdio.h>

#include <string.h>

#include <expat.h>

typedef enum __element_type {

TYPE_STRUCTURE,

TYPE_KEY,

TYPE_VALUE,

TYPE_NOT_APPLICABLE

} ELEMENT_TYPE;

typedef enum __element {

ELEMENT_DOCUMENT,

ELEMENT_DOCGROUP,

ELEMENT_DOCINFO,

ELEMENT_TITLE,

ELEMENT_AUTHOR,

ELEMENT_FIRSTEDITION,

ELEMENT_LASTMODIFIED,

ELEMENT_P,

ELEMENT_NOT_APPLICABLE

} ELEMENT;

typedef struct __element_info {

ELEMENT_TYPE element_type;

ELEMENT element;

char* name;

} ELEMENT_INFO;

void XMLCALL begin(void *, const XML_Char*, const XML_Char**);

void XMLCALL end(void *, const XML_Char *);

void XMLCALL chardata(void *, const XML_Char *, int);

ELEMENT_TYPE name_2_element_type(const XML_Char *);

ELEMENT_TYPE element_2_element_type(ELEMENT);

ELEMENT name_2_element(const XML_Char *);

void stack_push(ELEMENT);

void stack_pop(void);

ELEMENT stack_top(void);

CC=	cc
RM=	rm -f

EXPAT=	-lexpat
LIBDIR=	/usr/local/lib
INCLUDEDIR=	/usr/local/include
CFLAGS=	-I${INCLUDEDIR} -L${LIBDIR} ${EXPAT}

SRCS=	xml2json.c element.c process.c stack.c
OUT=	xml2json

OBJS=	${SRCS:C,.c$,.o,}

.c.o:
	${CC} -I${INCLUDEDIR} -c $<

build: ${OBJS}
	${CC} -o ${OUT} ${CFLAGS} ${OBJS}

clean:
	${RM} ${OUT} ${OBJS}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

CC= cc

RM= rm -f

EXPAT= -lexpat

LIBDIR= /usr/local/lib

INCLUDEDIR= /usr/local/include

CFLAGS= -I${INCLUDEDIR} -L${LIBDIR} ${EXPAT}

SRCS= xml2json.c element.c process.c stack.c

OUT= xml2json

OBJS= ${SRCS:C,.c$,.o,}

.c.o:

${CC} -I${INCLUDEDIR} -c $<

build: ${OBJS}

${CC} -o ${OUT} ${CFLAGS} ${OBJS}

clean:

${RM} ${OUT} ${OBJS}

<?xml version="1.0" encoding="UTF-8"?>

<document>
 <docgroup>
  <docinfo>
   <title><p>タイトル</p></title>
   <author><p>名前</p></author>
   <firstedition><p>編集開始日</p></firstedition>
   <lastmodified><p>編集終了日</p></lastmodified>
  </docinfo>

  <docgroup>
   <docinfo>
    <title><p>章タイトル</p></title>
   </docinfo>

   <p>説明1</p>

   <p>説明2</p>
  </docgroup>
 </docgroup>
</document>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

<?xml version="1.0" encoding="UTF-8"?>

<firstedition><p>編集開始日</p></firstedition>

<lastmodified><p>編集終了日</p></lastmodified>

</docinfo>

<title><p>章タイトル</p></title>

</docinfo>

</docgroup>

</document>

香川大学SLPからお届け！（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：楠目幹

こんにちは。香川大学工学部学部4年生の楠目です。高校時代にPCがマルウェアに感染した経験がきっかけでセキュリティに興味を持ち、マルウェア対策やペネトレーションテストに関する分野の勉強を行っています。
昨年の8月「セキュリティ・キャンプ全国大会2017」に参加しました。そこでは「Linux向けマルウェア対策ソフトを作ろう」と言う講義に参加し、「surface indicator+αなELFマルウェアの分類」というテーマに、チームで取り組みました。このテーマの目標は、機械学習や複雑な解析を用いずにELFマルウェアの亜種を素早く検出することです。今回の記事では、私が講師やチューターの方、チームのメンバーと一緒に取り組んだ内容をご紹介します。

記事本文掲載のシェルスクリプトマガジンvol.54は以下リンク先でご購入できます。

#! /usr/bin/env python3
# VirusTotalのメタデータから特定のアンチウィルスソフトウェアで特定の検出名を持つものを出力
# Usage: ./z2kit_find_virustotal.py
import glob
import json
import sys
import z2kit.elf
import z2kit.features

AV_SOFTWARE = '指定したアンチウィルスソフトウェア'
EXPECTED_DETECTION = '対応する検体名'

def set_features(elffile):
    if not isinstance(elffile, z2kit.elf.ELFFile):
        raise ValueError('ELFFileクラスを与えなければなりません。')
    elffile.features = {}
    elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)
    elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)
    elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

with open('virustotal-ELF-VXShare.json') as f:
    virustotal_info = json.load(f)

for filename in glob.glob('z2/VirusShare_*'):
    try:
        elffile = z2kit.elf.ELFFile.read_from_file(filename)
        set_features(elffile)
        md5 = elffile.features['md5']
        if md5 not in virustotal_info:
            continue
        if AV_SOFTWARE not in virustotal_info[md5]['scans']:
            continue
        if not virustotal_info[md5]['scans'][AV_SOFTWARE]['detected']:
            continue
        if virustotal_info[md5]['scans'][AV_SOFTWARE]['result'] != EXPECTED_DETECTION:
            continue
        print(filename)
    except:
        raise

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

#! /usr/bin/env python3

# VirusTotalのメタデータから特定のアンチウィルスソフトウェアで特定の検出名を持つものを出力

# Usage: ./z2kit_find_virustotal.py

import glob

import json

import sys

import z2kit.elf

import z2kit.features

AV_SOFTWARE = '指定したアンチウィルスソフトウェア'

EXPECTED_DETECTION = '対応する検体名'

def set_features(elffile):

if not isinstance(elffile, z2kit.elf.ELFFile):

raise ValueError('ELFFileクラスを与えなければなりません。')

elffile.features = {}

elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)

elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)

elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

with open('virustotal-ELF-VXShare.json') as f:

virustotal_info = json.load(f)

for filename in glob.glob('z2/VirusShare_*'):

try:

elffile = z2kit.elf.ELFFile.read_from_file(filename)

set_features(elffile)

md5 = elffile.features['md5']

if md5 not in virustotal_info:

continue

if AV_SOFTWARE not in virustotal_info[md5]['scans']:

continue

if not virustotal_info[md5]['scans'][AV_SOFTWARE]['detected']:

continue

if virustotal_info[md5]['scans'][AV_SOFTWARE]['result'] != EXPECTED_DETECTION:

continue

print(filename)

except:

raise

#! /usr/bin/env python3
# ファイルリストを受け取ってlstrfuzzyデータを出力
# Usage: ./z2kit_extract_lstrfuzzy.py FILELIST
import sys
import z2kit.elf
import z2kit.features

def set_features(elffile):
    if not isinstance(elffile, z2kit.elf.ELFFile):
        raise ValueError('ELFファイルを与えなければなりません。')
    elffile.features = {}
    elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)
    elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)
    elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

with open(sys.argv[1], 'r') as f:
    for ln in f:
        filename = ln[:-1]
        try:
            elffile = z2kit.elf.ELFFile.read_from_file(filename)
            set_features(elffile)
            print(filename, elffile.features['lstrfuzzy'])
        except:
            pass

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

#! /usr/bin/env python3

# ファイルリストを受け取ってlstrfuzzyデータを出力

# Usage: ./z2kit_extract_lstrfuzzy.py FILELIST

import sys

import z2kit.elf

import z2kit.features

def set_features(elffile):

if not isinstance(elffile, z2kit.elf.ELFFile):

raise ValueError('ELFファイルを与えなければなりません。')

elffile.features = {}

elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)

elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)

elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

with open(sys.argv[1], 'r') as f:

for ln in f:

filename = ln[:-1]

try:

elffile = z2kit.elf.ELFFile.read_from_file(filename)

set_features(elffile)

print(filename, elffile.features['lstrfuzzy'])

except:

pass

#! /usr/bin/env python3
# z2kit_extract_lstrfuzzy.pyの結果をもとに検出器を作成する
# 検出器を使った結果とz2kit_find_virustotal.pyとの結果を比較する
# Usage: ./z2_find_match.py
import glob
import json
import sys
import z2kit.elf
import z2kit.features
import ssdeep

AV_SOFTWARE = '指定したアンチウィルスソフトウェア'
EXPECTED_DETECTION = '対応する検体名'

def set_features(elffile):
    if not isinstance(elffile, z2kit.elf.ELFFile):
        raise ValueError('ELFFile クラスを与えなければなりません。')
    elffile.features = {}
    elffile.features['md5']       = z2kit.features.MD5Feature().get_feature(elffile)
    elffile.features['ssdeep']    = z2kit.features.SsdeepFeature().get_feature(elffile)
    elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

def is_malware_to_focus(elffile):
    return \
        ssdeep.compare(elffile.features['lstrfuzzy'], '選出したハッシュ値') >= 50 or \
        ssdeep.compare(elffile.features['lstrfuzzy'], '選出したハッシュ値') >= 50 or \
        ssdeep.compare(elffile.features['lstrfuzzy'], '選出したハッシュ値') >= 50

for filename in glob.glob('z2/VirusShare_*'):
    try:
        elffile = z2kit.elf.ELFFile.read_from_file(filename)
        set_features(elffile)
        if is_malware_to_focus(elffile):
            print(filename)
    except:
        pass

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

#! /usr/bin/env python3

# z2kit_extract_lstrfuzzy.pyの結果をもとに検出器を作成する

# 検出器を使った結果とz2kit_find_virustotal.pyとの結果を比較する

# Usage: ./z2_find_match.py

import glob

import json

import sys

import z2kit.elf

import z2kit.features

import ssdeep

AV_SOFTWARE = '指定したアンチウィルスソフトウェア'

EXPECTED_DETECTION = '対応する検体名'

def set_features(elffile):

if not isinstance(elffile, z2kit.elf.ELFFile):

raise ValueError('ELFFile クラスを与えなければなりません。')

elffile.features = {}

elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)

elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)

elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

def is_malware_to_focus(elffile):

return \

ssdeep.compare(elffile.features['lstrfuzzy'], '選出したハッシュ値') >= 50 or \

ssdeep.compare(elffile.features['lstrfuzzy'], '選出したハッシュ値') >= 50

for filename in glob.glob('z2/VirusShare_*'):

try:

elffile = z2kit.elf.ELFFile.read_from_file(filename)

set_features(elffile)

if is_malware_to_focus(elffile):

print(filename)

except:

pass

#! /usr/bin/env python3
# stringsコマンドの結果を特徴量とする
# Usage: ./z2kit_find_strings_by_virustotal.py | ./histogram_to_graph.py /dev/stdin > TEXT
import glob
import json
import sys
import z2kit.elf
import z2kit.features

AV_SOFTWARE = '指定したアンチウィルスソフトウェア'
EXPECTED_DETECTION = '対応する検体名'

def set_features(elffile):
    if not isinstance(elffile, z2kit.elf.ELFFile):
        raise ValueError('ELFFile クラスを与えなければなりません。')
    elffile.features = {}
    elffile.features['md5']       = z2kit.features.MD5Feature().get_feature(elffile)
    #elffile.features['ssdeep']    = z2kit.features.SsdeepFeature().get_feature(elffile)
    #elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)
    elffile.features['strings']   = z2kit.features.StringsFeature().get_feature(elffile)

with open('virustotal-ELF-VXShare.json') as f:
    virustotal_info = json.load(f)

HISTOGRAM = {}
for filename in glob.glob('z2/VirusShare_*'):
    try:
        elffile = z2kit.elf.ELFFile.read_from_file(filename)
        set_features(elffile)
        md5 = elffile.features['md5']
        if md5 not in virustotal_info:
            continue
        if AV_SOFTWARE not in virustotal_info[md5]['scans']:
            continue
        if not virustotal_info[md5]['scans'][AV_SOFTWARE]['detected']:
            continue
        if virustotal_info[md5]['scans'][AV_SOFTWARE]['result'] != EXPECTED_DETECTION:
            continue
        strings = elffile.features['strings']
        for s in strings.keys():
            if s not in HISTOGRAM:
                HISTOGRAM[s] = 0
            HISTOGRAM[s] += strings[s]
    except:
        pass

json.dump(HISTOGRAM, sys.stdout)
#! /usr/bin/env python3
# JSONファイルをもとにヒストグラムを作成
# Usage: ./histogram_to_graph.py JSON_FILE
import json
import sys

WIDTH = 40
FILLER = '#'
with open(sys.argv[1], 'r', encoding='utf-8') as f:
    obj = json.load(f)
m = 0
for v in obj.values():
    m = max(v, m)
FORMAT = '{}{} {:' + str(len(str(m))) + 'd} {}'
for i, v in sorted(obj.items(), key=lambda x:-x[1]):
    g = int((WIDTH - 1) * 1.0 * v / m)
    g = FILLER * g + ' ' * (WIDTH - 1 - g)
    print(FORMAT.format(FILLER, g, v, i))

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

#! /usr/bin/env python3

# stringsコマンドの結果を特徴量とする

# Usage: ./z2kit_find_strings_by_virustotal.py | ./histogram_to_graph.py /dev/stdin > TEXT

import glob

import json

import sys

import z2kit.elf

import z2kit.features

AV_SOFTWARE = '指定したアンチウィルスソフトウェア'

EXPECTED_DETECTION = '対応する検体名'

def set_features(elffile):

if not isinstance(elffile, z2kit.elf.ELFFile):

raise ValueError('ELFFile クラスを与えなければなりません。')

elffile.features = {}

elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)

#elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)

#elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

elffile.features['strings'] = z2kit.features.StringsFeature().get_feature(elffile)

with open('virustotal-ELF-VXShare.json') as f:

virustotal_info = json.load(f)

HISTOGRAM = {}

for filename in glob.glob('z2/VirusShare_*'):

try:

elffile = z2kit.elf.ELFFile.read_from_file(filename)

set_features(elffile)

md5 = elffile.features['md5']

if md5 not in virustotal_info:

continue

if AV_SOFTWARE not in virustotal_info[md5]['scans']:

continue

if not virustotal_info[md5]['scans'][AV_SOFTWARE]['detected']:

continue

if virustotal_info[md5]['scans'][AV_SOFTWARE]['result'] != EXPECTED_DETECTION:

continue

strings = elffile.features['strings']

for s in strings.keys():

if s not in HISTOGRAM:

HISTOGRAM[s] = 0

HISTOGRAM[s] += strings[s]

except:

pass

json.dump(HISTOGRAM, sys.stdout)

#! /usr/bin/env python3

# JSONファイルをもとにヒストグラムを作成

# Usage: ./histogram_to_graph.py JSON_FILE

import json

import sys

WIDTH = 40

FILLER = '#'

with open(sys.argv[1], 'r', encoding='utf-8') as f:

obj = json.load(f)

m = 0

for v in obj.values():

m = max(v, m)

FORMAT = '{}{} {:' + str(len(str(m))) + 'd} {}'

for i, v in sorted(obj.items(), key=lambda x:-x[1]):

g = int((WIDTH - 1) * 1.0 * v / m)

g = FILLER * g + ' ' * (WIDTH - 1 - g)

print(FORMAT.format(FILLER, g, v, i))

#! /usr/bin/env python3
# stringsコマンドの特徴量をもとにz2kit_find_strings_by_virustotal.pyとの結果を比較
# Usage: ./z2kit_find_strings_match.py
import glob
import json
import sys
import z2kit.elf
import z2kit.features
import ssdeep

def set_features(elffile):
    if not isinstance(elffile, z2kit.elf.ELFFile):
        raise ValueError('ELFFile クラスを与えなければなりません。')
    elffile.features = {}
    #elffile.features['md5']       = z2kit.features.MD5Feature().get_feature(elffile)
    #elffile.features['ssdeep']    = z2kit.features.SsdeepFeature().get_feature(elffile)
    elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)
    elffile.features['strings']   = z2kit.features.StringsFeature().get_feature(elffile)

def is_strings_matching(elffile, substring):
    for k in elffile.features['strings'].keys():
        if substring in k:
            return True
    return False

def is_malware_to_focus(elffile):
    return is_strings_matching(elffile, '特徴量として選出した文字列')

for filename in glob.glob('z2/VirusShare_*'):
    try:
        elffile = z2kit.elf.ELFFile.read_from_file(filename)
        set_features(elffile)
        if is_malware_to_focus(elffile):
            print(filename)
    except:
        pass

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

#! /usr/bin/env python3

# stringsコマンドの特徴量をもとにz2kit_find_strings_by_virustotal.pyとの結果を比較

# Usage: ./z2kit_find_strings_match.py

import glob

import json

import sys

import z2kit.elf

import z2kit.features

import ssdeep

def set_features(elffile):

if not isinstance(elffile, z2kit.elf.ELFFile):

raise ValueError('ELFFile クラスを与えなければなりません。')

elffile.features = {}

#elffile.features['md5'] = z2kit.features.MD5Feature().get_feature(elffile)

#elffile.features['ssdeep'] = z2kit.features.SsdeepFeature().get_feature(elffile)

elffile.features['lstrfuzzy'] = z2kit.features.LstrfuzzyFeature().get_feature(elffile)

elffile.features['strings'] = z2kit.features.StringsFeature().get_feature(elffile)

def is_strings_matching(elffile, substring):

for k in elffile.features['strings'].keys():

if substring in k:

return True

return False

def is_malware_to_focus(elffile):

return is_strings_matching(elffile, '特徴量として選出した文字列')

for filename in glob.glob('z2/VirusShare_*'):

try:

elffile = z2kit.elf.ELFFile.read_from_file(filename)

set_features(elffile)

if is_malware_to_focus(elffile):

print(filename)

except:

pass

特集1　Node.js/Express入門（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：しょっさん

インターネットを介する各種サービス、ゲーム、そしてコミュニケーションツールなどの多くが「Webアプリ」として提供されています。このようにWebアプリが普及したのは、プログラミング言語「JavaScript」のおかげです。JavaScriptはフロントエンド開発が中心でしたが、サーバーサイドの実行環境「Node.js」の登場によりバンクエンドのアプリ開発にも使われています。本特集ではNode.js、フレームワークとなる「Express」について、実践しながら分かりやすく紹介します。
記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

const http = require('http');

http.createServer(function (req, res) {
  res.writeHead(200, { 'Content-Type': 'text/plain' });
  res.end('Hello World!');

}).listen(5000);

1

2

3

4

5

6

7

const http = require('http');

http.createServer(function (req, res) {

res.writeHead(200, { 'Content-Type': 'text/plain' });

res.end('Hello World!');

}).listen(5000);

const http = require('http');
const url = require('url');

const port = 5000;
const server = http.createServer();

server.on('request', function (req, res) {
  const uri = url.parse(req.url, true).pathname;
  const query = url.parse(req.url, true).query;
  let status = 200;
  let message = '';
  // URIごとに表示するメッセージを変える
  switch (uri) {
    case '/':
      message = 'Hello World!';
      break;
    case '/about':
      message = 'About page';
      break;
    case '/query':
      message = 'query: ' + query.name;
      break;
    default:
      status = 404;
      message = 'Page not found.';
  }
  // http ステータスコードや、実際のメッセージ表示はここ
  res.writeHead(status, { 'Content-Type': 'text/plain' });
  res.write(message);
  res.end();
});

server.listen(port);

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

const http = require('http');

const url = require('url');

const port = 5000;

const server = http.createServer();

server.on('request', function (req, res) {

const uri = url.parse(req.url, true).pathname;

const query = url.parse(req.url, true).query;

let status = 200;

let message = '';

// URIごとに表示するメッセージを変える

switch (uri) {

case '/':

message = 'Hello World!';

break;

case '/about':

message = 'About page';

break;

case '/query':

message = 'query: ' + query.name;

break;

default:

status = 404;

message = 'Page not found.';

}

// http ステータスコードや、実際のメッセージ表示はここ

res.writeHead(status, { 'Content-Type': 'text/plain' });

res.write(message);

res.end();

});

server.listen(port);

// Express の利用宣言
const express = require('express');

const app = express();
const port = 5000;

// URIごとの表示メッセージを定義
app.get('/', (req, res) => res.send('Hello World!'));
app.get('/about', (req, res) => res.send('About Page'));
app.get('/query', (req, res) => res.send('query: ' + req.query.name));

// 指定したポートでサーバーへの受付を開始
app.listen(port);

1

2

3

4

5

6

7

8

9

10

11

12

13

// Express の利用宣言

const express = require('express');

const app = express();

const port = 5000;

// URIごとの表示メッセージを定義

app.get('/', (req, res) => res.send('Hello World!'));

app.get('/about', (req, res) => res.send('About Page'));

app.get('/query', (req, res) => res.send('query: ' + req.query.name));

// 指定したポートでサーバーへの受付を開始

app.listen(port);

// Expressの利用宣言
const express = require('express');

const app = express();

// URIごとの表示メッセージを定義
app.get('/', (req, res) => res.send('Hello World!'));
app.get('/about', (req, res) => res.send('About Page'));
app.get('/query', (req, res) => res.send('query: ' + req.query.name));

// 404 not found
1app.use((req, res) => res.status(404).send("Page not found"));

// 指定したポートでサーバーへの受付を開始
app.listen(process.env.PORT); // 環境変数 PORTを見るように変更

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

// Expressの利用宣言

const express = require('express');

const app = express();

// URIごとの表示メッセージを定義

app.get('/', (req, res) => res.send('Hello World!'));

app.get('/about', (req, res) => res.send('About Page'));

app.get('/query', (req, res) => res.send('query: ' + req.query.name));

// 404 not found

1app.use((req, res) => res.status(404).send("Page not found"));

// 指定したポートでサーバーへの受付を開始

app.listen(process.env.PORT); // 環境変数 PORTを見るように変更

Vol.54

投稿日：2018.05.25　｜　カテゴリー：　バックナンバー

2018年に学ぶべきプログラミング言語として注目の「JavaScript」。特集1では、Webサーバーのバックエンドで動作するJavaScript実行環境「Node.js」と、Node.js向けフレームワークの「Express」を、導入方法も含めて分かりやすく紹介します。ITインフラやIoT（モノのインターネット）の技術者は必見です。
特集2では、すぐに使えるシェルスクリプト/ワンライナー集を紹介します。それぞれのシェルスクリプトやワンライナーで記述しているコードを詳しく解説しています。そのまま使ったり、自分なりにカスタマイズしたりと、自由に活用してください。
特集3では、仮想化技術の一つであるコンテナーの運用管理や運用自動化で定番になりつつある「Kubernetes」（クーバネイティス）を解説します。米Google社のクラウドサービス「Google Cloud Platform」を利用して、Kubernetesの実践的な使い方も紹介します。
特別企画では、一般販売も開始したスマートスピーカー「Amazon Echo」をカスタマイズするための「Alexaカスタムスキル」開発を紹介します。自分だけのAmazon Echoを手に入れましょう。
このほか、好評連載の「ラズパイ入門ボードで学ぶ電子回路の制御」では光センサーを扱います。シェルスクリプトマガジン特製の「ラズパイ入門ボード」を活用してください。

今月も読み応え十分のシェルスクリプトマガジン Vol.54。お見逃しなく!

※記事掲載のコードはこちら
※読者アンケートはこちら

シェルスクリプトマガジンvol.54 Web掲載記事まとめ

投稿日：2018.05.25　｜　カテゴリー：　記事

シェルスクリプトマガジンvol.54のWeb掲載部分まとめです。

プレゼント＆アンケートページはこちら！

シェルスクリプトマガジンvol.54は以下リンク先でご購入できます。

04 　レポート　Ubuntu最新版18.04 LTSが登場　FoundationDBのオープンソース化

06 　NEWS FLASH

08 　特集1 Node.js/Express入門/しょっさん　コード掲載

29 　縁の木、育てよう/白羽玲子

30 　特集2 シェルスクリプトスニペット集/今泉光之　コード掲載

41 　姐のNOGYO

42 　特集3 Kubernetesを知る/福田潔　コード掲載

52 　特別企画 Alexaカスタムスキル開発入門/岡本秀高　コード掲載

60 　ラズパイ入門ボードで学ぶ電子回路の制御/米田聡　コード掲載

64 　スズラボ通信/すずきひろのぶ

72 　アジャイル開発 Let’s Practice!/熊野憲辰

76 　円滑コミュニケーションが世界を救う! /濱口誠一

78 　中小企業手作りIT化奮戦記/菅雄一

84 　RESEARCHES FOR FUTURE/伊藤貴之

86 　香川大学SLPからお届け! /楠目幹　コード掲載

92 　法林浩之のFIGHTING TALKS/法林浩之

94 　それプロのエバンジェリストから愛をこめて/山本美穂

98 　人間とコンピュータの可能性/大岩元

100 　バーティカルバーの極意/飯尾淳　コード掲載

106 　雲/桑原滝弥・イケヤシロウ

108 　漢のUNIX/後藤大地　コード掲載

116 　ユニケージ新コードレビュー/大内智明　コード掲載

120 　Techパズル/gori.sh

122 　コラム「人間がボトルネックになる時代」/シェル魔人

バーティカルバーの極意第六回（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：飯尾淳

前回は、政府統計の総合窓口「e-Stat1」から入手できるデータをダウンロードして、八王子市の町・丁目を示す境界データを地図上に可視化する準備をしました。今回は、実際に地図データを活用できるように、データをきれいに整理する作業を実施します。データをきれいにする作業、それを「クレンジング」と呼びます。
記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

#!/usr/bin/env python

from math import sqrt

# 近傍にあるかどうかの判定
def near(a, b, e):
  (c_ax, c_ay, c_az) = a.split(",")
  (c_bx, c_by, c_bz) = b.split(",")
  dx = float(c_ax) - float(c_bx)
  dy = float(c_ay) - float(c_by)
  d = sqrt(dx*dx + dy*dy)
  return (d < e)

def splitBorderParts(c0, c1):
  # 境界面を形作る地点の集合を作成
  s0 = [a for a in c0 for b in c1 if near(a, b, 0.00001)]
  s1 = [b for b in c1 for a in c0 if near(a, b, 0.00001)]
  # 交差部分がないとき
  if len(s0) == 0: raise NameError("No intersections!")

  # 始点が境界面の端に来るように回す
  if c0[0] not in s0:                        # 始点が境界面の外にあるとき
    while c0[0] not in s0: c0.append(c0.pop(0))
  else:                                      # 始点が境界面の中にあるとき
    while c0[-1] in s0: c0.insert(0, c0.pop())
  if c1[0] not in s1:
    while c1[0] not in s1: c1.append(c1.pop(0))
  else:
    while c1[-1] in s1: c1.insert(0, c1.pop())

  # 境界面部分を取り出す（元データの境界面には'0,0,0'でマークしておく）
  i = 0; s0_ = []
  for c in c0:
    if c in s0: s0_.append(c0[i]); c0[i] = '0,0,0'
    i += 1
    i = 0; s1_ = []
  for c in c1:
    if c in s1: s1_.append(c1[i]); c1[i] = '0,0,0'
    i += 1
  return (c0,s0_,c1,s1_)

from bs4 import BeautifulSoup
import re
import sys

xml = open("./sample4.kml")
bsObj = BeautifulSoup(xml.read(), "lxml")
targets = bsObj.findAll("coordinates")

coords = []
for coord in targets:
  val = re.sub(" +", "", coord.get_text()).split("\n")
  while val.count(""): val.remove("")
  # 先頭と末尾が重複しているので，とりあえず先頭を削除
  val.pop(0)
  coords.append(val)

try:
  # 第1引数で与える配列の非境界面(c0), 境界面(s0),
  # 第2引数で与える配列の非境界面(c1), 境界面(s0) を求める
  (c0,s0,c1,s1) = splitBorderParts(coords[0], coords[1])
  # c0とc1から'0.0.0'を取り除く
  while c0[0] == '0,0,0': c0.pop(0)
  while c1[0] == '0,0,0': c1.pop(0)
  # c0,c1の頭にs0,s1の末尾（境界面の端点）を追加 
  c0.insert(0, s0[-1])
  c1.insert(0, s1[-1])

  # c0とc1を繋いで出力（最後に先頭を出力して閉領域完成）
  print (“<coordinates>”)
  for f in c0: print (“    ”, f)
  for f in c1: print (“    ”, f)
  print (“    ”, c0[0]) 
  print (“</coordinates>”)

except NameError:
  sys.exit()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

#!/usr/bin/env python

from math import sqrt

# 近傍にあるかどうかの判定

def near(a, b, e):

(c_ax, c_ay, c_az) = a.split(",")

(c_bx, c_by, c_bz) = b.split(",")

dx = float(c_ax) - float(c_bx)

dy = float(c_ay) - float(c_by)

d = sqrt(dx*dx + dy*dy)

return (d < e)

def splitBorderParts(c0, c1):

# 境界面を形作る地点の集合を作成

s0 = [a for a in c0 for b in c1 if near(a, b, 0.00001)]

s1 = [b for b in c1 for a in c0 if near(a, b, 0.00001)]

# 交差部分がないとき

if len(s0) == 0: raise NameError("No intersections!")

# 始点が境界面の端に来るように回す

if c0[0] not in s0: # 始点が境界面の外にあるとき

while c0[0] not in s0: c0.append(c0.pop(0))

else: # 始点が境界面の中にあるとき

while c0[-1] in s0: c0.insert(0, c0.pop())

if c1[0] not in s1:

while c1[0] not in s1: c1.append(c1.pop(0))

else:

while c1[-1] in s1: c1.insert(0, c1.pop())

# 境界面部分を取り出す（元データの境界面には'0,0,0'でマークしておく）

i = 0; s0_ = []

for c in c0:

if c in s0: s0_.append(c0[i]); c0[i] = '0,0,0'

i += 1

i = 0; s1_ = []

for c in c1:

if c in s1: s1_.append(c1[i]); c1[i] = '0,0,0'

i += 1

return (c0,s0_,c1,s1_)

from bs4 import BeautifulSoup

import re

import sys

xml = open("./sample4.kml")

bsObj = BeautifulSoup(xml.read(), "lxml")

targets = bsObj.findAll("coordinates")

coords = []

for coord in targets:

val = re.sub(" +", "", coord.get_text()).split("\n")

while val.count(""): val.remove("")

# 先頭と末尾が重複しているので，とりあえず先頭を削除

val.pop(0)

coords.append(val)

try:

# 第1引数で与える配列の非境界面(c0), 境界面(s0),

# 第2引数で与える配列の非境界面(c1), 境界面(s0) を求める

(c0,s0,c1,s1) = splitBorderParts(coords[0], coords[1])

# c0とc1から'0.0.0'を取り除く

while c0[0] == '0,0,0': c0.pop(0)

while c1[0] == '0,0,0': c1.pop(0)

# c0,c1の頭にs0,s1の末尾（境界面の端点）を追加

c0.insert(0, s0[-1])

c1.insert(0, s1[-1])

# c0とc1を繋いで出力（最後に先頭を出力して閉領域完成）

print (“<coordinates>”)

for f in c0: print (“ ”, f)

for f in c1: print (“ ”, f)

print (“ ”, c0[0])

print (“</coordinates>”)

except NameError:

sys.exit()

特集3　Kubernetesを知る（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：福田潔

コンテナー型の仮想化環境を提供するソフトウエア「Docker」の普及により、その運用管理が重要になってきています。Kubernetesは、最も注目されているコンテナー運用管理/運用自動化ツールです。本特集では使い方も含めて、Kubernetesについて分かりやすく紹介します。
記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

apiVersion: extensions/v1beta1
kind: Ingress
metadata:
  name: basic-ingress
spec:
  backend:
    serviceName: web
    servicePort: 8080

1

2

3

4

5

6

7

8

apiVersion: extensions/v1beta1

kind: Ingress

metadata:

name: basic-ingress

spec:

backend:

serviceName: web

servicePort: 8080

apiVersion: extensions/v1beta1
kind: Ingress
metadata:
  name: basic-ingress
spec:
  rules:
  - http:
    paths:
    - path: /*
      backend:
        serviceName: hello-server
        servicePort: 8080
    - path: /v2/*
      backend:
        serviceName: hello-server2
        servicePort: 8080

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

apiVersion: extensions/v1beta1

kind: Ingress

metadata:

name: basic-ingress

spec:

rules:

- http:

paths:

- path: /*

backend:

serviceName: hello-server

servicePort: 8080

- path: /v2/*

backend:

serviceName: hello-server2

servicePort: 8080

特集2　日々の仕事をちょっと便利にする　シェルスクリプトスニペット集（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：今泉光之

日々の業務でよく使い回すちょっとしたコードの羅列を「スニペット」（断片）として用意しておくと便利です。本特集では、作業の自動化に便利であろういくつかのシェルスクリプトスニペットを紹介します。

記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

#!/bin/sh
# SSL証明書の有効期限をチェックして管理者に通知する
# 1日数回の実施 (10:00 / 13:00 / 16:00 / 18:00) を想定している
 
cert="${1}"
host=${2:-`hostname`}
check=/tmp/sslcheck-send
 
# リミット
soft=$((30 * 24 * 60 * 60))
hard=$((10 * 24 * 60 * 60))
 
# パラメーターチェック
if [ -z "{cert}" ]
then
    echo "Usage: $(basename ${0}) certfile [hostname]" 1>&2
    exit 1
fi
 
# 証明書から有効日を取得
limit=$(date -d "$(openssl x509 -noout -text -in {cert} | sed -n '/Not After/s/.* : ¥(.*¥).*/¥1/p')" '+%Y/%m/%d %H:%M:%S')
limit_s=$(date -d "${limit}" '+%s')
today=$(date -d "00:00:00" '+%Y/%m/%d %H:%M:%S')
today_s=$(date -d "${today}" '+%s')
 
current_s=$((${limit_s} - ${today_s}))
current=$((current_s / (24 * 60 * 60)))
 
if [ ${current_s} -lt 0 ]
then
    # 証明書期限切れ
    notice "ホスト ${host}の SSL証明書の期限が ${limit}で終了しています。大至急更新作業をして下さい。"
elif [ {current_s} -le ${hard} ]
then
    # 証明書期限まで残り 10 日以内
    notice "ホスト ${host}の SSL証明書の期限が ${limit}までです (残り {current}日 )。至急更新作業をして下さい。"
elif [ ${current_s} -le ${soft} ]
then
    # 証明書期限まで残り 30 日以内 (1日 1回通知 )
    update=$(date '+%m%d')
    if ! [ -f {check} -a "$(cat ${check})" -eq ${update} ]
    then
        notice "ホスト ${host}の SSL証明書の期限が ${limit}まです (残り {current}日 )。更新作業をして下さい。"
        echo ${update} > ${check}
    fi
fi

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

#!/bin/sh

# SSL証明書の有効期限をチェックして管理者に通知する

# 1日数回の実施 (10:00 / 13:00 / 16:00 / 18:00) を想定している

cert="${1}"

host=${2:-`hostname`}

check=/tmp/sslcheck-send

# リミット

soft=$((30 * 24 * 60 * 60))

hard=$((10 * 24 * 60 * 60))

# パラメーターチェック

if [ -z "{cert}" ]

then

echo "Usage: $(basename ${0}) certfile [hostname]" 1>&2

exit 1

fi

# 証明書から有効日を取得

limit=$(date -d "$(openssl x509 -noout -text -in {cert} | sed -n '/Not After/s/.* : ¥(.*¥).*/¥1/p')" '+%Y/%m/%d %H:%M:%S')

limit_s=$(date -d "${limit}" '+%s')

today=$(date -d "00:00:00" '+%Y/%m/%d %H:%M:%S')

today_s=$(date -d "${today}" '+%s')

current_s=$((${limit_s} - ${today_s}))

current=$((current_s / (24 * 60 * 60)))

if [ ${current_s} -lt 0 ]

then

# 証明書期限切れ

notice "ホスト ${host}の SSL証明書の期限が ${limit}で終了しています。大至急更新作業をして下さい。"

elif [ {current_s} -le ${hard} ]

then

# 証明書期限まで残り 10 日以内

notice "ホスト ${host}の SSL証明書の期限が ${limit}までです (残り {current}日 )。至急更新作業をして下さい。"

elif [ ${current_s} -le ${soft} ]

then

# 証明書期限まで残り 30 日以内 (1日 1回通知 )

update=$(date '+%m%d')

if ! [ -f {check} -a "$(cat ${check})" -eq ${update} ]

then

notice "ホスト ${host}の SSL証明書の期限が ${limit}まです (残り {current}日 )。更新作業をして下さい。"

echo ${update} > ${check}

fi

#!/bin/sh
target="https://hooks.slack.com/services/XXXXXXXXX/XXXXXXXXX/XXXXXXXXXXXXXXXXXXXXXXXX" 
icon="表示されるアイコン "
name="表示される名前"

exec > /dev/null 2>&1
 
notice()
{

    curl -X POST -H 'Content-type: application/json' --data '{"text": "'"${*}"'", "icon_emoji": "${icon}", "username": "${name}" }' ${target}

}

1

2

3

4

5

6

7

8

9

10

11

12

13

#!/bin/sh

target="https://hooks.slack.com/services/XXXXXXXXX/XXXXXXXXX/XXXXXXXXXXXXXXXXXXXXXXXX"

icon="表示されるアイコン "

name="表示される名前"

exec > /dev/null 2>&1

notice()

{

curl -X POST -H 'Content-type: application/json' --data '{"text": "'"${*}"'", "icon_emoji": "${icon}", "username": "${name}" }' ${target}

}

#!/bin/sh
tmpfile=${TMP:-/tmp}/rdf.$$
ssh="/usr/bin/ssh"
df="LANG=C df -hlP -t ext3 -t ext4"
 
servers="サーバー 1 サーバー 2 … サーバー n"

trap 'rm -rf ${tmpfile}; exit' 0 1 2 3 15
 
for i in ${servers}
do
    ${ssh} ${i} ${df} |
    tee ${tmpfile} |
    awk '{
        if(NR > 1)
            ret += $(NF-1) > '${1:-80}'
    }
    END{
        exit ret;
    }' || notice "${i} DISK Usage Warning!¥n $(cat ${tmpfile})"
done

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#!/bin/sh

tmpfile=${TMP:-/tmp}/rdf.$$

ssh="/usr/bin/ssh"

df="LANG=C df -hlP -t ext3 -t ext4"

servers="サーバー 1 サーバー 2 … サーバー n"

trap 'rm -rf ${tmpfile}; exit' 0 1 2 3 15

for i in ${servers}

do

${ssh} ${i} ${df} |

tee ${tmpfile} |

awk '{

if(NR > 1)

ret += $(NF-1) > '${1:-80}'

}

END{

exit ret;

}' || notice "${i} DISK Usage Warning!¥n $(cat ${tmpfile})"

done

#!/bin/sh
usage()
{
 
    echo "Usage: $(basename $0) [-f][-l time] process" 1>&2
    exit 255
 
}
 
# パラメーターチェック
if opt=`getopt fl: $*`
then
    set -- ${opt}
    while [ -n "${1}" ]
    do
        case "${1}" in
            -f )
                cmd="sh";;
            -l )
                limit=$2
                shift;;
            -- )
                shift
                break;;
            -* )
                usage;;
        esac
        shift
    done
else
    usage;
fi
 
test $# -ne 1 && usage
 
ps ax |
awk -v "process=${1}" -v "limit=${limit:-100}" '
    {
        if($5 ~ process) {
            gsub(/:/, "", $4);
            if(($4 + 0) > (limit * 100))
                pid = pid " " $1
        }
    }
    END{
        if(pid)
            print "kill" pid
    }' |
{cmd:-cat}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

#!/bin/sh

usage()

{

echo "Usage: $(basename $0) [-f][-l time] process" 1>&2

exit 255

}

# パラメーターチェック

if opt=`getopt fl: $*`

then

set -- ${opt}

while [ -n "${1}" ]

do

case "${1}" in

-f )

cmd="sh";;

-l )

limit=$2

shift;;

-- )

shift

break;;

-* )

usage;;

esac

shift

done

else

usage;

fi

test $# -ne 1 && usage

ps ax |

awk -v "process=${1}" -v "limit=${limit:-100}" '

{

if($5 ~ process) {

gsub(/:/, "", $4);

if(($4 + 0) > (limit * 100))

pid = pid " " $1

}

END{

if(pid)

print "kill" pid

}' |

{cmd:-cat}

#!/bin/sh
source="${1}"
target="$(pwd)/${2}"
 
if true
then
    doit()
    {
 
        nkf -e ${1} > ${2}
 
    }
else
    doit()
    {
        local _wav
        wav=$(echo "${2}" | sed 's/m4a/wav/')
        faad -q "${1}" -o "${wav}"
        lame --quiet -h -b 192 "${wav}" "${2}"
        rm "${wav}"
    }
fi
 
cd ${source} || exit 1
 
find . | while read line
do
    if [ -d "${line}" ]
    then
        mkdir -p "${target}/${line}"
    else
        doit ${line} ${target}/${line}
    fi
done

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

#!/bin/sh

source="${1}"

target="$(pwd)/${2}"

if true

then

doit()

{

nkf -e ${1} > ${2}

}

else

doit()

{

local _wav

wav=$(echo "${2}" | sed 's/m4a/wav/')

faad -q "${1}" -o "${wav}"

lame --quiet -h -b 192 "${wav}" "${2}"

rm "${wav}"

}

fi

cd ${source} || exit 1

find . | while read line

do

if [ -d "${line}" ]

then

mkdir -p "${target}/${line}"

else

doit ${line} ${target}/${line}

fi

done

#!/bin/sh
# バックアップ対象はホスト名を大文字にした名前でマークする
# ホスト名が myhost.example.comの場合 "MYHOST"でマーク
# ディレクトリー /some/directoryをバックアップする場合 /some/directory.MYHOSTを touchする
# ファイル /some/fileをバックアップする場合 /some.file.MYHOSTをtouchする
# ファイルを /some/fileを編集するときにオリジナルを /some/file.MYHOST にコピーしておくと
# バックアップ対象になり、更に変更内容を diffなどで変更内容を容易に確認できる。
 
# max generation(s)
max=7
 
# files and directories
backupdir=/home/backup
targetdir=${backupdir}/$(date '+%Y%m%d')
latestdir=${backupdir}/latest
 
# backup target
base=$(hostname -s | tr [:lower:] [:upper:])
 
# prepare directories
test -d ${backupdir} && test $(ls -1 ${backupdir} | wc -l) -ge ${max} && rm -rf ${backupdir}/$(ls -1 ${backupdir} | head -1)
mkdir -p ${targetdir}
rm -rf ${latestdir}
ln -s ${targetdir} ${latestdir}
 
find / -name "*.${base}" |
sed "s!^/¥(.*¥)¥.${base}$!¥1!g" |
tar -C / -cvzf ${targetdir}/${base}.tgz -T -

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

#!/bin/sh

# バックアップ対象はホスト名を大文字にした名前でマークする

# ホスト名が myhost.example.comの場合 "MYHOST"でマーク

# ディレクトリー /some/directoryをバックアップする場合 /some/directory.MYHOSTを touchする

# ファイル /some/fileをバックアップする場合 /some.file.MYHOSTをtouchする

# ファイルを /some/fileを編集するときにオリジナルを /some/file.MYHOST にコピーしておくと

# バックアップ対象になり、更に変更内容を diffなどで変更内容を容易に確認できる。

# max generation(s)

max=7

# files and directories

backupdir=/home/backup

targetdir=${backupdir}/$(date '+%Y%m%d')

latestdir=${backupdir}/latest

# backup target

base=$(hostname -s | tr [:lower:] [:upper:])

# prepare directories

test -d ${backupdir} && test $(ls -1 ${backupdir} | wc -l) -ge ${max} && rm -rf ${backupdir}/$(ls -1 ${backupdir} | head -1)

mkdir -p ${targetdir}

rm -rf ${latestdir}

ln -s ${targetdir} ${latestdir}

find / -name "*.${base}" |

sed "s!^/¥(.*¥)¥.${base}$!¥1!g" |

tar -C / -cvzf ${targetdir}/${base}.tgz -T -

top bn1 | sed -n -e '1,/^$/p' -e '/apache/p'

1	top bn1 \| sed -n -e '1,/^$/p' -e '/apache/p'

ps axH | awk '/[a]pache/{ $4=""; print $0} ' | sort -k 1,1 -rn | uniq -c

1	ps axH \| awk '/[a]pache/{ $4=""; print $0} ' \| sort -k 1,1 -rn \| uniq -c

awk '{ if($7!="408"){sub(/?.*/, "", $7); u[$7]++} }END{ for(key in u) print u[key], key }' access.log | sort -nr

1	awk '{ if($7!="408"){sub(/?.*/, "", $7); u[$7]++} }END{ for(key in u) print u[key], key }' access.log \| sort -nr

awk '{ c[$1]++ }END{ for(key in c) print c[key], key }' access.log | sort -nr

1	awk '{ c[$1]++ }END{ for(key in c) print c[key], key }' access.log \| sort -nr

特別企画　Alexaカスタムスキル開発入門（vol.54掲載）

投稿日：2018.05.25　｜　カテゴリー：　コード

著者：岡本秀高

2018 年3 月30 日、スマートスピーカー「Amazon Echo」の一般販売が開始されました。そのバックエンドに使用されるAIアシスタント「Amazon Alexa」を活用することで、自分のオリジナルアプリ（スキル）を簡単に作成できます。本企画で、シンプルなスキルを作りながら、スキルの開発方法を学んでいきましょう。
記事本文掲載のシェルスクリプトマガジンvol.54は以下のリンク先でご購入できます。

'use strict';
// alexa-sdkを取得
const Alexa = require('alexa-sdk');
// AlexaのスキルIDを指定（省略可）
const APP_ID = '';

// リクエスト内容から、nameスロットの値を取り出す処理
const getName = (event) => {
  if (!event.request.intent) return '';
  if (!event.request.intent.slots.name.value) return '';
  return `${event.request.intent.slots.name.value} さん`;
}

// インテントごとのレスポンスをオブジェクト形式で定義
// キーがインテント名となる
const handlers = {
  'LaunchRequest': function () {
    // LaunchRequestでは、HelloIntentを同じ内容を話すように設定
    this.emit('HelloIntent');
  },
  'HelloIntent': function () {
    const name = getName(this.event);
    // ユーザーからの返答が必要ない場合は「:tell」を使う
    // 第2引数にAlexaにしゃべらせたい内容を記述
    this.emit(':tell', 'アレクサスキルへようこそ。' + name);
  },
  'Unhandled': function () {
    // Unhandledはユーザーの発話内容がどのインテントにも一致しなかった場合に呼び出される
    // ユーザーからの返答を求めたい場合は「:ask」を使う
    // 第2引数にAlexaにしゃべらせたい内容を記述
    // 第3引数にユーザーがしばらく返答しなかった場合に再度よびかける内容を記述
    this.emit(':ask', 'すみません。よく聞き取れませんでした。なにか試したいことはありますか？', 'なにか試したいことはありますか？');
  },
  'AMAZON.HelpIntent': function () {
    // AMAZON.XXXIntentはAmazonのビルトインインテント
    // ビルトインインテントの詳細：https://developer.amazon.com/ja/docs/custom-skills/implement-the-built-in-intents.html
    this.emit(':ask', 'これはアレクサのサンプルスキルです', 'なにか試したいことはありますか？');
  },
  'AMAZON.CancelIntent': function () {
    this.emit(':tell', 'ごきげんよう。');
  },
  'AMAZON.StopIntent': function () {
    this.emit(':tell', 'ごきげんよう。');
  },
};

// Alexaからのリクエストはeventに含まれる
exports.handler = function (event, context, callback) {
  // alexa-sdkをセットアップ
  const alexa = Alexa.handler(event, context, callback);
  // AlexaのスキルIDをここで定義
  alexa.appId = APP_ID;
  // 作成したレスポンスを登録
  alexa.registerHandlers(handlers);
  // execute()を実行することで、リクエストに対応したレスポンス返す
  alexa.execute();
};

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

'use strict';

// alexa-sdkを取得

const Alexa = require('alexa-sdk');

// AlexaのスキルIDを指定（省略可）

const APP_ID = '';

// リクエスト内容から、nameスロットの値を取り出す処理

const getName = (event) => {

if (!event.request.intent) return '';

if (!event.request.intent.slots.name.value) return '';

return `${event.request.intent.slots.name.value} さん`;

}

// インテントごとのレスポンスをオブジェクト形式で定義

// キーがインテント名となる

const handlers = {

'LaunchRequest': function () {

// LaunchRequestでは、HelloIntentを同じ内容を話すように設定

this.emit('HelloIntent');

},

'HelloIntent': function () {

const name = getName(this.event);

// ユーザーからの返答が必要ない場合は「:tell」を使う

// 第2引数にAlexaにしゃべらせたい内容を記述

this.emit(':tell', 'アレクサスキルへようこそ。' + name);

},

'Unhandled': function () {

// Unhandledはユーザーの発話内容がどのインテントにも一致しなかった場合に呼び出される

// ユーザーからの返答を求めたい場合は「:ask」を使う

// 第2引数にAlexaにしゃべらせたい内容を記述

// 第3引数にユーザーがしばらく返答しなかった場合に再度よびかける内容を記述

this.emit(':ask', 'すみません。よく聞き取れませんでした。なにか試したいことはありますか？', 'なにか試したいことはありますか？');

},

'AMAZON.HelpIntent': function () {

// AMAZON.XXXIntentはAmazonのビルトインインテント

// ビルトインインテントの詳細：https://developer.amazon.com/ja/docs/custom-skills/implement-the-built-in-intents.html

this.emit(':ask', 'これはアレクサのサンプルスキルです', 'なにか試したいことはありますか？');

},

'AMAZON.CancelIntent': function () {

this.emit(':tell', 'ごきげんよう。');

},

'AMAZON.StopIntent': function () {

this.emit(':tell', 'ごきげんよう。');

},

};

// Alexaからのリクエストはeventに含まれる

exports.handler = function (event, context, callback) {

// alexa-sdkをセットアップ

const alexa = Alexa.handler(event, context, callback);

// AlexaのスキルIDをここで定義

alexa.appId = APP_ID;

// 作成したレスポンスを登録

alexa.registerHandlers(handlers);

// execute()を実行することで、リクエストに対応したレスポンス返す

alexa.execute();

};

番外編1　長期サポート版のUbuntu Server 18.04 LTS

投稿日：2018.05.18　｜　カテゴリー：　記事

2018年4月26日に「Ubuntu 18.04 LTS」がリリースされました（図1）。今まで連載で紹介してきた「Ubuntu 16.04 LTS」に代わる長期サポート版（LTS）です。Ubuntu 18.04 LTSでは、カーネルを含む多くのソフトウエアが更新されました。

図1　Ubuntu 18.04 LTSのリリースノート（https://wiki.ubuntu.com/BionicBeaver/ReleaseNotes）

サーバー版の「Ubuntu Server 18.04 LTS」では、ネットワークユーティリティーとして「NetPlan」が採用され、ネットワーク設定は「systemd-networkd」というデーモンで管理されています。また、デフォルトのインストーラーが「Subiquity」となり、九つのステップで簡単にインストール可能になりました。

今回は、このUbuntu Server 18.04 LTSをSubiquityでインストールする方法と、ストレージを柔軟に管理する仕組み「LVM」（Logical Volume Manager）を設定したインストール方法を紹介します。Subiquityでは、インストールが簡単になった分、LVMが設定できません。

第5回　ストレージを柔軟に管理する（LVMの操作2）

投稿日：2018.05.11　｜　カテゴリー：　記事

前回は、Linuxなどのストレージを柔軟に管理する仕組み「LVM」（Logical Volume Manager）の利点として、論理ボリュームを拡張してファイルシステムの容量を増やす方法を紹介しました。今回は、残っている利点の一つとして論理ボリュームの縮小を解説します。
ルートファイルシステムなどに必要以上の容量を割り当ててしまっても、LVMならその容量を減らして減らした容量を別の用途に利用できます（図1）。

図1　論理ボリュームの縮小

第4回　ストレージを柔軟に管理する（LVMの操作1）

投稿日：2018.04.27　｜　カテゴリー：　記事

前回は、Linuxなどのストレージを柔軟に管理する仕組み「LVM」（Logical Volume Manager）の利点と、Ubuntu ServerのストレージをLVMで管理する方法を紹介しました。今回は、LVMの特長である、論理ボリュームを拡張してファイルシステムの容量を増やす方法を、Ubuntu Serverを使って実際に試しながら紹介します（図1）。

図1　論理ボリュームを拡張する

ルートファイルシステムを拡張する

物理ディスクを追加し、それを使ってUbuntu Serverのルートファイルシステムを拡張します。第3回「ストレージを柔軟に管理する（LVMの導入）」で解説した手順で、Ubuntu ServerのストレージをLVMに設定してインストールしておいてください。
いったんシャットダウンして電源を切り、ハードディスクなどの物理ディスクを増設します。増設したら、電源を投入してUbuntu Serverを起動します。ここでは、1Tバイトの新品ハードディスクを追加しました。

追加ディスクのデバイスファイル名を確認する

「parted」コマンドと「grep」コマンドで、追加したハードディスクのデバイスファイル名を調べます。「[sudo] taro のパスワード:」のように表示されたら、自分のパスワードを入力します。

$ sudo parted -l | grep /dev/sd
エラー: /dev/sdb: ディスクラベルが認識できません。
警告: /dev/sr0 を読み書き可能な状態にオープンできません(読み込み専用ファイルシステムです)。/dev/sr0
は読み込みのみ可能な状態でオープンされました。
ディスク /dev/sda: 107GB
ディスク /dev/sdb: 1074GB

1

2

3

4

5

6

$ sudo parted -l | grep /dev/sd

エラー: /dev/sdb: ディスクラベルが認識できません。

警告: /dev/sr0 を読み書き可能な状態にオープンできません(読み込み専用ファイルシステムです)。/dev/sr0

は読み込みのみ可能な状態でオープンされました。

ディスク /dev/sda: 107GB

ディスク /dev/sdb: 1074GB

基本的に、Ubuntu Serverをインストールしているストレージには「/dev/sda」のデバイスファイル名が割り当てられます。/dev/sda以外の「ディスク」から始まる行を確認します。容量から、追加したハードディスクのデバイスファイル名は「/dev/sdb」と分かります。

第3回　ストレージを柔軟に管理する（LVMの導入）

投稿日：2018.04.20　｜　カテゴリー：　記事

第1回から2回にわたって、パーティションの分割方法を紹介しました。いくつかのディレクトリーに別々のパーティションを割り当てると、他のディレクトリーから容量の圧迫などの影響を受けることがなくなります。
しかし、容量不足によるシステムやサーバーアプリの停止は免れても、容量不足に陥っているディレクトリーのサイズを簡単に増やせるわけではありません。新しいハードディスク（HDD）などを追加してより大きなサイズのパーティションを作成し、そのパーティションにディレクトリーの中身を丸ごとコピーした上で割り当てし直す作業が必要です。

柔軟なストレージ管理ができるLVM

Linuxには「LVM」（Logical Volume Manager）という仕組みがあります。LVMでは、HDDなどのストレージ内を物理的な区画（物理ボリューム）に分けて、それをいくつか束ねて論理的なストレージとなる「ボリュームグループ」を作成します（図1）。このボリュームグループから必要な容量だけを「論理ボリューム」に割り当てられます。この論理ボリュームは、パーティションと同様に扱えます。

図1　LVM（Logical Volume Manager）の構成

ボリュームグループや論理ボリュームの容量の増減は容易です。容量を増やしたいなら、ボリュームグループに物理ボリュームを追加し、追加したボリュームから必要な容量だけを論理ボリュームに割り当てます。逆に減らしたいなら、論理ボリュームからボリュームグループに容量を戻します。
また、LVMには「スナップショット」という便利な機能があります。ある時点のLVM上にあるデータの状態を瞬時に保存できます。バックアップ用途にも利用できるのでとても重宝します。
今回は、Ubuntu Server上でLVMを扱う方法を紹介します。

第2回　パーティションを分割する（Ubuntu Serverで実施）

投稿日：2018.04.13　｜　カテゴリー：　記事

前回、別々のパーティションに分けたいディレクトリーを示しました。「/boot」「/home」「/var」の3種類です。今回は、実際にUbuntu Serverのパーティションを分割し、それぞれのディレクトリーに割り当てます（図1）。

図1　パーティションを分割して個々のディレクトリーに割り当てる

分割は、Ubuntu Sertverのインストール時に実施するのが簡単です。そこで、Ubuntu Serverのインストールから始めましょう。以前の連載「UbuntuではじめるLinuxサーバー」の第1回で紹介した方法でインストールメディアを作成してください。そして、同じ連載の第2回で解説した手順でインストールを進めます。図2の画面になったら、「手動」を選んでパーティションを手作業で作成します。

図2　パーティションの作成方法を選択する画面

インストール対象のマシンに内蔵または接続されているストレージが自動認識されます。「iSCSIボリュームの設定」と「パーティションへの変更を元に戻す」の間に、そのストレージが表示されるのでそれを選択します（図3）。

図3　Ubuntu Serverをインストールするディスクを選択

ここでは何も書き込まれていないハードディスク（HDD）を利用しているので、最初にディスクの先頭にパーティション情報を保存するためのテーブルを作成します。図4の画面で「はい」を選びます。

図4　パーティションテーブルの作成

第1回　パーティションを分割する（ディレクトリー構成）

投稿日：2018.04.6　｜　カテゴリー：　記事

Linuxが使用するディスク容量が不足すると、リモートからアクセスできなかったり、サーバーが正しく稼働しなくなったりするなど、重大な問題が起こりかねません。サーバーを安定的に運用するには、何らかの対策が必要です。ディスク容量が足りなくなる前に増設することも一つの方法ですが、まずはLinuxの特徴を生かした対策を施しておきましょう。
Linuxでは、ディレクトリーごとに別々のパーティション（ディスク内の区画）を割り当てられます。パーティションを分けておけば、あるパーティションが容量不足になっても他のパーティションへの影響はありません。よって、システムやサーバーの稼働に重要なファイルを格納しているディレクトリーと、容量が肥大化しやすいディレクトリーを、あらかじめ別々のパーティションに分けておくことで、最悪の事態を回避できます（図1）。

図1　システムのパーティションを分けておく

はじめてのLinuxサーバー運用管理

投稿日：2018.04.6　｜　カテゴリー：　記事

正常に、安全にLinuxサーバーを稼働させるには、日々の運用管理が重要です。Linux（Ubuntu）サーバーの運用管理に役立つ内容を紹介します。

written by シェルスクリプトマガジン編集部

最終回　グループウエアサーバーを作る（Joruri Gwの導入）

投稿日：2018.03.30　｜　カテゴリー：　記事

約7カ月間、「UbuntuではじめるLinuxサーバー」を連載してきました。今回は、その最後としてグループウエアサーバーを構築します。無料で使えるグループウエアサーバーソフトはいくつか存在します。ただし、日本で使うなら国産のグループウエアサーバーソフトがお薦めです。そこで、徳島県のサンブリッジが開発するオープンソースの「Joruri Gw」を使用します（図1）。

図1　グループウエアサーバーソフト「Joruri Gw」の掲示板を表示

Joruri GWは、プログラミング言語「Ruby」とフレームワーク「Ruby on Rails」で開発されています。Webサーバーソフト「Apache HTTP Server」（以下、Apache）、データベース管理システム（DBMS）「MySQL」、分散型メモリーキャッシュシステム「Memcached」と組み合わせて動作します。対応OSはCentOSですが、Ubuntu Server（16.04 LTS）上でも動きます。

スズラボ通信　３７　オープンソース・デザインBeagleboard

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：すずきひろのぶ

今回はPocketBeagle を取り上げたいと思います。本連載だけではなくシェルスクリプトマガジンでもなんども取り上げているクレジットカードサイズのコンピュータRaspberry Pi は広く知られていますが、それ以外にもカードサイズの小さなコンピュータがあります。その中の1 つがBeagleBoard.orgFoundation が提供するBeagleBone ファミリです。
そのBeagleBone ファミリを、さらに小さくしたボードコンピュータがPocketBeagle です。

記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

PokectBeagleのブートの様子
https://youtu.be/0dIX4gAv2ZI

ラズパイ入門ボードで学ぶ電子回路の制御（vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：米田聡

シェルスクリプトマガジンでは、小型コンピュータボード「Raspberry Pi」（ラズパイ）のプログラミングが楽しめる拡張ボード「ラズパイ入門ボード」を制作しました。本連載では、ラズパイ入門
ボードを使った電子回路制御を取り上げていきます。第1回はOLEDに日本語文字を表示します。
記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

#!/usr/bin/python3
# -*- coding: utf-8 -*-

import time
import Adafruit_GPIO.SPI as SPI
import Adafruit_SSD1306

from PIL import Image
from PIL import ImageDraw
from PIL import ImageFont

# OLEDのサイズ設定
OLED_WIDTH = 128
OLED_HEIGHT = 64

# OLEDとSPIバスの設定
RST = 24
DC = 23
SPI_PORT = 0
SPI_DEVICE = 0

# フォントの設定
DEFAULT_FONT = '/usr/share/fonts/truetype/fonts-japanese-gothic.ttf'
FONT_SIZE = 14

# SPIオブジェクト
spi = SPI.SpiDev(SPI_PORT, SPI_DEVICE, max_speed_hz=8000000)

# 128×64ドットのOLEDオブジェクト
disp = Adafruit_SSD1306.SSD1306_128_64(rst=RST, dc=DC, spi=spi)

# OLEDオブジェクトのスタート
disp.begin()

# OLEDオブジェクトのバッファークリア
disp.clear()
# バッファの表示
disp.display()

# Imageオブジェクトの作成
image = Image.new('1', (OLED_WIDTH, OLED_HEIGHT) ,0)

# drawオブジェクトの取得
draw = ImageDraw.Draw(image)

# TryeTypeフォントオブジェクト
jpfont = ImageFont.truetype(DEFAULT_FONT, FONT_SIZE, encoding='unic')

# 文字をimageに描く
draw.text((0,0), 'こんにちは', font=jpfont, fill=1)
draw.text((0,16), 'Hello, World', font=jpfont, fill=1)
draw.text((0,32), 'シェルスクリプトマガジン', font=jpfont, fill=1)
draw.text((0,48), 'ラズパイ入門ボード', font=jpfont, fill=1)

# imageをOLEDバッファーに書き込む
disp.image(image)
# バッファーを表示
disp.display()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

#!/usr/bin/python3

# -*- coding: utf-8 -*-

import time

import Adafruit_GPIO.SPI as SPI

import Adafruit_SSD1306

from PIL import Image

from PIL import ImageDraw

from PIL import ImageFont

# OLEDのサイズ設定

OLED_WIDTH = 128

OLED_HEIGHT = 64

# OLEDとSPIバスの設定

RST = 24

DC = 23

SPI_PORT = 0

SPI_DEVICE = 0

# フォントの設定

DEFAULT_FONT = '/usr/share/fonts/truetype/fonts-japanese-gothic.ttf'

FONT_SIZE = 14

# SPIオブジェクト

spi = SPI.SpiDev(SPI_PORT, SPI_DEVICE, max_speed_hz=8000000)

# 128×64ドットのOLEDオブジェクト

disp = Adafruit_SSD1306.SSD1306_128_64(rst=RST, dc=DC, spi=spi)

# OLEDオブジェクトのスタート

disp.begin()

# OLEDオブジェクトのバッファークリア

disp.clear()

# バッファの表示

disp.display()

# Imageオブジェクトの作成

image = Image.new('1', (OLED_WIDTH, OLED_HEIGHT) ,0)

# drawオブジェクトの取得

draw = ImageDraw.Draw(image)

# TryeTypeフォントオブジェクト

jpfont = ImageFont.truetype(DEFAULT_FONT, FONT_SIZE, encoding='unic')

# 文字をimageに描く

draw.text((0,0), 'こんにちは', font=jpfont, fill=1)

draw.text((0,16), 'Hello, World', font=jpfont, fill=1)

draw.text((0,32), 'シェルスクリプトマガジン', font=jpfont, fill=1)

draw.text((0,48), 'ラズパイ入門ボード', font=jpfont, fill=1)

# imageをOLEDバッファーに書き込む

disp.image(image)

# バッファーを表示

disp.display()

40歳から始める、オレとRubyプログラミング（vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：しょっさん

自動的にホストが登録される部分までのプログラムは、これまでずいぶんとリファクタリングを繰り返しながら作ってきました。今回は、残りのサーバによる定期監視部分です。以前、「TaskControl」クラスを作って、将来の実装に備えました。そのTaskControlクラスの改修と、それを制御するためのメインとなる部分を準備します。
従って、今回のプログラミング作業は次の3点です。
1. 全体を制御するメインルーチンの改修
2. 死活を監視するためのTaskControlクラスの完成
3. サーバ側に合わせたエージェント側の改修
記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

# coding: utf-8

# filename: lib/reins.rb

require "reins/version"
require "reins/dispatcher"
require "reins/auth_service"
require "reins/host_registry"
require "reins/task_control"
require "reins/config"

require "json"
require "socket"
require "ipaddr"
require 'thwait'

module Reins
  class << self
    # 指定されたポートでサーバを起動する
    # == パラメータ
    # port:: 割り当てるポート番号
    # == 返り値
    # Exception:: サーバが起動できなかった場合、例外を発生させ起動させない
    # TCPSocket:: 正常に起動した場合、Socket オブジェクトを返す
    def run_server(port)
      Reins.logger.info("Reins #{VERSION} を #{port} で起動します")
      TCPServer.new(port)
    rescue => e
      Reins.logger.error("Reins が起動できませんでした: #{e}")
      puts(e.to_s)
      exit
    end

    # 起動されているサーバを停止する
    # == パラメータ
    # server:: 起動中のサーバの Socket
    # == 返り値
    # 特になし
    def exit_server(server)
      Reins.logger.info("Reins #{VERSION} を終了します")
      Reins.regist_host.store
      server.close
      exit
    end

    # ブロックとして定義されたコードをスレッド化して実行する
    # == パラメータ
    # ブロック:: スレッドとして実行したいコード
    # == 返り値
    # Thread:: 生成されたスレッド
    def threaded
      Thread.new do
        loop do
          yield
        end
      end
    end

    # クライアントからの接続を待ち受ける
    # == パラメータ
    # TCPSocket:: Socket オブジェクト
    # == 返り値
    # Thread:: 生成されたスレッド
    def connect_client(server)
      Thread.start(server.accept) do |c|
        client = Reins::Clients.new(c)
        status = {}
        status["keycode"] = client.keycode
        status["result"]  = client.command == 'auth' ? client.run_auth : client.run_command
        c.puts JSON.pretty_generate(status)
        c.close
      end
    end

    # クライアントとの定義されたタスクを5秒間隔で実行するよう制御
    # == パラメータ
    # 特になし
    # == 返り値
    # 特になし
    def check_client
      threads = []
        Reins.regist_host.read_hosts.each do |host|
          threads << Thread.new do
            task = TaskControl.new(host)
            task.check_agent
          end
        end
      ThreadsWait.all_waits(*threads)
      sleep 5
    end
  end

  class Clients
    attr_reader :addr, :keycode, :command, :options

    def initialize(client)
      @message = JSON.parse(client.gets)
      Reins.logger.debug(@message)
      @addr    = IPAddr.new(client.peeraddr[3]).native.to_s
      @keycode = @message["keycode"]
      @command = @message["command"]
      @options = @message["options"]
    end

    # 認証処理を行う
    # == パラメータ
    # 特になし
    # == 返り値
    # key:: 認証が成功した場合は接続用の認証キーを返す
    # false:: 認証が失敗した時は "false" 文字列を返す
    def run_auth
      Reins.logger.debug("#{addr} : 認証を行います")
      if (key = Reins.auth_service.authenticate_key(keycode, addr))
        key
      else
        "false"
      end
    end

    # サーバで実行されるコマンドを受け渡す
    # == パラメータ
    # 特になし
    # == 返り値
    # false:: 実行できなければ "false" 文字列を返す
    # false以外:: 実行された結果を、改行を含む文字列で返す
    def run_command
      Reins::Dispatch.new(addr, keycode).command(command, options)
    end
  end

  def start
    server = run_server(Reins.port)
    clients_thread = threaded {connect_client(server)}
    tasks_thread   = threaded {check_client}
    tasks_thread.join
    clients_thread.join
  rescue Interrupt
    exit_server(server)
  end

  module_function :start
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

# coding: utf-8

# filename: lib/reins.rb

require "reins/version"

require "reins/dispatcher"

require "reins/auth_service"

require "reins/host_registry"

require "reins/task_control"

require "reins/config"

require "json"

require "socket"

require "ipaddr"

require 'thwait'

module Reins

class << self

# 指定されたポートでサーバを起動する

# == パラメータ

# port:: 割り当てるポート番号

# == 返り値

# Exception:: サーバが起動できなかった場合、例外を発生させ起動させない

# TCPSocket:: 正常に起動した場合、Socket オブジェクトを返す

def run_server(port)

Reins.logger.info("Reins #{VERSION} を #{port} で起動します")

TCPServer.new(port)

rescue => e

Reins.logger.error("Reins が起動できませんでした: #{e}")

puts(e.to_s)

exit

end

# 起動されているサーバを停止する

# == パラメータ

# server:: 起動中のサーバの Socket

# == 返り値

# 特になし

def exit_server(server)

Reins.logger.info("Reins #{VERSION} を終了します")

Reins.regist_host.store

server.close

exit

end

# ブロックとして定義されたコードをスレッド化して実行する

# == パラメータ

# ブロック:: スレッドとして実行したいコード

# == 返り値

# Thread:: 生成されたスレッド

def threaded

Thread.new do

loop do

yield

end

# クライアントからの接続を待ち受ける

# == パラメータ

# TCPSocket:: Socket オブジェクト

# == 返り値

# Thread:: 生成されたスレッド

def connect_client(server)

Thread.start(server.accept) do |c|

client = Reins::Clients.new(c)

status = {}

status["keycode"] = client.keycode

status["result"] = client.command == 'auth' ? client.run_auth : client.run_command

c.puts JSON.pretty_generate(status)

c.close

end

# クライアントとの定義されたタスクを5秒間隔で実行するよう制御

# == パラメータ

# 特になし

# == 返り値

# 特になし

def check_client

threads = []

Reins.regist_host.read_hosts.each do |host|

threads << Thread.new do

task = TaskControl.new(host)

task.check_agent

end

ThreadsWait.all_waits(*threads)

sleep 5

end

class Clients

attr_reader :addr, :keycode, :command, :options

def initialize(client)

@message = JSON.parse(client.gets)

Reins.logger.debug(@message)

@addr = IPAddr.new(client.peeraddr[3]).native.to_s

@keycode = @message["keycode"]

@command = @message["command"]

@options = @message["options"]

end

# 認証処理を行う

# == パラメータ

# 特になし

# == 返り値

# key:: 認証が成功した場合は接続用の認証キーを返す

# false:: 認証が失敗した時は "false" 文字列を返す

def run_auth

Reins.logger.debug("#{addr} : 認証を行います")

if (key = Reins.auth_service.authenticate_key(keycode, addr))

key

else

"false"

end

# サーバで実行されるコマンドを受け渡す

# == パラメータ

# 特になし

# == 返り値

# false:: 実行できなければ "false" 文字列を返す

# false以外:: 実行された結果を、改行を含む文字列で返す

def run_command

Reins::Dispatch.new(addr, keycode).command(command, options)

end

def start

server = run_server(Reins.port)

clients_thread = threaded {connect_client(server)}

tasks_thread = threaded {check_client}

tasks_thread.join

clients_thread.join

rescue Interrupt

exit_server(server)

end

module_function :start

end

# filename: task_control.rb
module Reins
  class TaskControl
    # クライアント定義
    # == パラメータ
    # hostname:: 接続先クライアントのホスト名、またはIPアドレス
    # port:: 接続先クライアントのTCPポート番号。通常は 24368
    # == 返り値
    # 特になし
    def initialize(hostname = '127.0.0.1', port = 24_368)
      @addr    = hostname
      @port    = port
      @keycode = Reins.regist_host.read_hostkeys[@addr]
    end

    # クライアントとの接続
    # == パラメータ
    # 特になし
    # == 返り値
    # TCPScoket:: TCPのソケット情報
    def connection
      TCPSocket.open(@addr, @port)
    rescue => e
      Reins.logger.error("#{e}: クライアントへの接続でエラーが発生しました")
      dead
    end

    # クライアントとの死活確認
    # == パラメータ
    # 特になし
    # == 返り値
    # true:: 生存確認
    # false:: クライアントが停止、またはネットワーク上に問題あり
    def viability(s)
      s.puts(JSON.generate("keycode" => @keycode.to_s, "command" => "watch"))
      raise unless s.gets.chomp == "OK"
      alive
    rescue => e
      Reins.logger.error("#{e}: クライアントへの接続でエラーが発生しました")
      dead
    end

    # ステータスコードを「alive」に変更
    # == パラメータ
    # 特になし
    # == 返り値
    # true:: ステータスの変更に成功
    # false:: ステータスの変更に失敗
    def alive
      Reins.regist_host.set_status(@addr, @keycode, "alive") if Reins.regist_host.get_status(@addr, @keycode) == "dead"
    end

    # ステータスコードを「dead」に変更
    # == パラメータ
    # 特になし
    # == 返り値
    # true:: ステータスの変更に成功
    # false:: ステータスの変更に失敗
    def dead
      Reins.regist_host.set_status(@addr, @keycode, "dead") if Reins.regist_host.get_status(@addr, @keycode) == "alive"
    end

    # クライアントエージェントとの応答確認
    # == パラメータ
    # 特になし
    # == 返り値
    # 特になし
    def check_agent
      Reins.logger.debug("#{@addr} 宛にチェックを行います...")
      viability(connection)
      close
    end

    # クライアントとの接続を切断
    # == パラメータ
    # 特になし
    # == 返り値
    # nil:: 正常に切断
    def disconnect
      @s.close
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

# filename: task_control.rb

module Reins

class TaskControl

# クライアント定義

# == パラメータ

# hostname:: 接続先クライアントのホスト名、またはIPアドレス

# port:: 接続先クライアントのTCPポート番号。通常は 24368

# == 返り値

# 特になし

def initialize(hostname = '127.0.0.1', port = 24_368)

@addr = hostname

@port = port

@keycode = Reins.regist_host.read_hostkeys[@addr]

end

# クライアントとの接続

# == パラメータ

# 特になし

# == 返り値

# TCPScoket:: TCPのソケット情報

def connection

TCPSocket.open(@addr, @port)

rescue => e

Reins.logger.error("#{e}: クライアントへの接続でエラーが発生しました")

dead

end

# クライアントとの死活確認

# == パラメータ

# 特になし

# == 返り値

# true:: 生存確認

# false:: クライアントが停止、またはネットワーク上に問題あり

def viability(s)

s.puts(JSON.generate("keycode" => @keycode.to_s, "command" => "watch"))

raise unless s.gets.chomp == "OK"

alive

rescue => e

Reins.logger.error("#{e}: クライアントへの接続でエラーが発生しました")

dead

end

# ステータスコードを「alive」に変更

# == パラメータ

# 特になし

# == 返り値

# true:: ステータスの変更に成功

# false:: ステータスの変更に失敗

def alive

Reins.regist_host.set_status(@addr, @keycode, "alive") if Reins.regist_host.get_status(@addr, @keycode) == "dead"

end

# ステータスコードを「dead」に変更

# == パラメータ

# 特になし

# == 返り値

# true:: ステータスの変更に成功

# false:: ステータスの変更に失敗

def dead

Reins.regist_host.set_status(@addr, @keycode, "dead") if Reins.regist_host.get_status(@addr, @keycode) == "alive"

end

# クライアントエージェントとの応答確認

# == パラメータ

# 特になし

# == 返り値

# 特になし

def check_agent

Reins.logger.debug("#{@addr} 宛にチェックを行います...")

viability(connection)

close

end

# クライアントとの接続を切断

# == パラメータ

# 特になし

# == 返り値

# nil:: 正常に切断

def disconnect

@s.close

end

# filename: reins_agent.rb
require "reins_agent/config"
require "reins_agent/version"

require "json"
require "ipaddr"
require "socket"

module ReinsAgent
  class << self
    # サーバへ接続した後、指定したポート番号でサービスを開放する
    # == パラメータ
    # port:: エージェントが起動するためのポート番号
    # == 返り値
    # agent:: 起動されたサービスのソケット情報(@agent でも参照可)
    def run_agent(port)
      ReinsAgent.logger.info("Reins Agent #{VERSION} を #{port} で起動します")

      auth_command = JSON.generate("command" => "auth", "keycode" => ReinsAgent.client_key.to_s)
      throw unless (status = JSON.parse(ReinsAgent.exec(auth_command)))

      @cert_key = status["result"]
      ReinsAgent.logger.debug("認証キー : #{@cert_key} で認証が完了しました")

      @agent = TCPServer.new(ReinsAgent.client_port)
    rescue => e
      ReinsAgent.logger.fatal("Reins Agent が起動できませんでした: #{e}")
      exit
    end

    # サーバからのデータをパースする
    # == パラメータ
    # r:: リモートサーバのソケット情報
    # == 返り値
    # 特になし、ただし @message 連想配列へ、取得した情報を取得
    def define_value(r)
      @message = JSON.parse(r.gets)
      @message["IP address"] = IPAddr.new(r.peeraddr[3]).native.to_s
      ReinsAgent.logger.debug("addr = #{@message['IP address']}, keycode = #{@message['keycode']}, command = #{@message['command']}, options = #{@message['options']}")
    end

    # ブロックとして定義されたコードをスレッド化して実行する
    # == パラメータ
    # ブロック:: スレッドとして実行したいコード
    # == 返り値
    # Thread:: 生成されたスレッド
    def threaded
      Thread.new do
        loop do
          yield
        end
      end
    end

    # エージェントの終了処理
    # == パラメータ
    # 特になし
    # == 返り値
    # 常に終了
    def exit_agent
      ReinsAgent.logger.info("Reins Agent #{VERSION} を終了します")
      delete_command = JSON.generate("command" => "delete", "keycode" => @cert_key.to_s)
      ReinsAgent.exec(delete_command)
      @agent.close
      exit
    end

    # サーバへコマンドを送信し、その返り値を取得する
    # == パラメータ
    # command:: サーバへ送信するコマンド+オプションを指定
    # == 返り値
    # response:: サーバからの返り値(改行付き/複数行)
    def exec(command)
      ReinsAgent.logger.debug("コマンドを実行します : #{command}")
      s = TCPSocket.open(ReinsAgent.server_host, ReinsAgent.server_port)
      s.puts command
      response = s.read
      s.close if s
      response
    end

    # サーバからの接続用常駐エージェントを起動
    # == パラメータ
    # 特になし
    # == 返り値
    # 特になし
    def connect_agent
      Thread.start(@agent.accept) do |r|
        define_value(r)
        r.puts("OK")
        r.close
      end
    end
  end

  #
  def start
    run_agent(ReinsAgent.client_port)
    list_command = JSON.generate("command" => "list", "keycode" => @cert_key.to_s)
    puts ReinsAgent.exec(list_command)

    server_thread = threaded {connect_agent}
    server_thread.join
  rescue Interrupt
    exit_agent
  end

  module_function :start
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

# filename: reins_agent.rb

require "reins_agent/config"

require "reins_agent/version"

require "json"

require "ipaddr"

require "socket"

module ReinsAgent

class << self

# サーバへ接続した後、指定したポート番号でサービスを開放する

# == パラメータ

# port:: エージェントが起動するためのポート番号

# == 返り値

# agent:: 起動されたサービスのソケット情報(@agent でも参照可)

def run_agent(port)

ReinsAgent.logger.info("Reins Agent #{VERSION} を #{port} で起動します")

auth_command = JSON.generate("command" => "auth", "keycode" => ReinsAgent.client_key.to_s)

throw unless (status = JSON.parse(ReinsAgent.exec(auth_command)))

@cert_key = status["result"]

ReinsAgent.logger.debug("認証キー : #{@cert_key} で認証が完了しました")

@agent = TCPServer.new(ReinsAgent.client_port)

rescue => e

ReinsAgent.logger.fatal("Reins Agent が起動できませんでした: #{e}")

exit

end

# サーバからのデータをパースする

# == パラメータ

# r:: リモートサーバのソケット情報

# == 返り値

# 特になし、ただし @message 連想配列へ、取得した情報を取得

def define_value(r)

@message = JSON.parse(r.gets)

@message["IP address"] = IPAddr.new(r.peeraddr[3]).native.to_s

ReinsAgent.logger.debug("addr = #{@message['IP address']}, keycode = #{@message['keycode']}, command = #{@message['command']}, options = #{@message['options']}")

end

# ブロックとして定義されたコードをスレッド化して実行する

# == パラメータ

# ブロック:: スレッドとして実行したいコード

# == 返り値

# Thread:: 生成されたスレッド

def threaded

Thread.new do

loop do

yield

end

# エージェントの終了処理

# == パラメータ

# 特になし

# == 返り値

# 常に終了

def exit_agent

ReinsAgent.logger.info("Reins Agent #{VERSION} を終了します")

delete_command = JSON.generate("command" => "delete", "keycode" => @cert_key.to_s)

ReinsAgent.exec(delete_command)

@agent.close

exit

end

# サーバへコマンドを送信し、その返り値を取得する

# == パラメータ

# command:: サーバへ送信するコマンド+オプションを指定

# == 返り値

# response:: サーバからの返り値(改行付き/複数行)

def exec(command)

ReinsAgent.logger.debug("コマンドを実行します : #{command}")

s = TCPSocket.open(ReinsAgent.server_host, ReinsAgent.server_port)

s.puts command

response = s.read

s.close if s

response

end

# サーバからの接続用常駐エージェントを起動

# == パラメータ

# 特になし

# == 返り値

# 特になし

def connect_agent

Thread.start(@agent.accept) do |r|

define_value(r)

r.puts("OK")

r.close

end

#

def start

run_agent(ReinsAgent.client_port)

list_command = JSON.generate("command" => "list", "keycode" => @cert_key.to_s)

puts ReinsAgent.exec(list_command)

server_thread = threaded {connect_agent}

server_thread.join

rescue Interrupt

exit_agent

end

module_function :start

end

#!/usr/bin/env ruby

# ThreadsWait が使いたくて
require 'thwait'

# スレッドの実行前に、ひとまず "100" と定義しておく
a = 100
threads = []

puts "実行前-親スレッド = #{a}"

# 5つのスレッドを起動し、各々で、変数"a"の状態を変更してみる
5.times { |i|
    threads << Thread.new do
        a = i
        puts "子スレッド = #{a}"
    end
}

# 全てのスレッドの終了を待つ...
ThreadsWait.all_waits(*threads)

# さて、実行後、変数"a" はどうなったか？
puts "実行後-親スレッド = #{a}"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

#!/usr/bin/env ruby

# ThreadsWait が使いたくて

require 'thwait'

# スレッドの実行前に、ひとまず "100" と定義しておく

a = 100

threads = []

puts "実行前-親スレッド = #{a}"

# 5つのスレッドを起動し、各々で、変数"a"の状態を変更してみる

5.times { |i|

threads << Thread.new do

a = i

puts "子スレッド = #{a}"

end

}

# 全てのスレッドの終了を待つ...

ThreadsWait.all_waits(*threads)

# さて、実行後、変数"a" はどうなったか？

puts "実行後-親スレッド = #{a}"

#!/usr/bin/env ruby

# 実行前に親プロセスとなる、自分のプロセスIDを保管しておく
a = Process.pid
puts "実行前-親プロセス = #{a}"

# 子プロセスを5つ起動し、親プロセスから引き継いだ、変数"a"の内容を、子プロセスのプロセスIDで上書きしてみる
5.times do 
    fork do
        a = Process.pid
        puts "子プロセス = #{a}"
    end
end

# 5つの子プロセスの終了を待つ
5.times do
    Process.wait
end

# さて、実行後、変数"a" はどうなったか？
puts "実行後-親プロセス = #{a}"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#!/usr/bin/env ruby

# 実行前に親プロセスとなる、自分のプロセスIDを保管しておく

a = Process.pid

puts "実行前-親プロセス = #{a}"

# 子プロセスを5つ起動し、親プロセスから引き継いだ、変数"a"の内容を、子プロセスのプロセスIDで上書きしてみる

5.times do

fork do

a = Process.pid

puts "子プロセス = #{a}"

end

# 5つの子プロセスの終了を待つ

5.times do

Process.wait

end

# さて、実行後、変数"a" はどうなったか？

puts "実行後-親プロセス = #{a}"

漢のUNIX　XMLをJSONに変換するコードを書いてみよう（Vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：後藤大地

今回は前回作ったサンプルコードをベースに、XMLデータをJSON（JavaScript Object Notation）形式に変換する例を紹介する。XMLデータをJSON形式に変換する、またはその逆を実施するのは需要の高い処理だ。今回紹介するのはサンプルレベルのコードだが、それなりに実用的なコードが書けることをわかってもらえるだろう。
記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

#include <stdio.h>
#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);
static void XMLCALL end(void *, const XML_Char *);

static int depth = 0;

int
main(int argc, char *argv[])
{
        char buf[BUFSIZ];
        int len, done;
        XML_Parser parser = XML_ParserCreate(NULL);

        XML_SetElementHandler(parser, begin, end);
        do {
                len = fread(buf, 1, sizeof(buf), stdin);
                done = len < sizeof(buf);
                if (XML_Parse(parser, buf, (int)len, done) == 
                        XML_STATUS_ERROR)
                        return 1;
        } while (!done);

        XML_ParserFree(parser);
        return 0;
}

static void XMLCALL
begin(void *d, const XML_Char *name, const XML_Char **attr)
{
        for (int i = 0; i < depth; i++)
                printf("→");

        printf("%s\n", name);
        ++depth;
}

static void XMLCALL
end(void *d, const XML_Char * name)
{
        --depth;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

#include <stdio.h>

#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);

static void XMLCALL end(void *, const XML_Char *);

static int depth = 0;

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

int len, done;

XML_Parser parser = XML_ParserCreate(NULL);

XML_SetElementHandler(parser, begin, end);

do {

len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR)

return 1;

} while (!done);

XML_ParserFree(parser);

return 0;

}

static void XMLCALL

begin(void *d, const XML_Char *name, const XML_Char **attr)

{

for (int i = 0; i < depth; i++)

printf("→");

printf("%s\n", name);

++depth;

}

static void XMLCALL

end(void *d, const XML_Char * name)

{

--depth;

}

<?xml version="1.0" encoding="UTF-8"?>

<document>
 <docgroup>
  <docinfo>
   <title><p>タイトル</p></title>
   <author><p>名前</p></author>
   <firstedition><p>編集開始日</p></firstedition>
   <lastmodified><p>編集終了日</p></lastmodified>
  </docinfo>

  <docgroup>
   <docinfo>
    <title><p>章タイトル</p></title>
   </docinfo>

   <p>説明1</p>

   <p>説明2</p>
  </docgroup>
 </docgroup>
</document>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

<?xml version="1.0" encoding="UTF-8"?>

<firstedition><p>編集開始日</p></firstedition>

<lastmodified><p>編集終了日</p></lastmodified>

</docinfo>

<title><p>章タイトル</p></title>

</docinfo>

</docgroup>

</document>

CC=     cc
RM=     rm -f

EXPAT=  -lexpat
LIBDIR= /usr/local/lib
INCLUDEDIR=     /usr/local/include
CFLAGS= -I${INCLUDEDIR} -L${LIBDIR} ${EXPAT}

SRC=    xml2json.c
OUT=    xml2json

build:
        ${CC} -o ${OUT} ${CFLAGS} ${SRC}


clean:
        ${RM} ${OUT}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

CC= cc

RM= rm -f

EXPAT= -lexpat

LIBDIR= /usr/local/lib

INCLUDEDIR= /usr/local/include

CFLAGS= -I${INCLUDEDIR} -L${LIBDIR} ${EXPAT}

SRC= xml2json.c

OUT= xml2json

build:

${CC} -o ${OUT} ${CFLAGS} ${SRC}

clean:

${RM} ${OUT}

#include <stdio.h>
#include <string.h>
#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);
static void XMLCALL end(void *, const XML_Char *);

static int depth = 0;

static char *struct_elements[] = {
        "document",
        "docgroup",
        "docinfo"
};

static char *key_elements[] = {
        "title",
        "author",
        "firstedition",
        "lastmodified"
};

static char *value_elements[] = {
        "p",
};

int
main(int argc, char *argv[])
{
        char buf[BUFSIZ];
        int len, done;
        XML_Parser parser = XML_ParserCreate(NULL);

        XML_SetElementHandler(parser, begin, end);
        do {
                len = fread(buf, 1, sizeof(buf), stdin);
                done = len < sizeof(buf);
                if (XML_Parse(parser, buf, (int)len, done) == 
                        XML_STATUS_ERROR)
                        return 1;
        } while (!done);

        XML_ParserFree(parser);
        return 0;
}

static void XMLCALL
begin(void *d, const XML_Char *name, const XML_Char **attr)
{
        int len, done;

        done = 0;
        len = sizeof(struct_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(struct_elements[i], name)) {
                        printf("構造化要素: %s\n", name);
                        done = 1;
                }
        }

        len = sizeof(key_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(key_elements[i], name)) {
                        printf("鍵要素: %s\n", name);
                        done = 1;
                }
        }

        len = sizeof(value_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(value_elements[i], name)) {
                        printf("値要素: %s\n", name);
                        done = 1;
                }
        }

        ++depth;
}

static void XMLCALL
end(void *d, const XML_Char * name)
{
        --depth;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

#include <stdio.h>

#include <string.h>

#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);

static void XMLCALL end(void *, const XML_Char *);

static int depth = 0;

static char *struct_elements[] = {

"document",

"docgroup",

"docinfo"

};

static char *key_elements[] = {

"title",

"author",

"firstedition",

"lastmodified"

};

static char *value_elements[] = {

"p",

};

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

int len, done;

XML_Parser parser = XML_ParserCreate(NULL);

XML_SetElementHandler(parser, begin, end);

do {

len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR)

return 1;

} while (!done);

XML_ParserFree(parser);

return 0;

}

static void XMLCALL

begin(void *d, const XML_Char *name, const XML_Char **attr)

{

int len, done;

done = 0;

len = sizeof(struct_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(struct_elements[i], name)) {

printf("構造化要素: %s\n", name);

done = 1;

}

len = sizeof(key_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(key_elements[i], name)) {

printf("鍵要素: %s\n", name);

done = 1;

}

len = sizeof(value_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(value_elements[i], name)) {

printf("値要素: %s\n", name);

done = 1;

}

++depth;

}

static void XMLCALL

end(void *d, const XML_Char * name)

{

--depth;

}

#include <stdio.h>
#include <string.h>
#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);
static void XMLCALL end(void *, const XML_Char *);

static char *struct_elements[] = {
        "document",
        "docgroup",
        "docinfo"
};

static char *key_elements[] = {
        "title",
        "author",
        "firstedition",
        "lastmodified"
};

static char *value_elements[] = {
        "p",
};

static int depth = 0;
static char *pre_element;

int
main(int argc, char *argv[])
{
        char buf[BUFSIZ];
        int len, done;
        XML_Parser parser = XML_ParserCreate(NULL);

        XML_SetElementHandler(parser, begin, end);
        do {
                len = fread(buf, 1, sizeof(buf), stdin);
                done = len < sizeof(buf);
                if (XML_Parse(parser, buf, (int)len, done) == 
                        XML_STATUS_ERROR)
                        return 1;
        } while (!done);

        XML_ParserFree(parser);
        return 0;
}

static void XMLCALL
begin(void *d, const XML_Char *name, const XML_Char **attr)
{
        int len, done;

        done = 0;

        len = sizeof(struct_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(struct_elements[i], name)) {
                        if (0 == strcmp("document", name))
                                printf("{ ");

                        for (int i = 0; i < depth; i++)
                                printf("\t");
                        printf("\"%s\": {\n", name);

                        done = 1;
                        pre_element = struct_elements[i];
                }
        }

        len = sizeof(key_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(key_elements[i], name)) {
                        for (int i = 0; i < depth; i++)
                                printf("\t");
                        printf("\"%s\":", name);

                        done = 1;
                        pre_element = key_elements[i];
                }
        }

        int parent_is_key = 0;
        len = sizeof(value_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(value_elements[i], name)) {
                        for (int j = 0, 
                                k = sizeof(key_elements) / sizeof(char*);
                                j < k; j++) {
                                if (key_elements[j] == pre_element) {
                                        parent_is_key = 1;
                                }
                        }

                        if (parent_is_key) {
                                printf("\"値\",\n");
                        }
                        else {
                                for (int i = 0; i < depth; i++)
                                        printf("\t");
                                printf("\"content\": \"値\",\n");
                        }

                        done = 1;
                        pre_element = value_elements[i];
                }
        }

        if (!done)
                pre_element = NULL;

        ++depth;
}

static void XMLCALL
end(void *d, const XML_Char * name)
{
        int len, done;

        --depth;

        done = 0;
        len = sizeof(struct_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(struct_elements[i], name)) {

                        if (0 == strcmp("document", name))
                                printf("}\n");
                        else {
                                for (int i = 0; i < depth; i++)
                                        printf("\t");
                                printf("},\n");
                        }
                        done = 1;
                }
        }

        len = sizeof(key_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(key_elements[i], name)) {
                        done = 1;
                }
        }

        len = sizeof(value_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(value_elements[i], name)) {
                        done = 1;
                }
        }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

#include <stdio.h>

#include <string.h>

#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);

static void XMLCALL end(void *, const XML_Char *);

static char *struct_elements[] = {

"document",

"docgroup",

"docinfo"

};

static char *key_elements[] = {

"title",

"author",

"firstedition",

"lastmodified"

};

static char *value_elements[] = {

"p",

};

static int depth = 0;

static char *pre_element;

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

int len, done;

XML_Parser parser = XML_ParserCreate(NULL);

XML_SetElementHandler(parser, begin, end);

do {

len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR)

return 1;

} while (!done);

XML_ParserFree(parser);

return 0;

}

static void XMLCALL

begin(void *d, const XML_Char *name, const XML_Char **attr)

{

int len, done;

done = 0;

len = sizeof(struct_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(struct_elements[i], name)) {

if (0 == strcmp("document", name))

printf("{ ");

for (int i = 0; i < depth; i++)

printf("\t");

printf("\"%s\": {\n", name);

done = 1;

pre_element = struct_elements[i];

}

len = sizeof(key_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(key_elements[i], name)) {

for (int i = 0; i < depth; i++)

printf("\t");

printf("\"%s\":", name);

done = 1;

pre_element = key_elements[i];

}

int parent_is_key = 0;

len = sizeof(value_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(value_elements[i], name)) {

for (int j = 0,

k = sizeof(key_elements) / sizeof(char*);

j < k; j++) {

if (key_elements[j] == pre_element) {

parent_is_key = 1;

}

if (parent_is_key) {

printf("\"値\",\n");

}

else {

for (int i = 0; i < depth; i++)

printf("\t");

printf("\"content\": \"値\",\n");

}

done = 1;

pre_element = value_elements[i];

}

if (!done)

pre_element = NULL;

++depth;

}

static void XMLCALL

end(void *d, const XML_Char * name)

{

int len, done;

--depth;

done = 0;

len = sizeof(struct_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(struct_elements[i], name)) {

if (0 == strcmp("document", name))

printf("}\n");

else {

for (int i = 0; i < depth; i++)

printf("\t");

printf("},\n");

}

done = 1;

}

len = sizeof(key_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(key_elements[i], name)) {

done = 1;

}

len = sizeof(value_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(value_elements[i], name)) {

done = 1;

}

#include <stdio.h>
#include <string.h>
#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);
static void XMLCALL end(void *, const XML_Char *);
static void XMLCALL chardata(void *, const XML_Char *, int);

static char *struct_elements[] = {
        "document",
        "docgroup",
        "docinfo"
};

static char *key_elements[] = {
        "title",
        "author",
        "firstedition",
        "lastmodified"
};

static char *value_elements[] = {
        "p",
};

static int depth = 0;
static char *pre_element;

int
main(int argc, char *argv[])
{
        char buf[BUFSIZ];
        int len, done;
        XML_Parser parser = XML_ParserCreate(NULL);

        XML_SetElementHandler(parser, begin, end);
        XML_SetCharacterDataHandler(parser, chardata);
        do {
                len = fread(buf, 1, sizeof(buf), stdin);
                done = len < sizeof(buf);
                if (XML_Parse(parser, buf, (int)len, done) == 
                        XML_STATUS_ERROR)
                        return 1;
        } while (!done);

        XML_ParserFree(parser);
        return 0;
}

static void XMLCALL
begin(void *d, const XML_Char *name, const XML_Char **attr)
{
        int len, done;

        done = 0;

        len = sizeof(struct_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(struct_elements[i], name)) {
                        if (0 == strcmp("document", name))
                                printf("{ ");

                        for (int i = 0; i < depth; i++)
                                printf("\t");
                        printf("\"%s\": {\n", name);

                        done = 1;
                        pre_element = struct_elements[i];
                }
        }

        len = sizeof(key_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(key_elements[i], name)) {
                        for (int i = 0; i < depth; i++)
                                printf("\t");
                        printf("\"%s\":", name);

                        done = 1;
                        pre_element = key_elements[i];
                }
        }

        int parent_is_key = 0;
        len = sizeof(value_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(value_elements[i], name)) {
                        for (int j = 0, 
                                k = sizeof(key_elements) / sizeof(char*);
                                j < k; j++) {
                                if (key_elements[j] == pre_element) {
                                        parent_is_key = 1;
                                }
                        }

                        if (parent_is_key) {
                                printf("\"");
                        }
                        else {
                                for (int i = 0; i < depth; i++)
                                        printf("\t");
                                printf("\"content\": \"");
                        }

                        done = 1;
                        pre_element = value_elements[i];
                }
        }

        if (!done)
                pre_element = NULL;

        ++depth;
}

static void XMLCALL
end(void *d, const XML_Char * name)
{
        int len, done;

        --depth;

        done = 0;
        len = sizeof(struct_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(struct_elements[i], name)) {

                        if (0 == strcmp("document", name))
                                printf("}\n");
                        else {
                                for (int i = 0; i < depth; i++)
                                        printf("\t");
                                printf("},\n");
                        }
                        done = 1;
                }
        }

        len = sizeof(key_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(key_elements[i], name)) {
                        done = 1;
                }
        }

        len = sizeof(value_elements) / sizeof(char*);
        for (int i = 0; !done && i < len; i++) {
                if (0 == strcmp(value_elements[i], name)) {
                        printf("\",\n");
                        done = 1;
                }
        }
}

static void
chardata(void *data, const XML_Char *cdata, int len)
{
        char *p;

        p = (char *)cdata;
        for (int i = 0; i < len; i++)
                if ('\n' != *p)
                        putchar(*p++);
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

#include <stdio.h>

#include <string.h>

#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);

static void XMLCALL end(void *, const XML_Char *);

static void XMLCALL chardata(void *, const XML_Char *, int);

static char *struct_elements[] = {

"document",

"docgroup",

"docinfo"

};

static char *key_elements[] = {

"title",

"author",

"firstedition",

"lastmodified"

};

static char *value_elements[] = {

"p",

};

static int depth = 0;

static char *pre_element;

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

int len, done;

XML_Parser parser = XML_ParserCreate(NULL);

XML_SetElementHandler(parser, begin, end);

XML_SetCharacterDataHandler(parser, chardata);

do {

len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR)

return 1;

} while (!done);

XML_ParserFree(parser);

return 0;

}

static void XMLCALL

begin(void *d, const XML_Char *name, const XML_Char **attr)

{

int len, done;

done = 0;

len = sizeof(struct_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(struct_elements[i], name)) {

if (0 == strcmp("document", name))

printf("{ ");

for (int i = 0; i < depth; i++)

printf("\t");

printf("\"%s\": {\n", name);

done = 1;

pre_element = struct_elements[i];

}

len = sizeof(key_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(key_elements[i], name)) {

for (int i = 0; i < depth; i++)

printf("\t");

printf("\"%s\":", name);

done = 1;

pre_element = key_elements[i];

}

int parent_is_key = 0;

len = sizeof(value_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(value_elements[i], name)) {

for (int j = 0,

k = sizeof(key_elements) / sizeof(char*);

j < k; j++) {

if (key_elements[j] == pre_element) {

parent_is_key = 1;

}

if (parent_is_key) {

printf("\"");

}

else {

for (int i = 0; i < depth; i++)

printf("\t");

printf("\"content\": \"");

}

done = 1;

pre_element = value_elements[i];

}

if (!done)

pre_element = NULL;

++depth;

}

static void XMLCALL

end(void *d, const XML_Char * name)

{

int len, done;

--depth;

done = 0;

len = sizeof(struct_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(struct_elements[i], name)) {

if (0 == strcmp("document", name))

printf("}\n");

else {

for (int i = 0; i < depth; i++)

printf("\t");

printf("},\n");

}

done = 1;

}

len = sizeof(key_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(key_elements[i], name)) {

done = 1;

}

len = sizeof(value_elements) / sizeof(char*);

for (int i = 0; !done && i < len; i++) {

if (0 == strcmp(value_elements[i], name)) {

printf("\",\n");

done = 1;

}

static void

chardata(void *data, const XML_Char *cdata, int len)

{

char *p;

p = (char *)cdata;

for (int i = 0; i < len; i++)

if ('\n' != *p)

putchar(*p++);

}

機械学習のココロ（vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：石井一夫（久留米大学）

今回は、機械学習においてよく耳にする正則化とスパースモデリングの話題を取り上げます。

記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

訂正情報

以下の箇所に文章漏れがございました。謹んで訂正いたします。

p57 右下　下から7行目

誤り
「L2正則化の場合、パラメータの大きさをだけゼロに近づける操作を行っており、」
訂正
「L2正則化の場合、パラメータの大きさを分散の大きさだけゼロに近づける操作を行っており、」

参考リンク

scikit-learnオフィシャルサイト　L1 ノルム正則化の解説とサンプルコード（英語・リンク先にpython用コード有り）

sklearn.linear_model.Lasso

MathWorks(MATLAB開発元)によるLasso 正則化の解説（日本語）

一般化線形モデルの Lasso 正則化

scikit-learnオフィシャルサイト　L2ノルム正則化の解説とサンプルコード（英語・リンク先にpython用コード有り）

sklearn.linear_model.Ridge

香川大学SLPからお届け！（vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：朝野有也

こんにちは、香川大学工学部の朝野です。普段からパソコンを使っている方ならJava というプログラミング言語の名前を一度は聞いたことがあると思います。プラットフォームに依存しないため、クライアント側、サーバ側問わず様々なシステムで使用されている言語です。さらに、Java のプログラムを実行するにあたって必要となるJava 仮想マシン(JVM) を利用したJVM 言語というものがあります。JVM 言語は、Java の資源を利用できるのに加えて、Java より後発であるため便利なライブラリや仕組みが揃っていることが多いです。

今回は、簡単な名簿アプリケーションの開発をとおして、JVM 言語の１つであるScala と、Java とScala のWeb アプリケーションフレームワークであるPlay Framework をご紹介します。

記事本文掲載のシェルスクリプトマガジンvol.53は以下リンク先でご購入できます。

sbt のインストール:
https://www.scala-sbt.org/1.x/docs/ja/Setup.html

libraryDependencies ++= Seq(
ehcache, ws, specs2 % Test,
  "com.typesafe.play" %% "play-slick" % "3.0.3",
  "com.typesafe.play" %% "play-slick-evolutions" % "3.0.3", 
  "com.h2database" % "h2" % "1.4.196"
)

1

2

3

4

5

6

libraryDependencies ++= Seq(

ehcache, ws, specs2 % Test,

"com.typesafe.play" %% "play-slick" % "3.0.3",

"com.typesafe.play" %% "play-slick-evolutions" % "3.0.3",

"com.h2database" % "h2" % "1.4.196"

)

# --- !Ups
CREATE TABLE users (
    id BIGINT(20) NOT NULL PRIMARY KEY AUTO_INCREMENT,
    name VARCHAR(255) NOT NULL,
    age INTEGER NOT NULL,
);
# --- !Downs
DROP TABLE "user";

1

2

3

4

5

6

7

8

# --- !Ups

CREATE TABLE users (

id BIGINT(20) NOT NULL PRIMARY KEY AUTO_INCREMENT,

name VARCHAR(255) NOT NULL,

age INTEGER NOT NULL,

);

# --- !Downs

DROP TABLE "user";

slick.dbs.default {
  profile = "slick.jdbc.H2Profile$"
  db.driver = org.h2.Driver
  db.url = "jdbc:h2:./db/play"
  db.user = sa
  db.password = ""
}

1

2

3

4

5

6

7

slick.dbs.default {

profile = "slick.jdbc.H2Profile$"

db.driver = org.h2.Driver

db.url = "jdbc:h2:./db/play"

db.user = sa

db.password = ""

}

package models

import javax.inject.Inject

import models.User
import play.api.db.slick.{DatabaseConfigProvider, HasDatabaseConfigProvider}
import slick.jdbc.H2Profile
import slick.jdbc.H2Profile.api._

import scala.concurrent.Future

/**
  * Userモデル
  *
  * @param id    識別ID
  * @param name  ユーザ名
  * @param age   年齢
  */
case class User(id: Long, name: String, age: Int)

/** 以下DAO関連の定義 **/

object UserDAO {
  val users = TableQuery[UsersTable]
}

class UserDAO @Inject()(protected val dbConfigProvider: DatabaseConfigProvider) extends HasDatabaseConfigProvider[H2Profile] {
  import scala.concurrent.ExecutionContext.Implicits.global

  //=== 操作
  //== 読み込み
  def all(): Future[Seq[User]] = db.run(UserDAO.users.result)

  //== 検索
  def findOfId(id: Long): Future[Seq[User]] = {
    db.run(UserDAO.users.filter(_.id === id).result)
  }

  //== 削除
  def delete(id: Long): Future[Unit] = {
    db.run(UserDAO.users.filter(_.id === id).delete).map(_ => ())
  }

  //== 登録
  def insert(user: User): Future[Unit] = db.run(UserDAO.users += user).map { _ => () }
}

//=== テーブル定義
class UsersTable(tag: Tag) extends Table[User](tag, "USERS") {
  def id = column[Long]("ID", O.PrimaryKey, O.AutoInc)

  def name = column[String]("NAME")

  def age = column[Int]("AGE")

  def * = (id, name, age) <> (User.tupled, User.unapply _)
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

package models

import javax.inject.Inject

import models.User

import play.api.db.slick.{DatabaseConfigProvider, HasDatabaseConfigProvider}

import slick.jdbc.H2Profile

import slick.jdbc.H2Profile.api._

import scala.concurrent.Future

/**

* Userモデル

*

* @param id 識別ID

* @param name ユーザ名

* @param age 年齢

*/

case class User(id: Long, name: String, age: Int)

/** 以下DAO関連の定義 **/

object UserDAO {

val users = TableQuery[UsersTable]

}

class UserDAO @Inject()(protected val dbConfigProvider: DatabaseConfigProvider) extends HasDatabaseConfigProvider[H2Profile] {

import scala.concurrent.ExecutionContext.Implicits.global

//=== 操作

//== 読み込み

def all(): Future[Seq[User]] = db.run(UserDAO.users.result)

//== 検索

def findOfId(id: Long): Future[Seq[User]] = {

db.run(UserDAO.users.filter(_.id === id).result)

}

//== 削除

def delete(id: Long): Future[Unit] = {

db.run(UserDAO.users.filter(_.id === id).delete).map(_ => ())

}

//== 登録

def insert(user: User): Future[Unit] = db.run(UserDAO.users += user).map { _ => () }

}

//=== テーブル定義

class UsersTable(tag: Tag) extends Table[User](tag, "USERS") {

def id = column[Long]("ID", O.PrimaryKey, O.AutoInc)

def name = column[String]("NAME")

def age = column[Int]("AGE")

def * = (id, name, age) <> (User.tupled, User.unapply _)

}

# トップページ
GET         /                    controllers.HomeController.index

# 登録
+ nocsrf
POST        /insert/user         controllers.HomeController.insertUser

# 表示
GET         /show/user           controllers.HomeController.showUser

# 削除
GET         /remove/:id          controllers.HomeController.deleteUser(id: Long)

# リソース
GET         /assets/*file        controllers.Assets.versioned(path="/public", file: Asset)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

# トップページ

GET / controllers.HomeController.index

# 登録

+ nocsrf

POST /insert/user controllers.HomeController.insertUser

# 表示

GET /show/user controllers.HomeController.showUser

# 削除

GET /remove/:id controllers.HomeController.deleteUser(id: Long)

# リソース

GET /assets/*file controllers.Assets.versioned(path="/public", file: Asset)

package controllers

import javax.inject._

import models.{User, UserDAO}
import play.api.data.Form
import play.api.data.Forms.{mapping, nonEmptyText, number}
import play.api.i18n.{I18nSupport, MessagesApi}
import play.api.mvc._

import scala.concurrent.ExecutionContext

//=== 入力フォームクラス
case class UserForm(name: String, age: Int)

//=== コントローラクラス
@Singleton
class HomeController @Inject()(cc: ControllerComponents, val userDao: UserDAO, val messages: MessagesApi)(implicit ec: ExecutionContext) extends AbstractController(cc) with I18nSupport {
  //== 入力フォーム値受け取り用
  val form = Form(
    mapping(
      "name" -> nonEmptyText(minLength = 2, maxLength = 20),
      "age" -> number
    )(UserForm.apply)(UserForm.unapply)
  )

  //== トップページ
  def index = Action { implicit request =>
    Ok(views.html.index(form))
  }

  //== 表示
  def showUser = Action.async { implicit request =>
    userDao.all().map {
      users => Ok(views.html.show(users))
    }
  }

  //== 登録 
  def insertUser = Action.async { implicit request =>
    form.bindFromRequest.fold(
      formWithErrors => {
        userDao.all().map(users => Ok(views.html.index(formWithErrors)))
      },
      userForm => {
        userDao.insert(User(0, userForm.name, userForm.age)).map(_ => Redirect(routes.HomeController.showUser))
      }
    )
  }

  //== 削除 
  def deleteUser(id: Long) = Action.async { implicit request =>
    userDao.delete(id).map(_ => Redirect(routes.HomeController.showUser))
  }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

package controllers

import javax.inject._

import models.{User, UserDAO}

import play.api.data.Form

import play.api.data.Forms.{mapping, nonEmptyText, number}

import play.api.i18n.{I18nSupport, MessagesApi}

import play.api.mvc._

import scala.concurrent.ExecutionContext

//=== 入力フォームクラス

case class UserForm(name: String, age: Int)

//=== コントローラクラス

@Singleton

class HomeController @Inject()(cc: ControllerComponents, val userDao: UserDAO, val messages: MessagesApi)(implicit ec: ExecutionContext) extends AbstractController(cc) with I18nSupport {

//== 入力フォーム値受け取り用

val form = Form(

mapping(

"name" -> nonEmptyText(minLength = 2, maxLength = 20),

"age" -> number

)(UserForm.apply)(UserForm.unapply)

)

//== トップページ

def index = Action { implicit request =>

Ok(views.html.index(form))

}

//== 表示

def showUser = Action.async { implicit request =>

userDao.all().map {

users => Ok(views.html.show(users))

}

//== 登録

def insertUser = Action.async { implicit request =>

form.bindFromRequest.fold(

formWithErrors => {

userDao.all().map(users => Ok(views.html.index(formWithErrors)))

},

userForm => {

userDao.insert(User(0, userForm.name, userForm.age)).map(_ => Redirect(routes.HomeController.showUser))

}

)

}

//== 削除

def deleteUser(id: Long) = Action.async { implicit request =>

userDao.delete(id).map(_ => Redirect(routes.HomeController.showUser))

}

@(userForm: Form[UserForm])(implicit messages: Messages)
@import helper._

@main("トップページ") {

1

2

3

4

@(userForm: Form[UserForm])(implicit messages: Messages)

@import helper._

@main("トップページ") {

登録:

@form(routes.HomeController.insertUser) { @inputText(userForm(“name”), ‘_label -> “名前”) @inputText(userForm(“age”), ‘_label -> “年齢”) }

@form(routes.HomeCon troller.showUser) { }

}

@(users: Seq[User])(implicit messages: Messages)
@import helper._

@main("ユーザ一覧") {

1

2

3

4

@(users: Seq[User])(implicit messages: Messages)

@import helper._

@main("ユーザ一覧") {

一覧:

@for(user <- users ) { }

名前	年齢
@user.name	@user.age	@form(routes.HomeController.deleteUser(user.id)) { }

@form(routes.HomeController.index) { }

}

特集3　IBM Cloudで学ぶAI・機械学習・ディープラーニング（vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：佐々木敦守、古川正宏、小薗井康志

IBMの「Watson」が動くクラウドプラットフォーム「IBM Cloud」を使って、無料でAI、機械学習、ディープラーニングを試してみましょう。
記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

'''Trains a simple convnet on the MNIST dataset.
Gets to 99.25% test accuracy after 12 epochs
(there is still a lot of margin for parameter tuning).
16 seconds per epoch on a GRID K520 GPU.
'''

from __future__ import print_function
import keras
from keras.datasets import mnist
from keras.models import Sequential
from keras.layers import Dense, Dropout, Flatten
from keras.layers import Conv2D, MaxPooling2D
from keras import backend as K

batch_size = 128
num_classes = 10
epochs = 12

# input image dimensions
img_rows, img_cols = 28, 28

# the data, shuffled and split between train and test sets
(x_train, y_train), (x_test, y_test) = mnist.load_data()

if K.image_data_format() == 'channels_first':
    x_train = x_train.reshape(x_train.shape[0], 1, img_rows, img_cols)
    x_test = x_test.reshape(x_test.shape[0], 1, img_rows, img_cols)
    input_shape = (1, img_rows, img_cols)
else:
    x_train = x_train.reshape(x_train.shape[0], img_rows, img_cols, 1)
    x_test = x_test.reshape(x_test.shape[0], img_rows, img_cols, 1)
    input_shape = (img_rows, img_cols, 1)

x_train = x_train.astype('float32')
x_test = x_test.astype('float32')
x_train /= 255
x_test /= 255
print('x_train shape:', x_train.shape)
print(x_train.shape[0], 'train samples')
print(x_test.shape[0], 'test samples')

# convert class vectors to binary class matrices
y_train = keras.utils.to_categorical(y_train, num_classes)
y_test = keras.utils.to_categorical(y_test, num_classes)

model = Sequential()
model.add(Conv2D(32, kernel_size=(3, 3),
                 activation='relu',
                 input_shape=input_shape))
model.add(Conv2D(64, (3, 3), activation='relu'))
model.add(MaxPooling2D(pool_size=(2, 2)))
model.add(Dropout(0.25))
model.add(Flatten())
model.add(Dense(128, activation='relu'))
model.add(Dropout(0.5))
model.add(Dense(num_classes, activation='softmax'))

model.compile(loss=keras.losses.categorical_crossentropy,
              optimizer=keras.optimizers.Adadelta(),
              metrics=['accuracy'])
model.fit(x_train, y_train,
          batch_size=batch_size,
          epochs=epochs,
          verbose=1,
          validation_data=(x_test, y_test))
score = model.evaluate(x_test, y_test, verbose=0)
print('Test loss:', score[0])
print('Test accuracy:', score[1])

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

'''Trains a simple convnet on the MNIST dataset.

Gets to 99.25% test accuracy after 12 epochs

(there is still a lot of margin for parameter tuning).

16 seconds per epoch on a GRID K520 GPU.

'''

from __future__ import print_function

import keras

from keras.datasets import mnist

from keras.models import Sequential

from keras.layers import Dense, Dropout, Flatten

from keras.layers import Conv2D, MaxPooling2D

from keras import backend as K

batch_size = 128

num_classes = 10

epochs = 12

# input image dimensions

img_rows, img_cols = 28, 28

# the data, shuffled and split between train and test sets

(x_train, y_train), (x_test, y_test) = mnist.load_data()

if K.image_data_format() == 'channels_first':

x_train = x_train.reshape(x_train.shape[0], 1, img_rows, img_cols)

x_test = x_test.reshape(x_test.shape[0], 1, img_rows, img_cols)

input_shape = (1, img_rows, img_cols)

else:

x_train = x_train.reshape(x_train.shape[0], img_rows, img_cols, 1)

x_test = x_test.reshape(x_test.shape[0], img_rows, img_cols, 1)

input_shape = (img_rows, img_cols, 1)

x_train = x_train.astype('float32')

x_test = x_test.astype('float32')

x_train /= 255

x_test /= 255

print('x_train shape:', x_train.shape)

print(x_train.shape[0], 'train samples')

print(x_test.shape[0], 'test samples')

# convert class vectors to binary class matrices

y_train = keras.utils.to_categorical(y_train, num_classes)

y_test = keras.utils.to_categorical(y_test, num_classes)

model = Sequential()

model.add(Conv2D(32, kernel_size=(3, 3),

activation='relu',

input_shape=input_shape))

model.add(Conv2D(64, (3, 3), activation='relu'))

model.add(MaxPooling2D(pool_size=(2, 2)))

model.add(Dropout(0.25))

model.add(Flatten())

model.add(Dense(128, activation='relu'))

model.add(Dropout(0.5))

model.add(Dense(num_classes, activation='softmax'))

model.compile(loss=keras.losses.categorical_crossentropy,

optimizer=keras.optimizers.Adadelta(),

metrics=['accuracy'])

model.fit(x_train, y_train,

batch_size=batch_size,

epochs=epochs,

verbose=1,

validation_data=(x_test, y_test))

score = model.evaluate(x_test, y_test, verbose=0)

print('Test loss:', score[0])

print('Test accuracy:', score[1])

シェルスクリプトマガジンvol.53 Web掲載記事まとめ

投稿日：2018.03.25　｜　カテゴリー：　記事

シェルスクリプトマガジンvol.53のWeb掲載部分まとめです。

プレゼント＆アンケートページはこちら！

シェルスクリプトマガジンvol.53は以下リンク先でご購入できます。

008 特集1　 9のステップでしっかりわかる Python入門/西川公一朗　コード掲載

024 特集2 　このまま使える! ITエンジニアのための英文メール&チャット 20のポイント/甲斐荘秀生監修 Paul McMahon 　おまけ英文掲載

032 特集3 　IBM Cloudで学ぶAI・機械学習・ディープラーニング/佐々木敦守、古川正宏、小薗井康志　コード掲載

049 姐のNOGYO

050 ラズパイ入門ボードで学ぶ電子回路の制御/米田聡　コード掲載

053 スズラボ通信「ネイキッドなGNU/Linuxマシン PocketBeagle」/すずきひろのぶ　リンク掲載

056 機械学習のココロ「正則化とスパースモデリング」/石井一夫　訂正情報およびリンク掲載

060 バーティカルバーの極意/飯尾淳

066 それプロのエバンジェリストから愛をこめて/山本美穂

070 RESEARCHES FOR FUTURE 青山学院大学社会情報学部社会情報学科伊藤研究室/伊藤一成

072 香川大学SLPからお届け! 「Play Frameworkでアプリケーション開発」/朝野有也　コード掲載

078 ITエンジニアのためのマーケティング入門/水間丈博

082 蛇/桑原滝弥・イケヤシロウ

084 法林浩之のFIGHTING TALKS/法林浩之

086 人間とコンピュータの可能性/大岩元

088 円滑コミュニケーションが世界を救う! /濱口誠一

090 中小企業手作りIT化奮戦記「使うと便利SQL」/菅雄一

095 漢のUNIX「XMLをJSONに変換するコードを書いてみよう」/後藤大地　コード掲載

104 アジャイル開発 Let’s Practice!「インセプションデッキその1」/熊野憲辰

108 40歳から始める、オレとRubyプログラミング/しょっさん　コード掲載

118 コボラーによるコボラーのためのユニケージ入門「COBOLプログラムのマイグレーション」/野村祐三

126 Techパズル/gori.sh

128 コラム「自主的に考える力を持てるような教育を」/シェル魔人

英文メール・チャット　２０のポイント　おまけ

投稿日：2018.03.25　｜　カテゴリー：　コード

執筆：甲斐荘秀生　　監修：Doorkeeper　Paul McMahon

記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

本誌掲載のチャットの前、クライアントとA君との間でつばぜり合いがありました。

翻訳サイトを駆使した英文

クライアント：The budget is decided, but can not you do this bu plugging in as well?（予算は決まってるけど、これも差し込みでお願いできません？）

A：We can not accept it.（できません。）

クライアント：I will put a color on the next month.（来月色を付けますから。）

A：This time only. （今回だけですよ。）

Paulさんによる訂正後の英文

クライアント：I know we’ve already fixed the budget, but can’t you fit this in as well?（予算が決まっていることはわかっていますが、追加でやってもらえませんか？）

“as well”には「おまけで」という意味もあります。

A：Sorry, we’re not able to budge on it.(申し訳ありませんが、これ以上は動けません)

“budge”は「身動きをとる」という意味です。今回のように否定形で使うと”微動だにしない”のような意味になります。

クライアント：How about if we add it to next month’s budget?(来月の予算にその分追加するのではどうでしょう？)

A：OK, just this once. (わかりました。今回だけですよ)

裏にこんなやりとりがあった後、本誌掲載のチャットの続きをご覧ください。

翻訳サイトを駆使した英文

A：At last only one. (さいごにひとつだけ。)

A：There was an additional request from the client. Can you please take action?（クライアントから追加の要望がありました。対応をお願いできますか？）

A：They would like to add a daytime contact to the inquiry form.（問い合わせフォームに日中の連絡先を追加したいとのことです。）

B：What a client. （なんてクライアントだ！）

Paulさんによる訂正後の英文

A：One more thing. (さいごにひとつだけ。)

A：There was a new request from the client. （クライアントから追加の要望がありました。）

A：They would like to add a new field for a phone number.（電話番号用のフィールドを新たに追加したいとのことです。）

「日中の連絡先」は文脈に依存した言い方なので、「電話番号」と直接伝えた方がよいでしょう。

B：I’m getting tired of these last minute requests. （追加要望のせいで嫌になってきた）

特集1　9のステップでしっかりわかる Python入門（vol.53掲載）

投稿日：2018.03.25　｜　カテゴリー：　コード

著者：西川公一朗

機械学習やデータ解析、人工知能の需要が高まるにつれ、最近ではさまざまな分野でプログラミング言語「Python」を利用する機会が増えています。本特集では入門者や初心者を対象に、9のステップでPython の基本を分かりやすく説明します。
記事本文掲載のシェルスクリプトマガジンvol.53は以下のリンク先でご購入できます。

sushineta = ['マグロ', 'イクラ', 'エビ', 'タコ']

def check_classic_sushineta(name):
    if name in sushineta:
        return '{}は定番の寿司ネタです'.format(name)
    return '{}は定番の寿司ネタではありません'.format(name)
def get_classic_sushineta_names():
    return sushineta

1

2

3

4

5

6

7

8

sushineta = ['マグロ', 'イクラ', 'エビ', 'タコ']

def check_classic_sushineta(name):

if name in sushineta:

return '{}は定番の寿司ネタです'.format(name)

return '{}は定番の寿司ネタではありません'.format(name)

def get_classic_sushineta_names():

return sushineta

Vol.53

投稿日：2018.03.25　｜　カテゴリー：　バックナンバー

機械学習やデータ解析、人工知能、ラズパイ、IoT（モノのインターネット）などのプログラミングで欠かせなくなった言語「Python」（パイソン）。特集1では、九つのステップに分けて、初めての人でもしっかり理解できるようにPythonプログラミングの基礎を解説します。
特集2では、ITエンジニアに向けた、英語のメールやチャットに関する20のポイントを会話形式で紹介します。海外とのやり取りが当たり前になってきた時代にぴったりです。
特集3ではAI・機械学習・ディープラーニングを扱いました。IBM Cloudが用意するライト・アカウントを取得すれば、無料・期間無制限・クレジットカード登録不要でこれらの技術をすべて試せます。
このほか、新連載として「ラズパイ入門ボードで学ぶ電子回路の制御」が始まりました。前回の特集2に続く、シェルスクリプトマガジン特製の「ラズパイ入門ボード」の記事です。この連載から読み始めても十分楽しめます。

今月も読み応え十分のシェルスクリプトマガジン Vol.53。お見逃しなく!

※読者アンケートはこちら

第29回　バージョン管理システムを作る（GitBucketの使い方）

投稿日：2018.03.23　｜　カテゴリー：　記事

前回は、「GitBucket」を使ってソースコードやドキュメントのバージョンを管理できる共有サーバー（Gitサーバー）を構築しました。今回は、GitBucketの基本的な使い方を紹介します。

前回と同様に、次のコマンドを実行してGitBucketを起動します。

$ java -jar gitbucket.war

1	$ java -jar gitbucket.war

しばらく待ってから、リモートアクセス用パソコンのWebブラウザーで「http://Ubuntu ServerのIPアドレス:8080/」にアクセスし、GitBucketのトップページを開いてください（図1）。

図1　GitBucketのトップページ

第28回　バージョン管理システムを作る（GitBucketの導入）

投稿日：2018.03.16　｜　カテゴリー：　記事

ソフトウエア開発のための共有サービスとして「GitHub」を使っている人は多いでしょう。GitHubはソフトウエアのソースコードのみならず、各種文書のバージョン管理にも利用できます（図1）。そのため、会社やグループで自由に使えるGitHubを用意できればとても便利です。

図1　Gitサーバーによるバージョン管理システム

Linuxには、GitHubのようなサーバー（Gitサーバー）を構築できるソフトがいくつかあります。具体的には、GitHubと同様のサービス提供にも利用されている「GitLab」、日本人が開発者の「GitBucket」、Go言語で開発されている「Gogs」などです。今回は、これらの中からインストールが簡単なGitBucketをUbuntu Serverに導入します。

第27回　安全なFTPサーバーを作る（ProFTPDの設定）

投稿日：2018.03.9　｜　カテゴリー：　記事

前回構築した、ProFTPDによるFTPSサーバーをインターネットに公開します。インターネットへのサーバー公開については、連載第10回に2種類の方法を紹介しています。「DMZ」と「ポートフォワーディング」です。
DMZの場合、前回の設定のままFTPSサーバーをDMZに配置すれば、そのままインターネットに公開できます。ただし、セキュリティ上あまり好ましくありません。連載第21回で紹介したファイアウォールを自身のサーバー内に構築しましょう。なお、ファイアウォールを経由してFTPSサーバーをインターネットへ公開する場合、FTPSの通信を通過させるための設定が必要です。
ポートフォワーディングの場合も、ファイアウォールと同様にFTPSの通信を通過させる設定が設定が必要です。

アクティブとパッシブ

FTP/FTPSでは、二つのポートを利用して通信します。一つは「制御」用、もう一つは「データ転送」用です。どちらも通信を開始するときに、サーバーとクライアントの間で「コネクション」（接続）を確立します。
FTP/FTPSでは、このコネクション確立方法の違いで「アクティブ」と「パッシブ」という2種類のモードが用意されています。どちらもFTP/FTPSの通信を開始するのはクライアントからです。ただし、アクティブモードではFTPサーバーから、パッシブモードではFTPクライアントから、データ転送用のコネクションを確立しにいきます（図1）。

図1　アクティブとパッシブ

第26回　安全なFTPサーバーを作る（ProFTPDの導入）

投稿日：2018.03.2　｜　カテゴリー：　記事

今回は、インターネットからファイルをダウンロードしたり、アップロードしたりする「FTPサーバー」を構築します（図1）。LinuxでFTPサーバーを構築できるフリーソフトにはいくつかあります。ここでは、「ProFTPD」を用います。

図1　ファイルをダウンロード・アップロードできるFTPサーバー

なお、FTPサーバーの標準プロトコルである「FTP」（File Transfer Protocol）の場合、ユーザー名とパスワード、データがそのまま（平文で）ネットワークを流れます。インターネット上の通信で平文を使用するのはセキュリティ上好ましくありません。そこで、暗号化通信を用いたファイル転送プロトコルの「FTPS」（File Transfer Protocol over SSL/TLS）を利用します。

第25回　インターネットへのアクセスを制限する（Squidの設定）

投稿日：2018.02.23　｜　カテゴリー：　記事

前回は「Squid」を用いて、プロキシーサーバーを構築しました。今回は、インターネットへはプロキシーサーバー経由でしかアクセスできないように（ブロードバンド）ルーターを設定します。加えて、危険なサイトにアクセスできないようにしたりなど、アクセス制限の設定をSquidに追加します（図1）。

図1　プロキシーサーバーによるアクセス制限

なお、システム管理者などの別の人がルーターを管理している場合、ルーターの設定やプロキシーの設置はその人と相談してください。

第24回　インターネットへのアクセスを制限する（Squidの導入）

投稿日：2018.02.16　｜　カテゴリー：　記事

自宅や会社でインターネットへのアクセスを制限したい場合、「プロキシーサーバー」を構築するとよいでしょう。プロキシー（Proxy）とは、英語で「代理」の意味です。
LAN内のコンピュータやネットワーク機器がインターネットに直接アクセスできない環境では、インターネットにアクセスするためにプロキシーサーバーを設置します。プロキシーサーバーがそれらに代わってインターネットにアクセスし、その応答をアクセス元に返します（図1）。
通信がプロキシーサーバーを経由することで、通信内容を監視できます。それによって、アクセスを制限したりが可能です。

図1　プロキシーサーバー経由でアクセス

また、プロキシーサーバーは、アクセスしたデータを一時的に保持する「キャッシュ」機能を備えています。キャッシュ内にデータがあれば、インターネットへのアクセスが不要なるため、通信を高速化できます。
Linuxでプロキシーサーバーを構築できるソフトとして「Squid」があります。今回は、このSquidを導入して、LAN内のコンピュータやネットワーク機器がSquid経由でインターネットにアクセスできるように設定します。

第23回　フォトギャラリーを作る（Lychee）

投稿日：2018.02.9　｜　カテゴリー：　記事

Instagramなどの普及により、スマートフォンで撮影した写真がかなりたまっている人も多いでしょう。Linuxサーバーなら、そのような写真を整理して個人用のフォトアルバムを作成できます。
今回は、WebサーバーソフトのApache HTTP Server（以下、Apache）と、データベース管理システムのMariaDBを使って、写真管理ソフト「Lychee」を動作させ、自分だけのフォトギャラリーを作ります（図1）。

図1　フォトギャラリーのサーバーソフト「Lychee」（ライチ）

第22回　WebサーバーをHTTPSに対応させる（Let’s Encrypt）

投稿日：2018.02.2　｜　カテゴリー：　記事

Webサーバーのプロトコルとして「HTTP」（Hypertext Transfer Protocol）ではなく、「HTTPS」（Hypertext Transfer Protocol Secure）を利用するのが当たり前になりつつあります。HTTPSでは、SSL/TLS（Transport Layer Security/Transport Layer Security）による暗号化を施しています。
米Google社では、インターネット検索サービスのランキングでHTTPSに対応したWebサイトを優遇したり、Webブラウザー「Chrome」でHTTPSに対応したWebサイトをアクセスした場合に「保護された通信」や会社名を表示して安心感を与えたりするなど、HTTPS化を推進しています（図1）。

図1　HTTPSに対応しているWebサイトのアドレス表示例

Apache HTTP ServerやNginxなどのWebサーバーソフトでHTTPSを有効にすることは、それほど難しいことではありません。ただし、HTTPSには「SSLサーバー証明書」が必要で、それが正式なものでないと、Webブラウザーに図2のようなメッセージが表示されます。そのサイトを例外などに加えないとアクセスできません。

図2　正式な証明書を持っていないWebサイトの閲覧例

そこで今回は、連載8回で構築したApache HTTP Server（以下、Apache）の通信のHTTPS化と、無料で正式なSSLサーバー証明書を入手・導入する方法を紹介します。

第21回　サーバーを守る（ファイアウォール）

投稿日：2018.01.26　｜　カテゴリー：　記事

不正なアクセスなどからサーバーやネットワークを守る仕組みとして「ファイアウォール」があります。ファイアウォールは、日本語で「防火壁」という意味です。ファイアウォールを通過する通信を監視し、サーバーやネットワーク内外への不適切な通信の遮断などに利用します（図1）。

図1　ファイアウォールによるアクセス制御

通常、インターネットの出入り口に配置される「ゲートウェイ」となるルーター（ブロードバンドルーター）がファイアウォールの機能を備えています。ただ、連載第10回で説明したDMZ（非武装地帯）に配置したサーバーの場合、内部にファイアウォールを設置して自らを守る必要があります。

Vol.52

投稿日：2018.01.25　｜　カテゴリー：　バックナンバー

普及期を向かえたコンテナー型仮想化ソフトウエア「Docker」。ITエンジニアとしては、知っておくべきものの一つです。特集1では、Dockerの概要や仕組みを説明し、CentOS上への導入方法や基本的使い方を紹介しています。
特集2では、シェルスクリプトマガジン編集とビット・トレード・ワンで共同制作したRaspberry Pi用拡張ボード「ラズパイ入門ボード」の使用方法を解説しています。LEDやスイッチ、圧電スピーカーなどの制御を学ぶにはビッタリです。本誌と同時にラズパイ入門ボードも発売しますので、一緒に購入してラズパイプログラミングを楽しんでみてください。
そのほか、大学研究室や農業体験を紹介する連載記事を開始しました。

今月も読み応え十分のシェルスクリプトマガジン Vol.52。お見逃しなく!

※ラズパイ入門ボード購入に関してはこちら

※読者アンケートはこちら

シェルスクリプトマガジンvol.52 Web掲載記事まとめ

投稿日：2018.01.23　｜　カテゴリー：　記事

シェルスクリプトマガジンvol.52のWeb掲載部分まとめです。

プレゼント＆アンケートページはこちら！

シェルスクリプトマガジンvol.52は以下リンク先でご購入できます。

4 レポート　スマートスピーカーが相次いで登場

6 特集1　Dockerを使ってみよう/末安泰三

20 特集2　ラズパイ入門ボードの使い方/米田聡コード掲載

30 RESEARCHES FOR FUTURE 千葉工業大学先進工学部未来ロボティクス学科自律ロボット研究室/上田隆一

32 機械学習のココロ丁半バクチで勝負する機械学習の世界（モンテカルロ法）/石井一夫リンク掲載

39 姐のNOGYO 40 アジャイル開発 Let’s Practice! システム設計/熊野憲辰

44 中小企業手作りIT化奮戦記　第32回　眠れない地獄の夜/菅雄一

50 円滑コミュニケーションが世界を救う！/濱口誠一

52 縁の木、育てようゲストエウレカ森川託磨さん /白羽玲子

56 人と月/桑原滝弥・イケヤシロウ

58 コボラーによるコボラーのためのユニケージ入門　COBOLとユニケージの違い/野村祐三

64 漢のUNIX　サードパーティ製ライブラリを使う/後藤大地コード掲載

73 バーティカルバーの極意/飯尾淳

78 人間とコンピュータの可能性/大岩元

80 香川大学SLPからお届け！/花川直己、家平和輝、森田浩平

84 法林浩之のFIGHTING TALKS/法林浩之

86 40歳から始める、オレとRubyプログラミング/しょっさんコード掲載

96 ITエンジニアのためのマーケティング入門　第28回　デジタルマーケティングその4/水間丈博

100 Techパズル/gori.sh

102 1足す1は3にはならない/シェル魔人

機械学習のココロ（vol.52掲載）

投稿日：2018.01.23　｜　カテゴリー：　コード

著者：石井一夫（久留米大学）

世の中は機械学習や人工知能のブームです。これに相まって、統計学や数学の価値が再認識されています。数学と聞くと学生の頃のトラウマが甦り、ついつい敬遠しがちな人もいるかもしれませんが、ある種の必要性と割り切り、ワクワクするような新しいトレンドとして再認識できると、それなりに楽しいものです。

記事本文掲載のシェルスクリプトマガジンvol.52は以下のリンク先でご購入できます。

「1、円周率の計算」の参考にしているサイトへのリンク（リンク先にコード有り）

pythonで円周率を求める　（Remrinのpython攻略日記）

「２、積分計算と確率計算」の参考にしているサイトへのリンク（リンク先にコード有り）

モンテカルロ積分　（人工知能に関する断創録）

「3、機械学習モデルとしての最尤推定法、最小二乗法、回帰分析への応用」の参考リンク（説明のみ）

最小二乗法と最尤法の関係　（具体例で学ぶ数学）

「4、ベイズ予測モデルを作成するためのマルコフ連鎖モンテカルロ法」の参考リンク（リンク先にコード有り）

The Bayesian t-Test　（henryhhammond.com）

ラズパイ入門ボードの購入について

投稿日：2018.01.19　｜　カテゴリー：　コード

動画による製品紹介はこちら

プログラミング例はこちら

シェルスクリプトマガジン（Vol.52）の特集2で紹介したラズパイ入門ボードの完成品20セット、組み立てキット10セットを限定発売します（日本国内のみ）。お1人様どちらか1セットになります。

完成品が3980円（税別）、組み立てキットが2780円（税別）です。送料は650円（税込み）になります（シェルスクリプトマガジン Vo．52は完売しました）。PayPalまたは銀行振り込みでのお支払いになります。

以下の購入申し込みを記入の上、「raspi@usp-lab.com」宛てにメールしてください。2~3営業日以内にメールにて支払い方法などをお送りいたします。発送はVol.52発売日の2018年1月25日以降になります。なお、売り切れの場合もご連絡いたします。

売り切れの際は、ビット・トレード・ワンの公式オンラインショップ、Amazon.co.jp、共立エレショップおよび、シリコンハウス各店、千石電商各店、デジット各店、マルツエレック各店からご購入ください（いずれも1月25日販売開始予定）。

++++++ラズパイ入門ボード購入申し込み++++++

■購入希望商品

○完成品：4948円
○組み立てキット：3652円
※購入を希望する商品の「○」を「●」に変更してください。

■代金お支払い方法

○PayPal

○銀行振り込み

※希望する方の「○」を「●」に変更してください。

お名前：
お名前のよみがな：
郵便番号：
ご住所：
お電話番号：
+++++++++++++++++++++++++++++++++

第20回　オンラインストレージを作る（アプリ導入）

投稿日：2018.01.19　｜　カテゴリー：　記事

前回は「Nextcloud」のユーザー作成と基本操作を解説しました。今回は、Netcloudの機能を拡張するアプリについて紹介します。Netcloudの本体には、オンラインストレージに必要な最低限の機能しか組み込まれていません。Netcloudに組み込むことができるアプリを有効化することによって、Googleカレンダーや、Googleドライブのようなオンラインオフィス機能などを追加できます（図1）。

図1　アプリを有効にすることでNextcloudの機能拡張ができる

それでは、前回と同様にリモートアクセス用パソコンでWebブラウザーを起動して「http://Ubuntu ServerのIPアドレス:8080/」にアクセスします。ログイン画面から管理者アカウントでログインします。

第19回　オンラインストレージを作る（基本操作）

投稿日：2018.01.12　｜　カテゴリー：　記事

前回は「Nextcloud」を使ってオンラインストレージを構築しました。今回は、Netcloudのユーザー作成と基本的な使い方を紹介します。
前回と同様にリモートアクセス用パソコンでWebブラウザーを起動して、「http://Ubuntu ServerのIPアドレス:8080/」にアクセスします。ログイン画面から管理者アカウントでログインします（図1）。

図1　Nextcloudのログイン画面

ラズパイ入門ボード向けソースコード集

投稿日：2018.01.10　｜　カテゴリー：　コード

シェルスクリプトマガジンとビット・トレード・ワンで共同制作したRaspberry Pi拡張ボード「ラズパイ入門ボード」のソースコード集です。雑誌と一緒にご活用ください。

ソースコードの入手先

※関連記事掲載時に追加していきます。

※ラズパイセンサーボード向けソースコード集はこちら。

40歳から始める、オレとRubyプログラミング（vol.52掲載）

投稿日：2018.01.10　｜　カテゴリー：　コード

著者：しょっさん

前回は、インフラ管理アプリ「Reins」の今後の方針について、「プログラムを俯瞰してリファクタリングしよう」「Reins Agentを監視できるようにしよう」「データフォーマットを標準化しよう」という三つのポイントに着目して定めました。
今回は、前回定めた方針に従って、プログラムを更新します。ただし、すべての変更点を載せるとプログラムだけでも相当な分量になりそうだったので、次の二つについてのみ、プログラムと変更点を説明します。
記事本文掲載のシェルスクリプトマガジンvol.52は以下のリンク先でご購入できます。

# coding: utf-8

# filename: reins_spec.rb
require "spec_helper"
require "socket"

RSpec.describe Reins do
  describe "定数/変数の設定" do
    it { expect(Reins::VERSION).not_to be nil }
    it { expect(Reins.port).not_to be nil }
    it { expect(Reins.logger).not_to be nil }
    it { expect(Reins.auth_service).not_to be nil }
    it { expect(Reins.regist_host).not_to be nil }
  end

  # AuthService class のテスト
  describe "AuthService" do
    describe "#authenticate_key" do
      let(:sha512) { "106a6484291b9778c224731501d2deeb71f2b83558a0e9784fe33646f56182f69de448e92fe83fd4e57d629987f9d0dd79bf1cbca4e83b996e272ba44faa6adb" }
      let(:normal) { Reins::AuthService.new }
      let(:other)  { Reins::AuthService.new(sha512) }
      before do
        allow(Reins.regist_host).to receive(:store).and_return(true)
      end

      context "ハッシュキーを作成する場合" do
        it { expect(normal.create_key('192.168.0.10')).to match(/[0-9a-f]{128}/) }
      end

      context "正常に認証された場合" do
        it { expect(normal.authenticate_key('DEMO', '192.168.0.10')).not_to eq(false) }
        it { expect(other.authenticate_key('40ruby', '192.168.0.10')).not_to eq(false) }
      end

      context "異なる認証キーで呼び出された場合" do
        it { expect(normal.authenticate_key('TEST', '192.168.0.10')).to eq(false) }
        it { expect(other.authenticate_key('DEMO', '192.168.0.10')).to eq(false) }
      end
    end

    describe "#varid?" do
      let(:auth) { Reins::AuthService.new }
      let(:key)  { auth.authenticate_key('DEMO', '192.168.0.10') }

      it { expect(auth.varid?(key)).to eq('192.168.0.10') }
    end
  end

  # HostRegistry Class のテスト
  describe 'HostRegistry' do
    let(:regist_test)    { Reins::HostRegistry.new("test_db.json") }
    let(:test_key)       { "TestKey" }
    let(:localhost)       { '127.0.0.1' }
    let(:correct_hosts)   { ['192.168.0.10', '1.0.0.1', '239.255.255.254'] }

    before do
      allow(regist_test).to receive(:store).and_return(true)
    end

    describe '#create' do
      subject { regist_test.create(localhost, test_key) }
      before do
        regist_test.create(localhost, test_key)
      end
      it { is_expected.to eq(false) }
    end

    describe '#get_status' do
      subject { regist_test.get_status(localhost, test_key) }
      before do
        regist_test.create(localhost, test_key)
      end
      context '登録直後の場合' do
        it { is_expected.to eq("alive") }
      end
      context 'ステータスを"alive"へ変更した場合' do
        it '#set_status で "alive" をセット' do
          regist_test.set_status(localhost, test_key, "alive")
          is_expected.to eq("alive")
        end
      end
      context 'ステータスが"dead"の場合' do
        it '#set_status で "dead" をセット' do
          regist_test.set_status(localhost, test_key, "dead")
          is_expected.to eq("dead")
        end
      end
      context '未登録のホストの場合' do
        it '登録していないホストのステータスを確認するとfalse' do
          expect(regist_test.get_status("192.168.0.10", test_key)).to eq(false)
        end
        it '未登録のホストステータスを変更するとfalse' do
          expect(regist_test.set_status("192.168.0.10", test_key, "alive")).to eq(false)
          expect(regist_test.get_status("192.168.0.10", test_key)).to eq(false)
        end
      end
    end

    describe '#read_hosts' do
      subject { regist_test.read_hosts }
      context '正常に登録されている場合' do
        it { is_expected.to eq([]) }
        it 'localhost を1つ登録すると、[127.0.0.1]' do
          regist_test.create(localhost, test_key)
          is_expected.to eq([localhost])
        end
        it '複数のアドレスを登録した場合は、複数のアドレス' do
          correct_hosts.each { |host| regist_test.create(host, test_key) }
          is_expected.to match_array(correct_hosts)
        end
      end
    end

    describe '#read_hostkeys' do
      it '登録しなければ、空' do
        expect(regist_test.hosts).to eq({})
        expect(regist_test.read_hostkeys).to eq({})
        expect(regist_test.read_hostkeys.size).to eq(0)
      end
      it 'ハッシュ化された接続キーの一覧' do
        correct_hosts.each { |host| regist_test.create(host, test_key) }
        expect(regist_test.read_hostkeys.size).to eq(3)
      end
    end

    describe '#delete' do
      before { regist_test.create("192.168.0.1", test_key) }
      subject { regist_test.delete(localhost) }
      context '正常に削除できる場合' do
        it '登録済みのアドレスを削除すると、そのアドレス' do
          regist_test.create(localhost, test_key)
          is_expected.to eq(localhost)
        end
      end
      context '削除できない場合' do
        it { is_expected.to eq(nil) }
      end
    end
  end

  # TaskControl class のテスト
  describe 'TaskControl' do
    before { @server = TCPServer.new(24_368) }
    after  { @server.close }
    let(:tasks) { Reins::TaskControl.new }
    let(:no_task) { Reins::TaskControl.new('localhost', 65_000) }

    describe '#connect' do
      context 'クライアントへ接続できる場合' do
        subject { tasks.connect }
        it 'モックを使って正常接続のコール' do
          allow(tasks).to receive(:connect).and_return(true)
          is_expected.to eq(true)
        end
      end

      context 'クライアントへ接続できない場合' do
        it { expect(no_task.connect).to eq(false) }
        it 'クライアントが停止していたら false' do
          allow(tasks).to receive(:connect).and_return(false)
          expect(tasks.connect).to eq(false)
        end
      end
    end

    describe '#disconnect' do
      context '正常に切断できた場合' do
        subject { tasks.disconnect }
        it 'こちらから、クライアントとの接続を切断して、成功すると nil' do
          is_expected.to eq(nil)
        end
      end
    end
  end

  # Dispatcher class のテスト
  describe 'Dispatch' do
    let(:test_key)       { "TestKey" }
    let(:correct_host)   { Reins::Dispatch.new("192.168.0.10", test_key) }

    before { allow(correct_host).to receive(:varidate).and_return(true) }

    describe '#command' do
      context 'ホスト一覧を出力する場合' do
        it 'ホスト一覧が出力された' do
          allow(Reins.regist_host).to receive(:read_hosts).and_return([])
          expect(correct_host.command("list", "")).to eq([])
        end
      end
      context 'アドレスを削除する場合' do
        it 'アドレスを正常に削除' do
          allow(Reins.regist_host).to receive(:delete).and_return("192.168.0.10")
          expect(correct_host.command("delete", "")).to eq("192.168.0.10")
        end
      end
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

# coding: utf-8

# filename: reins_spec.rb

require "spec_helper"

require "socket"

RSpec.describe Reins do

describe "定数/変数の設定" do

it { expect(Reins::VERSION).not_to be nil }

it { expect(Reins.port).not_to be nil }

it { expect(Reins.logger).not_to be nil }

it { expect(Reins.auth_service).not_to be nil }

it { expect(Reins.regist_host).not_to be nil }

end

# AuthService class のテスト

describe "AuthService" do

describe "#authenticate_key" do

let(:sha512) { "106a6484291b9778c224731501d2deeb71f2b83558a0e9784fe33646f56182f69de448e92fe83fd4e57d629987f9d0dd79bf1cbca4e83b996e272ba44faa6adb" }

let(:normal) { Reins::AuthService.new }

let(:other) { Reins::AuthService.new(sha512) }

before do

allow(Reins.regist_host).to receive(:store).and_return(true)

end

context "ハッシュキーを作成する場合" do

it { expect(normal.create_key('192.168.0.10')).to match(/[0-9a-f]{128}/) }

end

context "正常に認証された場合" do

it { expect(normal.authenticate_key('DEMO', '192.168.0.10')).not_to eq(false) }

it { expect(other.authenticate_key('40ruby', '192.168.0.10')).not_to eq(false) }

end

context "異なる認証キーで呼び出された場合" do

it { expect(normal.authenticate_key('TEST', '192.168.0.10')).to eq(false) }

it { expect(other.authenticate_key('DEMO', '192.168.0.10')).to eq(false) }

end

describe "#varid?" do

let(:auth) { Reins::AuthService.new }

let(:key) { auth.authenticate_key('DEMO', '192.168.0.10') }

it { expect(auth.varid?(key)).to eq('192.168.0.10') }

end

# HostRegistry Class のテスト

describe 'HostRegistry' do

let(:regist_test) { Reins::HostRegistry.new("test_db.json") }

let(:test_key) { "TestKey" }

let(:localhost) { '127.0.0.1' }

let(:correct_hosts) { ['192.168.0.10', '1.0.0.1', '239.255.255.254'] }

before do

allow(regist_test).to receive(:store).and_return(true)

end

describe '#create' do

subject { regist_test.create(localhost, test_key) }

before do

regist_test.create(localhost, test_key)

end

it { is_expected.to eq(false) }

end

describe '#get_status' do

subject { regist_test.get_status(localhost, test_key) }

before do

regist_test.create(localhost, test_key)

end

context '登録直後の場合' do

it { is_expected.to eq("alive") }

end

context 'ステータスを"alive"へ変更した場合' do

it '#set_status で "alive" をセット' do

regist_test.set_status(localhost, test_key, "alive")

is_expected.to eq("alive")

end

context 'ステータスが"dead"の場合' do

it '#set_status で "dead" をセット' do

regist_test.set_status(localhost, test_key, "dead")

is_expected.to eq("dead")

end

context '未登録のホストの場合' do

it '登録していないホストのステータスを確認するとfalse' do

expect(regist_test.get_status("192.168.0.10", test_key)).to eq(false)

end

it '未登録のホストステータスを変更するとfalse' do

expect(regist_test.set_status("192.168.0.10", test_key, "alive")).to eq(false)

expect(regist_test.get_status("192.168.0.10", test_key)).to eq(false)

end

describe '#read_hosts' do

subject { regist_test.read_hosts }

context '正常に登録されている場合' do

it { is_expected.to eq([]) }

it 'localhost を1つ登録すると、[127.0.0.1]' do

regist_test.create(localhost, test_key)

is_expected.to eq([localhost])

end

it '複数のアドレスを登録した場合は、複数のアドレス' do

correct_hosts.each { |host| regist_test.create(host, test_key) }

is_expected.to match_array(correct_hosts)

end

describe '#read_hostkeys' do

it '登録しなければ、空' do

expect(regist_test.hosts).to eq({})

expect(regist_test.read_hostkeys).to eq({})

expect(regist_test.read_hostkeys.size).to eq(0)

end

it 'ハッシュ化された接続キーの一覧' do

correct_hosts.each { |host| regist_test.create(host, test_key) }

expect(regist_test.read_hostkeys.size).to eq(3)

end

describe '#delete' do

before { regist_test.create("192.168.0.1", test_key) }

subject { regist_test.delete(localhost) }

context '正常に削除できる場合' do

it '登録済みのアドレスを削除すると、そのアドレス' do

regist_test.create(localhost, test_key)

is_expected.to eq(localhost)

end

context '削除できない場合' do

it { is_expected.to eq(nil) }

end

# TaskControl class のテスト

describe 'TaskControl' do

before { @server = TCPServer.new(24_368) }

after { @server.close }

let(:tasks) { Reins::TaskControl.new }

let(:no_task) { Reins::TaskControl.new('localhost', 65_000) }

describe '#connect' do

context 'クライアントへ接続できる場合' do

subject { tasks.connect }

it 'モックを使って正常接続のコール' do

allow(tasks).to receive(:connect).and_return(true)

is_expected.to eq(true)

end

context 'クライアントへ接続できない場合' do

it { expect(no_task.connect).to eq(false) }

it 'クライアントが停止していたら false' do

allow(tasks).to receive(:connect).and_return(false)

expect(tasks.connect).to eq(false)

end

describe '#disconnect' do

context '正常に切断できた場合' do

subject { tasks.disconnect }

it 'こちらから、クライアントとの接続を切断して、成功すると nil' do

is_expected.to eq(nil)

end

# Dispatcher class のテスト

describe 'Dispatch' do

let(:test_key) { "TestKey" }

let(:correct_host) { Reins::Dispatch.new("192.168.0.10", test_key) }

before { allow(correct_host).to receive(:varidate).and_return(true) }

describe '#command' do

context 'ホスト一覧を出力する場合' do

it 'ホスト一覧が出力された' do

allow(Reins.regist_host).to receive(:read_hosts).and_return([])

expect(correct_host.command("list", "")).to eq([])

end

context 'アドレスを削除する場合' do

it 'アドレスを正常に削除' do

allow(Reins.regist_host).to receive(:delete).and_return("192.168.0.10")

expect(correct_host.command("delete", "")).to eq("192.168.0.10")

end

# coding: utf-8

require 'digest/sha2'

module Reins
  class AuthService
    # サーバの認証キーを定義する
    # == パラメータ
    # secret_key:: SHA512 でハッシュ化されたキーを指定する
    # == 返り値
    # nil
    def initialize(secret_key = 'ac58c2bedf7c1d4e35136f2ca4f81acdece03fa9e90aeefa0d363488649c7f52d7064285923f814592d53c419f5c4db59ee1a867b4852d18e0fac6efd5874072')
      @secret_key = secret_key
      nil
    end

    # IPアドレスをキーにした専用のキーを発行し、新しいキーを登録する
    # == パラメータ
    # ipaddr:: IPアドレス
    # == 返り値
    # キー:: ハッシュ化された識別キー
    def create_key(ipaddr)
      new_key = Digest::SHA512.hexdigest("#{ipaddr}:#{Random.new_seed}")
      Reins.regist_host.create(ipaddr, new_key)
    end

    # クライアント認証を行う
    # 接続元が要求してきたキーが、サーバ側で設定されているハッシュ値と比較する
    # == パラメータ
    # key:: ハッシュ化される前のキー
    # ipaddr:: 接続元のIPアドレス
    # == 返り値
    # キー:: 新規にホスト登録が必要なクライアントキーを発行
    # true:: 認証成功
    # false:: 認証不可 または、新規登録不可
    def authenticate_key(key, ipaddr)
      if @secret_key == Digest::SHA512.hexdigest(key)
        Reins.logger.info("#{ipaddr} : 認証が成功しました")
        Reins.regist_host.read_hosts.include?(ipaddr) ? Reins.regist_host.read_hostkeys[ipaddr] : create_key(ipaddr)
      else
        Reins.logger.fatal("#{ipaddr} : 認証が失敗しました")
        false
      end
    end

    # クライアントの識別を行う
    # 要求されたクライアント固有の識別キーが登録されているものか判断する
    # == パラメータ
    # key:: クライアント固有の識別キー
    # == 返り値
    # 識別された場合:: 登録されているIPアドレス
    # 否認された場合:: nil
    def varid?(keycode)
      Reins.regist_host.read_hostkeys.key(keycode)
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

# coding: utf-8

require 'digest/sha2'

module Reins

class AuthService

# サーバの認証キーを定義する

# == パラメータ

# secret_key:: SHA512 でハッシュ化されたキーを指定する

# == 返り値

# nil

def initialize(secret_key = 'ac58c2bedf7c1d4e35136f2ca4f81acdece03fa9e90aeefa0d363488649c7f52d7064285923f814592d53c419f5c4db59ee1a867b4852d18e0fac6efd5874072')

@secret_key = secret_key

nil

end

# IPアドレスをキーにした専用のキーを発行し、新しいキーを登録する

# == パラメータ

# ipaddr:: IPアドレス

# == 返り値

# キー:: ハッシュ化された識別キー

def create_key(ipaddr)

new_key = Digest::SHA512.hexdigest("#{ipaddr}:#{Random.new_seed}")

Reins.regist_host.create(ipaddr, new_key)

end

# クライアント認証を行う

# 接続元が要求してきたキーが、サーバ側で設定されているハッシュ値と比較する

# == パラメータ

# key:: ハッシュ化される前のキー

# ipaddr:: 接続元のIPアドレス

# == 返り値

# キー:: 新規にホスト登録が必要なクライアントキーを発行

# true:: 認証成功

# false:: 認証不可または、新規登録不可

def authenticate_key(key, ipaddr)

if @secret_key == Digest::SHA512.hexdigest(key)

Reins.logger.info("#{ipaddr} : 認証が成功しました")

Reins.regist_host.read_hosts.include?(ipaddr) ? Reins.regist_host.read_hostkeys[ipaddr] : create_key(ipaddr)

else

Reins.logger.fatal("#{ipaddr} : 認証が失敗しました")

false

end

# クライアントの識別を行う

# 要求されたクライアント固有の識別キーが登録されているものか判断する

# == パラメータ

# key:: クライアント固有の識別キー

# == 返り値

# 識別された場合:: 登録されているIPアドレス

# 否認された場合:: nil

def varid?(keycode)

Reins.regist_host.read_hostkeys.key(keycode)

end

# coding: utf-8

# filename: dispatcher.rb
module Reins
  class Dispatch
    # 対象となるクライアントのIPアドレスを保持
    # == パラメータ
    # ip:: 対象となるクライアントのIPアドレス
    # == 返り値
    # 特になし
    def initialize(addr, keycode)
      @addr    = addr
      @keycode = keycode
    end

    def varidate
      return true if Reins.regist_host.read_hostkeys[@addr] == @keycode

      Reins.logger.error("認可されていないコマンドです")
      false
    end

    # コマンドを受け取って、対象の機能へ振り分ける
    # == パラメータ
    # comm:: クライアントからの要求コマンド
    # value:: コマンドの実行に必要な引数
    # == 返り値
    # exception:: 失敗した場合
    # exception以外:: コマンドの実行結果
    def command(comm, value)
      Reins.logger.debug("#{comm}(#{value}) : 指定のコマンドへディスパッチします")
      return "false" unless varidate
      case comm
      when /^list/
        Reins.regist_host.read_hosts
      when /^delete/
        Reins.regist_host.delete(@addr)
      end
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

# coding: utf-8

# filename: dispatcher.rb

module Reins

class Dispatch

# 対象となるクライアントのIPアドレスを保持

# == パラメータ

# ip:: 対象となるクライアントのIPアドレス

# == 返り値

# 特になし

def initialize(addr, keycode)

@addr = addr

@keycode = keycode

end

def varidate

return true if Reins.regist_host.read_hostkeys[@addr] == @keycode

Reins.logger.error("認可されていないコマンドです")

false

end

# コマンドを受け取って、対象の機能へ振り分ける

# == パラメータ

# comm:: クライアントからの要求コマンド

# value:: コマンドの実行に必要な引数

# == 返り値

# exception:: 失敗した場合

# exception以外:: コマンドの実行結果

def command(comm, value)

Reins.logger.debug("#{comm}(#{value}) : 指定のコマンドへディスパッチします")

return "false" unless varidate

case comm

when /^list/

Reins.regist_host.read_hosts

when /^delete/

Reins.regist_host.delete(@addr)

end

# coding: utf-8

# filename: host_registry.rb
require 'json'
require 'ipaddr'

module Reins
  class HostRegistry
    attr_reader :hosts

    # データベースの読込・初期化
    # ファイルが存在していれば内容を読込、なければファイルを新規に作成
    # == パラメータ
    # filename:: 読込・または保管先のファイル名
    # == 返り値
    # 特になし。但し、@hosts インスタンス変数へ、データベースの内容を保持
    def initialize(filename)
      @filename = filename
      File.open(@filename) do |file|
        @hosts = JSON.parse(file)
      end
    rescue
      @hosts = {}
    end

    # メモリ上のアドレスリストを、ファイルへ保管する
    # == パラメータ
    # filename:: 保管先ファイル名。指定がない場合は、初期化時に採用したファイル名
    def store(filename = @filename)
      Reins.logger.debug("#{filename} : ホスト一覧を保存します")
      File.open(filename, "w") do |file|
        file.puts(JSON.pretty_generate(@hosts))
      end
      true
    rescue
      Reins.logger.fatal("#{e}: データの保管に失敗しました")
      false
    end

    # 登録可能かどうかを検査する
    # == パラメータ
    # ipaddr:: 検査するIPアドレス
    # == 返り値
    # IPアドレス:: 登録可能な場合 IPアドレスを返す
    # false:: 登録不可
    def varid_ip?(ipaddr)
      addr = IPAddr.new(ipaddr).native.to_s
      @hosts.key?(addr) ? false : addr
    rescue => e
      Reins.logger.error("#{e}: #{ipaddr} は登録可能なIPアドレスではありません")
      false
    end

    # アドレスを新規に登録する。既に登録済みのものであれば登録しない。
    # == パラメータ
    # ipaddr:: 登録するIPアドレス
    # key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ
    # == 返り値
    # true::  登録できた
    # false:: 既に同じアドレスまたはIPアドレスではないため、登録せず
    def create(ipaddr, key)
      if (addr = varid_ip?(ipaddr))
        @hosts[addr] = {}
        @hosts[addr]["keycode"]      = key
        @hosts[addr]["created_date"] = @hosts[addr]["updated_date"] = Time.now.getlocal
        @hosts[addr]["status"]       = "alive"
        Reins.logger.info("#{addr} を追加しました")
        key if store
      else
        false
      end
    end

    # 登録されたステータスを変更する
    # == パラメータ
    # ipaddr:: 登録済みIPアドレス
    # key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ
    # status:: "alive" 稼働中, "dead" 異常発生し停止
    # == 返り値
    # "alive" or "dead"::  変更したホストのステータス
    # false:: 未登録ホストの場合、または Keyがまちがっている
    def get_status(ipaddr, key)
      @hosts[ipaddr]["keycode"] == key ? @hosts[ipaddr]["status"] : false
    rescue
      false
    end

    # 登録されたステータス情報を得る
    # == パラメータ
    # ipaddr:: 登録済みIPアドレス
    # key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ
    # == 返り値
    # "alive" or "dead"::  登録されているホストのステータス
    # false:: 未登録、または停止中、または Keyがまちがっている
    def set_status(ipaddr, key, status)
      if @hosts[ipaddr]["keycode"] == key
        @hosts[ipaddr]["status"]     = status
        @hosts[addr]["updated_date"] = Time.now.getlocal
        store
        status
      else
        false
      end
    rescue
      false
    end

    # 登録済みホスト一覧を、IPアドレスをKey、接続KeyをValueとするハッシュで返す
    # == 返り値
    # hash: hash[ipアドレス] = key を一つの要素とする
    def read_hostkeys
      @hosts.each_key.map do |host|
        [host, @hosts[host]["keycode"]]
      end.to_h
    end

    # 登録済みホスト一覧を配列で返す
    # == 返り値
    # array: 登録済みのIPアドレス一覧
    def read_hosts
      @hosts.each_key.map { |host| host }
    end

    # 登録済みのアドレスを削除する
    # == パラメータ
    # addr: 削除対象のアドレス
    # == 返り値
    # string:: 削除された要素
    # nil::    削除すべき要素が見つからなかったとき
    def delete(addr)
      if @hosts.delete(addr)
        Reins.logger.info("#{addr} を削除しました.")
        store
        addr
      else
        Reins.logger.warn("#{addr} を削除できません.")
        nil
      end
    end

    # まだアドレスが登録されていないかどうか
    # == 返り値
    # true::  アドレス未登録
    # false:: 1つ以上のアドレスが登録済み
    def empty?
      @hosts.empty?
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

# coding: utf-8

# filename: host_registry.rb

require 'json'

require 'ipaddr'

module Reins

class HostRegistry

attr_reader :hosts

# データベースの読込・初期化

# ファイルが存在していれば内容を読込、なければファイルを新規に作成

# == パラメータ

# filename:: 読込・または保管先のファイル名

# == 返り値

# 特になし。但し、@hosts インスタンス変数へ、データベースの内容を保持

def initialize(filename)

@filename = filename

File.open(@filename) do |file|

@hosts = JSON.parse(file)

end

rescue

@hosts = {}

end

# メモリ上のアドレスリストを、ファイルへ保管する

# == パラメータ

# filename:: 保管先ファイル名。指定がない場合は、初期化時に採用したファイル名

def store(filename = @filename)

Reins.logger.debug("#{filename} : ホスト一覧を保存します")

File.open(filename, "w") do |file|

file.puts(JSON.pretty_generate(@hosts))

end

true

rescue

Reins.logger.fatal("#{e}: データの保管に失敗しました")

false

end

# 登録可能かどうかを検査する

# == パラメータ

# ipaddr:: 検査するIPアドレス

# == 返り値

# IPアドレス:: 登録可能な場合 IPアドレスを返す

# false:: 登録不可

def varid_ip?(ipaddr)

addr = IPAddr.new(ipaddr).native.to_s

@hosts.key?(addr) ? false : addr

rescue => e

Reins.logger.error("#{e}: #{ipaddr} は登録可能なIPアドレスではありません")

false

end

# アドレスを新規に登録する。既に登録済みのものであれば登録しない。

# == パラメータ

# ipaddr:: 登録するIPアドレス

# key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ

# == 返り値

# true:: 登録できた

# false:: 既に同じアドレスまたはIPアドレスではないため、登録せず

def create(ipaddr, key)

if (addr = varid_ip?(ipaddr))

@hosts[addr] = {}

@hosts[addr]["keycode"] = key

@hosts[addr]["created_date"] = @hosts[addr]["updated_date"] = Time.now.getlocal

@hosts[addr]["status"] = "alive"

Reins.logger.info("#{addr} を追加しました")

key if store

else

false

end

# 登録されたステータスを変更する

# == パラメータ

# ipaddr:: 登録済みIPアドレス

# key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ

# status:: "alive" 稼働中, "dead" 異常発生し停止

# == 返り値

# "alive" or "dead":: 変更したホストのステータス

# false:: 未登録ホストの場合、または Keyがまちがっている

def get_status(ipaddr, key)

@hosts[ipaddr]["keycode"] == key ? @hosts[ipaddr]["status"] : false

rescue

false

end

# 登録されたステータス情報を得る

# == パラメータ

# ipaddr:: 登録済みIPアドレス

# key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ

# == 返り値

# "alive" or "dead":: 登録されているホストのステータス

# false:: 未登録、または停止中、または Keyがまちがっている

def set_status(ipaddr, key, status)

if @hosts[ipaddr]["keycode"] == key

@hosts[ipaddr]["status"] = status

@hosts[addr]["updated_date"] = Time.now.getlocal

store

status

else

false

end

rescue

false

end

# 登録済みホスト一覧を、IPアドレスをKey、接続KeyをValueとするハッシュで返す

# == 返り値

# hash: hash[ipアドレス] = key を一つの要素とする

def read_hostkeys

@hosts.each_key.map do |host|

[host, @hosts[host]["keycode"]]

end.to_h

end

# 登録済みホスト一覧を配列で返す

# == 返り値

# array: 登録済みのIPアドレス一覧

def read_hosts

@hosts.each_key.map { |host| host }

end

# 登録済みのアドレスを削除する

# == パラメータ

# addr: 削除対象のアドレス

# == 返り値

# string:: 削除された要素

# nil:: 削除すべき要素が見つからなかったとき

def delete(addr)

if @hosts.delete(addr)

Reins.logger.info("#{addr} を削除しました.")

store

addr

else

Reins.logger.warn("#{addr} を削除できません.")

nil

end

# まだアドレスが登録されていないかどうか

# == 返り値

# true:: アドレス未登録

# false:: 1つ以上のアドレスが登録済み

def empty?

@hosts.empty?

end

# coding: utf-8

# filename: lib/reins.rb

require "reins/version"
require "reins/dispatcher"
require "reins/auth_service"
require "reins/host_registry"
require "reins/task_control"
require "reins/config"

require "json"
require "socket"
require "ipaddr"

module Reins
  class << self
    # 指定されたポートでサーバを起動する
    # == パラメータ
    # port:: 割り当てるポート番号
    # == 返り値
    # Exception:: サーバが起動できなかった場合、例外を発生させ起動させない
    # TCPSocket:: 正常に起動した場合、Socket オブジェクトを返す
    def run_server(port)
      Reins.logger.info("Reins #{VERSION} を #{port} で起動します")
      TCPServer.new(port)
    rescue => e
      Reins.logger.error("Reins が起動できませんでした: #{e}")
      puts(e.to_s)
      exit
    end

    # 起動されているサーバを停止する
    # == パラメータ
    # server:: 起動中のサーバの Socket
    # == 返り値
    # 特になし
    def exit_server(server)
      Reins.logger.info("Reins #{VERSION} を終了します")
      Reins.regist_host.store
      server.close
      exit
    end

    #
    def connect_client(server)
      Thread.start(server.accept) do |c|
        client = Reins::Clients.new(c)
        status = {}
        status["keycode"] = client.keycode
        status["result"]  = client.command == 'auth' ? client.run_auth : client.run_command
        c.puts JSON.pretty_generate(status)
        c.close
      end
    rescue Interrupt
      exit_server(server)
    end
  end

  class Clients
    attr_accessor :addr, :keycode, :command, :options

    def initialize(client)
      @message = JSON.parse(client.gets)
      Reins.logger.debug(@message)
      @addr    = IPAddr.new(client.peeraddr[3]).native.to_s
      @keycode = @message["keycode"]
      @command = @message["command"]
      @options = @message["options"]
    end

    # 認証処理を行う
    # == パラメータ
    # 特になし
    # == 返り値
    # key:: 認証が成功した場合は接続用の認証キーを返す
    # false:: 認証が失敗した時は "false" 文字列を返す
    def run_auth
      Reins.logger.debug("#{addr} : 認証を行います")
      if (key = Reins.auth_service.authenticate_key(keycode, addr))
        key
      else
        "false"
      end
    end

    # サーバで実行されるコマンドを受け渡す
    # == パラメータ
    # 特になし
    # == 返り値
    # false:: 実行できなければ "false" 文字列を返す
    # false以外:: 実行された結果を、改行を含む文字列で返す
    def run_command
      Reins::Dispatch.new(addr, keycode).command(command, options)
    end
  end

  def start
    server = run_server(Reins.port)

    loop do
      connect_client(server)
    end
  end

  module_function :start
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

# coding: utf-8

# filename: lib/reins.rb

require "reins/version"

require "reins/dispatcher"

require "reins/auth_service"

require "reins/host_registry"

require "reins/task_control"

require "reins/config"

require "json"

require "socket"

require "ipaddr"

module Reins

class << self

# 指定されたポートでサーバを起動する

# == パラメータ

# port:: 割り当てるポート番号

# == 返り値

# Exception:: サーバが起動できなかった場合、例外を発生させ起動させない

# TCPSocket:: 正常に起動した場合、Socket オブジェクトを返す

def run_server(port)

Reins.logger.info("Reins #{VERSION} を #{port} で起動します")

TCPServer.new(port)

rescue => e

Reins.logger.error("Reins が起動できませんでした: #{e}")

puts(e.to_s)

exit

end

# 起動されているサーバを停止する

# == パラメータ

# server:: 起動中のサーバの Socket

# == 返り値

# 特になし

def exit_server(server)

Reins.logger.info("Reins #{VERSION} を終了します")

Reins.regist_host.store

server.close

exit

end

#

def connect_client(server)

Thread.start(server.accept) do |c|

client = Reins::Clients.new(c)

status = {}

status["keycode"] = client.keycode

status["result"] = client.command == 'auth' ? client.run_auth : client.run_command

c.puts JSON.pretty_generate(status)

c.close

end

rescue Interrupt

exit_server(server)

end

class Clients

attr_accessor :addr, :keycode, :command, :options

def initialize(client)

@message = JSON.parse(client.gets)

Reins.logger.debug(@message)

@addr = IPAddr.new(client.peeraddr[3]).native.to_s

@keycode = @message["keycode"]

@command = @message["command"]

@options = @message["options"]

end

# 認証処理を行う

# == パラメータ

# 特になし

# == 返り値

# key:: 認証が成功した場合は接続用の認証キーを返す

# false:: 認証が失敗した時は "false" 文字列を返す

def run_auth

Reins.logger.debug("#{addr} : 認証を行います")

if (key = Reins.auth_service.authenticate_key(keycode, addr))

key

else

"false"

end

# サーバで実行されるコマンドを受け渡す

# == パラメータ

# 特になし

# == 返り値

# false:: 実行できなければ "false" 文字列を返す

# false以外:: 実行された結果を、改行を含む文字列で返す

def run_command

Reins::Dispatch.new(addr, keycode).command(command, options)

end

def start

server = run_server(Reins.port)

loop do

connect_client(server)

end

module_function :start

end

# coding: utf-8

# filename: reins_agent.rb
require "reins_agent/config"
require "reins_agent/version"

require "json"
require "ipaddr"
require "socket"

module ReinsAgent
  class << self
    # サーバへ接続した後、指定したポート番号でサービスを開放する
    # == パラメータ
    # port:: エージェントが起動するためのポート番号
    # == 返り値
    # agent:: 起動されたサービスのソケット情報(@agent でも参照可)
    def run_agent(port)
      ReinsAgent.logger.info("Reins Agent #{VERSION} を #{port} で起動します")

      auth_command = JSON.generate("command" => "auth", "keycode" => ReinsAgent.client_key.to_s)
      throw unless (status = JSON.parse(ReinsAgent.exec(auth_command)))

      @cert_key = status["result"]
      ReinsAgent.logger.debug("認証キー : #{@cert_key} で認証が完了しました")

      @agent = TCPServer.new(ReinsAgent.client_port)
    rescue => e
      ReinsAgent.logger.fatal("Reins Agent が起動できませんでした: #{e}")
      exit
    end

    # サーバからのデータをパースする
    # == パラメータ
    # r:: リモートサーバのソケット情報
    # == 返り値
    # 特になし、ただし @message 連想配列へ、取得した情報を取得
    def define_value(r)
      @message = JSON.parse(r.gets)
      @message["IP address"] = IPAddr.new(r.peeraddr[3]).native.to_s
      ReinsAgent.logger.debug("addr = #{@message['IP address']}, keycode = #{@message['keycode']}, command = #{@message['command']}, options = #{@message['options']}")
    end

    # エージェントの終了処理
    # == パラメータ
    # 特になし
    # == 返り値
    # 常に終了
    def exit_agent
      ReinsAgent.logger.info("Reins Agent #{VERSION} を終了します")
      delete_command = JSON.generate("command" => "delete", "keycode" => @cert_key.to_s)
      ReinsAgent.exec(delete_command)
      @agent.close
      exit
    end

    # サーバへコマンドを送信し、その返り値を取得する
    # == パラメータ
    # command:: サーバへ送信するコマンド+オプションを指定
    # == 返り値
    # response:: サーバからの返り値(改行付き/複数行)
    def exec(command)
      ReinsAgent.logger.debug("コマンドを実行します : #{command}")
      s = TCPSocket.open(ReinsAgent.server_host, ReinsAgent.server_port)
      s.puts command
      response = s.read
      s.close if s
      response
    end

    # サーバからの接続用常駐エージェントを起動
    # == パラメータ
    # 特になし
    # == 返り値
    # 特になし
    def connect_agent
      Thread.start(@agent.accept) do |r|
        define_value(r)
        r.puts("OK")
        r.close
      end
    rescue Interrupt
      exit_agent
    end
  end

  #
  def start
    run_agent(ReinsAgent.client_port)
    list_command = JSON.generate("command" => "list", "keycode" => @cert_key.to_s)
    puts ReinsAgent.exec(list_command)

    loop do
      connect_agent
    end
  end

  module_function :start
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

# coding: utf-8

# filename: reins_agent.rb

require "reins_agent/config"

require "reins_agent/version"

require "json"

require "ipaddr"

require "socket"

module ReinsAgent

class << self

# サーバへ接続した後、指定したポート番号でサービスを開放する

# == パラメータ

# port:: エージェントが起動するためのポート番号

# == 返り値

# agent:: 起動されたサービスのソケット情報(@agent でも参照可)

def run_agent(port)

ReinsAgent.logger.info("Reins Agent #{VERSION} を #{port} で起動します")

auth_command = JSON.generate("command" => "auth", "keycode" => ReinsAgent.client_key.to_s)

throw unless (status = JSON.parse(ReinsAgent.exec(auth_command)))

@cert_key = status["result"]

ReinsAgent.logger.debug("認証キー : #{@cert_key} で認証が完了しました")

@agent = TCPServer.new(ReinsAgent.client_port)

rescue => e

ReinsAgent.logger.fatal("Reins Agent が起動できませんでした: #{e}")

exit

end

# サーバからのデータをパースする

# == パラメータ

# r:: リモートサーバのソケット情報

# == 返り値

# 特になし、ただし @message 連想配列へ、取得した情報を取得

def define_value(r)

@message = JSON.parse(r.gets)

@message["IP address"] = IPAddr.new(r.peeraddr[3]).native.to_s

ReinsAgent.logger.debug("addr = #{@message['IP address']}, keycode = #{@message['keycode']}, command = #{@message['command']}, options = #{@message['options']}")

end

# エージェントの終了処理

# == パラメータ

# 特になし

# == 返り値

# 常に終了

def exit_agent

ReinsAgent.logger.info("Reins Agent #{VERSION} を終了します")

delete_command = JSON.generate("command" => "delete", "keycode" => @cert_key.to_s)

ReinsAgent.exec(delete_command)

@agent.close

exit

end

# サーバへコマンドを送信し、その返り値を取得する

# == パラメータ

# command:: サーバへ送信するコマンド+オプションを指定

# == 返り値

# response:: サーバからの返り値(改行付き/複数行)

def exec(command)

ReinsAgent.logger.debug("コマンドを実行します : #{command}")

s = TCPSocket.open(ReinsAgent.server_host, ReinsAgent.server_port)

s.puts command

response = s.read

s.close if s

response

end

# サーバからの接続用常駐エージェントを起動

# == パラメータ

# 特になし

# == 返り値

# 特になし

def connect_agent

Thread.start(@agent.accept) do |r|

define_value(r)

r.puts("OK")

r.close

end

rescue Interrupt

exit_agent

end

#

def start

run_agent(ReinsAgent.client_port)

list_command = JSON.generate("command" => "list", "keycode" => @cert_key.to_s)

puts ReinsAgent.exec(list_command)

loop do

connect_agent

end

module_function :start

end

特集2　ラズパイ入門ボードの使い方（Vol.52掲載）

投稿日：2018.01.10　｜　カテゴリー：　コード

著者：米田聡

シェルスクリプトマガジンでは、小型コンピュータボード「Raspberry Pi」（ラズパイ）のプログラミングが楽しめる拡張ボード「ラズパイ入門ボード」を制作しました。本特集では、このラズパイ入門ボードに関する基本的な使い方の一部を紹介します。
記事本文掲載のシェルスクリプトマガジン vol.52は以下のリンク先でご購入できます。

LED1 = 14
LED2 = 15
LED3 = 12
LED4 = 16

SW1 = 4
SW2 = 17
SW3 = 5
SW4 = 6

1

2

3

4

5

6

7

8

9

LED1 = 14

LED2 = 15

LED3 = 12

LED4 = 16

SW1 = 4

SW2 = 17

SW3 = 5

SW4 = 6

# -*- coding: utf-8 -*-
# etnryboard.pyを読み込む
from entryboard import *
import time
import RPi.GPIO as GPIO

# 動作モード設定
GPIO.setmode(GPIO.BCM)
# GPIOモード設定
GPIO.setup(LED1, GPIO.OUT, initial=GPIO.LOW)
# LED1に1を出力
GPIO.output(LED1, GPIO.HIGH)
# 2秒待つ
time.sleep(2)
# LED1に0を出力
GPIO.output(LED1, GPIO.LOW)
# 終了処理
GPIO.cleanup(LED1)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

# -*- coding: utf-8 -*-

# etnryboard.pyを読み込む

from entryboard import *

import time

import RPi.GPIO as GPIO

# 動作モード設定

GPIO.setmode(GPIO.BCM)

# GPIOモード設定

GPIO.setup(LED1, GPIO.OUT, initial=GPIO.LOW)

# LED1に1を出力

GPIO.output(LED1, GPIO.HIGH)

# 2秒待つ

time.sleep(2)

# LED1に0を出力

GPIO.output(LED1, GPIO.LOW)

# 終了処理

GPIO.cleanup(LED1)

# -*- coding: utf-8 -*-
from entryboard import *
import time
import RPi.GPIO as GPIO

# LEDが接続されているGPIOのリスト
leds = [LED1, LED2, LED3 ,LED4]

GPIO.setmode(GPIO.BCM)
GPIO.setup(leds, GPIO.OUT, initial=GPIO.LOW)

for i in range(3):
  for l in leds:
    GPIO.output(l, 1)
    time.sleep(1)
    GPIO.output(l, 0)
GPIO.cleanup(leds)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

# -*- coding: utf-8 -*-

from entryboard import *

import time

import RPi.GPIO as GPIO

# LEDが接続されているGPIOのリスト

leds = [LED1, LED2, LED3 ,LED4]

GPIO.setmode(GPIO.BCM)

GPIO.setup(leds, GPIO.OUT, initial=GPIO.LOW)

for i in range(3):

for l in leds:

GPIO.output(l, 1)

time.sleep(1)

GPIO.output(l, 0)

GPIO.cleanup(leds)

# -*- coding: utf-8 -*-
from entryboard import *
import time
import sys
import RPi.GPIO as GPIO

switches = [SW1, SW2, SW3, SW4]
leds = [LED1, LED2, LED3, LED4]
GPIO.setmode(GPIO.BCM)
# スイッチのGPIOを入力に設定
GPIO.setup(switches, GPIO.IN)
GPIO.setup(leds, GPIO.OUT, initial=GPIO.LOW)

try:
  while True:
    for i in range(4):
      if GPIO.input(switches[i]) == GPIO.LOW:
        GPIO.output(leds[i], GPIO.HIGH)
      else:
        GPIO.output(leds[i], GPIO.LOW)

except KeyboardInterrupt:
  GPIO.cleanup(switches)
  GPIO.cleanup(leds)
  sys.exit()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

# -*- coding: utf-8 -*-

from entryboard import *

import time

import sys

import RPi.GPIO as GPIO

switches = [SW1, SW2, SW3, SW4]

leds = [LED1, LED2, LED3, LED4]

GPIO.setmode(GPIO.BCM)

# スイッチのGPIOを入力に設定

GPIO.setup(switches, GPIO.IN)

GPIO.setup(leds, GPIO.OUT, initial=GPIO.LOW)

try:

while True:

for i in range(4):

if GPIO.input(switches[i]) == GPIO.LOW:

GPIO.output(leds[i], GPIO.HIGH)

else:

GPIO.output(leds[i], GPIO.LOW)

except KeyboardInterrupt:

GPIO.cleanup(switches)

GPIO.cleanup(leds)

sys.exit()

# -*- coding: utf-8 -*-
from entryboard import *
import time
import sys
import RPi.GPIO as GPIO

switches = [SW1, SW2, SW3, SW4]
leds = [LED1, LED2, LED3, LED4]

# スイッチのGPIOが変化したらこの関数が呼ばれる
def switch_event(channel):
  global leds
  global switches

  for i in range(4):
    if channel == switches[i]:
      if GPIO.input(channel) == GPIO.LOW:
        GPIO.output(leds[i], GPIO.HIGH)
      else:
        GPIO.output(leds[i], GPIO.LOW)

# プログラムはここから
if __name__ == "__main__":

  GPIO.setmode(GPIO.BCM)
  GPIO.setup(switches, GPIO.IN)
  GPIO.setup(leds, GPIO.OUT, initial=GPIO.LOW)

  for i in range(4):
    # イベントを登録する
    GPIO.add_event_detect(switches[i], GPIO.BOTH, bouncetime=60)
    GPIO.add_event_callback(switches[i], switch_event)

  try:
    # 1時間何もしない
    time.sleep(3600)

  except KeyboardInterrupt:
    GPIO.cleanup(switches)
    GPIO.cleanup(leds)
    sys.exit()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

# -*- coding: utf-8 -*-

from entryboard import *

import time

import sys

import RPi.GPIO as GPIO

switches = [SW1, SW2, SW3, SW4]

leds = [LED1, LED2, LED3, LED4]

# スイッチのGPIOが変化したらこの関数が呼ばれる

def switch_event(channel):

global leds

global switches

for i in range(4):

if channel == switches[i]:

if GPIO.input(channel) == GPIO.LOW:

GPIO.output(leds[i], GPIO.HIGH)

else:

GPIO.output(leds[i], GPIO.LOW)

# プログラムはここから

if __name__ == "__main__":

GPIO.setmode(GPIO.BCM)

GPIO.setup(switches, GPIO.IN)

GPIO.setup(leds, GPIO.OUT, initial=GPIO.LOW)

for i in range(4):

# イベントを登録する

GPIO.add_event_detect(switches[i], GPIO.BOTH, bouncetime=60)

GPIO.add_event_callback(switches[i], switch_event)

try:

# 1時間何もしない

time.sleep(3600)

except KeyboardInterrupt:

GPIO.cleanup(switches)

GPIO.cleanup(leds)

sys.exit()

# -*- coding: utf-8 -*-
from entryboard import *
import time
import RPi.GPIO as GPIO

GPIO.setmode(GPIO.BCM)
GPIO.setup(BUZZER, GPIO.OUT)
bz = GPIO.PWM(BUZZER, 1000)

bz.start(50)
time.sleep(2)
bz.stop()
GPIO.cleanup(BUZZER)

1

2

3

4

5

6

7

8

9

10

11

12

13

# -*- coding: utf-8 -*-

from entryboard import *

import time

import RPi.GPIO as GPIO

GPIO.setmode(GPIO.BCM)

GPIO.setup(BUZZER, GPIO.OUT)

bz = GPIO.PWM(BUZZER, 1000)

bz.start(50)

time.sleep(2)

bz.stop()

GPIO.cleanup(BUZZER)

# -*- coding: utf-8 -*-
from entryboard import *
import time
import pigpio

gpio = pigpio.pi()
gpio.set_mode(BUZZER, pigpio.OUTPUT)
gpio.hardware_PWM(BUZZER, 1000, 500000) # 1kHz, 50%
time.sleep(2)
gpio.hardware_PWM(BUZZER,0 ,0)
gpio.stop()

1

2

3

4

5

6

7

8

9

10

11

# -*- coding: utf-8 -*-

from entryboard import *

import time

import pigpio

gpio = pigpio.pi()

gpio.set_mode(BUZZER, pigpio.OUTPUT)

gpio.hardware_PWM(BUZZER, 1000, 500000) # 1kHz, 50%

time.sleep(2)

gpio.hardware_PWM(BUZZER,0 ,0)

gpio.stop()

# -*- coding: utf-8 -*-
from entryboard import *
import time
import pigpio

# 1オクターブの音階周波数リスト
scale = [ 523.251, 587.33, 659.255, 698.456, 783.991, 880, 987.767, 1046.502 ]
switches = [SW1, SW2, SW3, SW4]

bouncetime = 5 *1000 # 5ms
prev_tick = 0

# コールバック
def switch_event(channel, edge, tick):
  global bouncetime
  global prev_tick
  global scale
  global switches

  if (tick-prev_tick) < bouncetime:
     return
  prev_tick = tick

  for i in range(4):
    if switches[i] == channel:
      if edge == pigpio.LOW:
        gpio.hardware_PWM(BUZZER, scale[i], 500000)
      else:
        gpio.hardware_PWM(BUZZER, 0, 0)

if __name__ == "__main__":
  gpio = pigpio.pi()
  gpio.set_mode(BUZZER, pigpio.OUTPUT)
  for i in range(4):35
    # モードとコールバック
    gpio.set_mode(switches[i], pigpio.INPUT)
    gpio.callback(switches[i], pigpio.EITHER_EDGE, switch_event)
  try:
    time.sleep(3600)
  except KeyboardInterrupt:
    gpio.hardware_PWM(BUZZER, 0, 0)
    gpio.stop()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

# -*- coding: utf-8 -*-

from entryboard import *

import time

import pigpio

# 1オクターブの音階周波数リスト

scale = [ 523.251, 587.33, 659.255, 698.456, 783.991, 880, 987.767, 1046.502 ]

switches = [SW1, SW2, SW3, SW4]

bouncetime = 5 *1000 # 5ms

prev_tick = 0

# コールバック

def switch_event(channel, edge, tick):

global bouncetime

global prev_tick

global scale

global switches

if (tick-prev_tick) < bouncetime:

return

prev_tick = tick

for i in range(4):

if switches[i] == channel:

if edge == pigpio.LOW:

gpio.hardware_PWM(BUZZER, scale[i], 500000)

else:

gpio.hardware_PWM(BUZZER, 0, 0)

if __name__ == "__main__":

gpio = pigpio.pi()

gpio.set_mode(BUZZER, pigpio.OUTPUT)

for i in range(4):35

# モードとコールバック

gpio.set_mode(switches[i], pigpio.INPUT)

gpio.callback(switches[i], pigpio.EITHER_EDGE, switch_event)

try:

time.sleep(3600)

except KeyboardInterrupt:

gpio.hardware_PWM(BUZZER, 0, 0)

gpio.stop()

LED5_R = 20
LED5_G = 22
LED5_B = 27

LED6_R = 26
LED6_G = 19
LED6_B = 13

1

2

3

4

5

6

7

LED5_R = 20

LED5_G = 22

LED5_B = 27

LED6_R = 26

LED6_G = 19

LED6_B = 13

# -*- coding: utf-8 -*-
from entryboard import *
import time
import RPi.GPIO as GPIO

led6 = [LED6_R, LED6_G, LED6_B]
duty = [50.0, 50.0, 50.0]
switches = [SW1, SW2, SW3, SW4]
pwm = []

GPIO.setmode(GPIO.BCM)
GPIO.setup(led6, GPIO.OUT)
GPIO.setup(switches, GPIO.IN)

for i in range(3):
  # 100Hzに設定
  pwm.append(GPIO.PWM(led6[i], 100))
  pwm[i].start(duty[i])
try:
  while True:
    for i in range(3):
      if GPIO.input(switches[i]) == GPIO.LOW:
        if GPIO.input(SW4) == GPIO.LOW:
          duty[i] = duty[i] - 5.0
          if duty[i] < 0.0:
            duty[i] = 0.0
          else:
            duty[i] = duty[i] + 5.0
            if duty[i] > 100.0:
              duty[i] = 100.0
      pwm[i].ChangeDutyCycle(duty[i])
      time.sleep(0.1)
except KeyboardInterrupt:
  GPIO.cleanup()

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

# -*- coding: utf-8 -*-

from entryboard import *

import time

import RPi.GPIO as GPIO

led6 = [LED6_R, LED6_G, LED6_B]

duty = [50.0, 50.0, 50.0]

switches = [SW1, SW2, SW3, SW4]

pwm = []

GPIO.setmode(GPIO.BCM)

GPIO.setup(led6, GPIO.OUT)

GPIO.setup(switches, GPIO.IN)

for i in range(3):

# 100Hzに設定

pwm.append(GPIO.PWM(led6[i], 100))

pwm[i].start(duty[i])

try:

while True:

for i in range(3):

if GPIO.input(switches[i]) == GPIO.LOW:

if GPIO.input(SW4) == GPIO.LOW:

duty[i] = duty[i] - 5.0

if duty[i] < 0.0:

duty[i] = 0.0

else:

duty[i] = duty[i] + 5.0

if duty[i] > 100.0:

duty[i] = 100.0

pwm[i].ChangeDutyCycle(duty[i])

time.sleep(0.1)

except KeyboardInterrupt:

GPIO.cleanup()

漢のUNIX　サードパーティ製ライブラリを使う（Vol.52掲載）

投稿日：2018.01.10　｜　カテゴリー：　コード

著者：後藤大地

これまでシステムに用意されている標準ライブラリだけを使ってソースコードを作成する例を取り上げてきたが、次のステップとしてサードパーティ製のライブラリを使う方法を紹介しよう。システムに標準で用意されているライブラリはすべての処理に対応しているわけではないので、特定の処理をしようと思ったらそれ向けに開発されたサードパーティ製ライブラリを利用することになる。
記事本文掲載のシェルスクリプトマガジンvol.52は以下のリンク先でご購入できます。

/* This is simple demonstration of how to use expat. This program
   reads an XML document from standard input and writes a line with
   the name of each element to standard output indenting child
   elements by one tab stop more than their parent element.
   It must be used with Expat compiled for UTF-8 output.
                            __  __            _
                         ___\ \/ /_ __   __ _| |_
                        / _ \\  /| '_ \ / _` | __|
                       |  __//  \| |_) | (_| | |_
                        \___/_/\_\ .__/ \__,_|\__|
                                 |_| XML parser

   Copyright (c) 1997-2000 Thai Open Source Software Center Ltd
   Copyright (c) 2000-2017 Expat development team
   Licensed under the MIT license:

   Permission is  hereby granted,  free of charge,  to any  person obtaining
   a  copy  of  this  software   and  associated  documentation  files  (the
   "Software"),  to  deal in  the  Software  without restriction,  including
   without  limitation the  rights  to use,  copy,  modify, merge,  publish,
   distribute, sublicense, and/or sell copies of the Software, and to permit
   persons  to whom  the Software  is  furnished to  do so,  subject to  the
   following conditions:

   The above copyright  notice and this permission notice  shall be included
   in all copies or substantial portions of the Software.

   THE  SOFTWARE  IS  PROVIDED  "AS  IS",  WITHOUT  WARRANTY  OF  ANY  KIND,
   EXPRESS  OR IMPLIED,  INCLUDING  BUT  NOT LIMITED  TO  THE WARRANTIES  OF
   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN
   NO EVENT SHALL THE AUTHORS OR  COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
   DAMAGES OR  OTHER LIABILITY, WHETHER  IN AN  ACTION OF CONTRACT,  TORT OR
   OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
   USE OR OTHER DEALINGS IN THE SOFTWARE.
*/

#include <stdio.h>
#include <expat.h>

#ifdef XML_LARGE_SIZE
# if defined(XML_USE_MSC_EXTENSIONS) && _MSC_VER < 1400
#  define XML_FMT_INT_MOD "I64"
# else
#  define XML_FMT_INT_MOD "ll"
# endif
#else
# define XML_FMT_INT_MOD "l"
#endif

#ifdef XML_UNICODE_WCHAR_T
# include <wchar.h>
# define XML_FMT_STR "ls"
#else
# define XML_FMT_STR "s"
#endif

static void XMLCALL
startElement(void *userData, const XML_Char *name, const XML_Char **atts)
{
  int i;
  int *depthPtr = (int *)userData;
  (void)atts;

  for (i = 0; i < *depthPtr; i++)
    putchar('\t');
  printf("%" XML_FMT_STR "\n", name);
  *depthPtr += 1;
}

static void XMLCALL
endElement(void *userData, const XML_Char *name)
{
  int *depthPtr = (int *)userData;
  (void)name;

  *depthPtr -= 1;
}

int
main(int argc, char *argv[])
{
  char buf[BUFSIZ];
  XML_Parser parser = XML_ParserCreate(NULL);
  int done;
  int depth = 0;
  (void)argc;
  (void)argv;

  XML_SetUserData(parser, &depth);
  XML_SetElementHandler(parser, startElement, endElement);
  do {
    size_t len = fread(buf, 1, sizeof(buf), stdin);
    done = len < sizeof(buf);
    if (XML_Parse(parser, buf, (int)len, done) == XML_STATUS_ERROR) {
      fprintf(stderr,
              "%" XML_FMT_STR " at line %" XML_FMT_INT_MOD "u\n",
              XML_ErrorString(XML_GetErrorCode(parser)),
              XML_GetCurrentLineNumber(parser));
      return 1;
    }
  } while (!done);
  XML_ParserFree(parser);
  return 0;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

/* This is simple demonstration of how to use expat. This program

reads an XML document from standard input and writes a line with

the name of each element to standard output indenting child

elements by one tab stop more than their parent element.

It must be used with Expat compiled for UTF-8 output.

__ __ _

___\ \/ /_ __ __ _| |_

/ _ \\ /| '_ \ / _` | __|

| __// \| |_) | (_| | |_

\___/_/\_\ .__/ \__,_|\__|

|_| XML parser

Licensed under the MIT license:

Permission is hereby granted, free of charge, to any person obtaining

a copy of this software and associated documentation files (the

"Software"), to deal in the Software without restriction, including

without limitation the rights to use, copy, modify, merge, publish,

distribute, sublicense, and/or sell copies of the Software, and to permit

persons to whom the Software is furnished to do so, subject to the

following conditions:

The above copyright notice and this permission notice shall be included

in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN

NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,

DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR

OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE

USE OR OTHER DEALINGS IN THE SOFTWARE.

*/

#include <stdio.h>

#include <expat.h>

#ifdef XML_LARGE_SIZE

# if defined(XML_USE_MSC_EXTENSIONS) && _MSC_VER < 1400

# define XML_FMT_INT_MOD "I64"

# else

# define XML_FMT_INT_MOD "ll"

# endif

#else

# define XML_FMT_INT_MOD "l"

#endif

#ifdef XML_UNICODE_WCHAR_T

# include <wchar.h>

# define XML_FMT_STR "ls"

#else

# define XML_FMT_STR "s"

#endif

static void XMLCALL

startElement(void *userData, const XML_Char *name, const XML_Char **atts)

{

int i;

int *depthPtr = (int *)userData;

(void)atts;

for (i = 0; i < *depthPtr; i++)

putchar('\t');

printf("%" XML_FMT_STR "\n", name);

*depthPtr += 1;

}

static void XMLCALL

endElement(void *userData, const XML_Char *name)

{

int *depthPtr = (int *)userData;

(void)name;

*depthPtr -= 1;

}

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

XML_Parser parser = XML_ParserCreate(NULL);

int done;

int depth = 0;

(void)argc;

(void)argv;

XML_SetUserData(parser, &depth);

XML_SetElementHandler(parser, startElement, endElement);

do {

size_t len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) == XML_STATUS_ERROR) {

fprintf(stderr,

"%" XML_FMT_STR " at line %" XML_FMT_INT_MOD "u\n",

XML_ErrorString(XML_GetErrorCode(parser)),

XML_GetCurrentLineNumber(parser));

return 1;

}

} while (!done);

XML_ParserFree(parser);

return 0;

}

#include <stdio.h>
#include <expat.h>

static void XMLCALL
startElement(void *userData, const XML_Char * name, 
		const XML_Char ** atts)
{
	int i;
	int *depthPtr = (int *)userData;
	(void)atts;

	for (i = 0; i < *depthPtr; i++)
		putchar('\t');
	printf("%s\n", name);
	*depthPtr += 1;
}

static void XMLCALL
endElement(void *userData, const XML_Char * name)
{
	int *depthPtr = (int *)userData;
	(void)name;

	*depthPtr -= 1;
}

int
main(int argc, char *argv[])
{
	char buf[BUFSIZ];
	XML_Parser parser = XML_ParserCreate(NULL);
	int done;
	int depth = 0;
	(void)argc;
	(void)argv;

	XML_SetUserData(parser, &depth);
	XML_SetElementHandler(parser, startElement, endElement);
	do {
		size_t len = fread(buf, 1, sizeof(buf), stdin);
		done = len < sizeof(buf);
		if (XML_Parse(parser, buf, (int)len, done) == 
			XML_STATUS_ERROR) {
			fprintf(stderr,
				"%s at line %lu\n",
				XML_ErrorString(XML_GetErrorCode(parser)),
				XML_GetCurrentLineNumber(parser));
			return 1;
		}
	} while (!done);
	XML_ParserFree(parser);
	return 0;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

#include <stdio.h>

#include <expat.h>

static void XMLCALL

startElement(void *userData, const XML_Char * name,

const XML_Char ** atts)

{

int i;

int *depthPtr = (int *)userData;

(void)atts;

for (i = 0; i < *depthPtr; i++)

putchar('\t');

printf("%s\n", name);

*depthPtr += 1;

}

static void XMLCALL

endElement(void *userData, const XML_Char * name)

{

int *depthPtr = (int *)userData;

(void)name;

*depthPtr -= 1;

}

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

XML_Parser parser = XML_ParserCreate(NULL);

int done;

int depth = 0;

(void)argc;

(void)argv;

XML_SetUserData(parser, &depth);

XML_SetElementHandler(parser, startElement, endElement);

do {

size_t len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR) {

fprintf(stderr,

"%s at line %lu\n",

XML_ErrorString(XML_GetErrorCode(parser)),

XML_GetCurrentLineNumber(parser));

return 1;

}

} while (!done);

XML_ParserFree(parser);

return 0;

}

<?xml version="1.0" encoding="UTF-8"?>

<document>
 <docgroup>
  <docinfo>
   <title><p>タイトル</p></title>
   <author><p>名前</p></author>
   <firstedition><p>編集開始日</p></firstedition>
   <lastmodified><p>編集終了日</p></lastmodified>
  </docinfo>

  <docgroup>
   <docinfo>
    <title><p>章タイトル</p></title>
   </docinfo>

   <p>説明1</p>

   <p>説明2</p>
  </docgroup>
 </docgroup>
</document>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

<?xml version="1.0" encoding="UTF-8"?>

<firstedition><p>編集開始日</p></firstedition>

<lastmodified><p>編集終了日</p></lastmodified>

</docinfo>

<title><p>章タイトル</p></title>

</docinfo>

</docgroup>

</document>

// XMLパーサを作成
XML_Parser parser = XML_ParserCreate(NULL);

// 開始タグと終了タグを読み込んだタイミングで実行される
// 関数を登録
XML_SetElementHandler(parser, startElement, endElement);

// パースを実行（データをバッファに読み込みながら、デー
// タが終了するまでこの処理を繰り返す）
XML_Parse(parser, buf, (int)len, done);

// 使用したXMLパーサを解放
XML_ParserFree(parser);

1

2

3

4

5

6

7

8

9

10

11

12

13

// XMLパーサを作成

XML_Parser parser = XML_ParserCreate(NULL);

// 開始タグと終了タグを読み込んだタイミングで実行される

// 関数を登録

XML_SetElementHandler(parser, startElement, endElement);

// パースを実行（データをバッファに読み込みながら、デー

// タが終了するまでこの処理を繰り返す）

XML_Parse(parser, buf, (int)len, done);

// 使用したXMLパーサを解放

XML_ParserFree(parser);

#include <stdio.h>
#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);
static void XMLCALL end(void *, const XML_Char *);

static int depth = 0;

int
main(int argc, char *argv[])
{
	char buf[BUFSIZ];
	int len, done;
	XML_Parser parser = XML_ParserCreate(NULL);

	XML_SetElementHandler(parser, begin, end);
	do {
		len = fread(buf, 1, sizeof(buf), stdin);
		done = len < sizeof(buf);
		if (XML_Parse(parser, buf, (int)len, done) == 
			XML_STATUS_ERROR)
			return 1;
	} while (!done);

	XML_ParserFree(parser);
	return 0;
}

static void XMLCALL
begin(void *d, const XML_Char *name, const XML_Char **attr)
{
	for (int i = 0; i < depth; i++)
		printf("→");

	printf("%s\n", name);
	++depth;
}

static void XMLCALL
end(void *d, const XML_Char * name)
{
	--depth;
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

#include <stdio.h>

#include <expat.h>

static void XMLCALL begin(void *, const XML_Char*, const XML_Char**);

static void XMLCALL end(void *, const XML_Char *);

static int depth = 0;

int

main(int argc, char *argv[])

{

char buf[BUFSIZ];

int len, done;

XML_Parser parser = XML_ParserCreate(NULL);

XML_SetElementHandler(parser, begin, end);

do {

len = fread(buf, 1, sizeof(buf), stdin);

done = len < sizeof(buf);

if (XML_Parse(parser, buf, (int)len, done) ==

XML_STATUS_ERROR)

return 1;

} while (!done);

XML_ParserFree(parser);

return 0;

}

static void XMLCALL

begin(void *d, const XML_Char *name, const XML_Char **attr)

{

for (int i = 0; i < depth; i++)

printf("→");

printf("%s\n", name);

++depth;

}

static void XMLCALL

end(void *d, const XML_Char * name)

{

--depth;

}

Open USP Tukubaiシンプルレシピ　Part1 テキスト編　（後半・ルービックキューブをつくる　など）

投稿日：2018.01.9　｜　カテゴリー：　記事

Tukubai、それはシェルスクリプトの使い易さを加速させるコマンド群。
前号では、そのオープン版“Open usp Tukubai”を紹介したが、やり残したことがあった。
豊富なレシピの紹介である。
そこで今号と次号の二回に渡り、Tukubaiの、特に実際のコーディングスタイルが分かり易いレシピを特集する。
「シェルスクリプトとは、僅かなコマンドの追加で、こんなにも応用の効く言語になるのか!」と、あなたはきっと驚くことだろう。

written by USPマガジン編集部

本記事は、USP MAGAZINE vol.5(2012年夏号)掲載記事のWEB再録記事(後半部分)です。

前半はこちら→シェルスクリプトに何でもおまかせ　Open USP Tukubaiシンプルレシピ　Part1 テキスト編　（前半）

本記事掲載のUSP MAGAZINE vol.5は以下リンク先でご購入できます。

レシピ２　ルービックキューブを作る。

問題

Tukubai はシェルスクリプトをデータベース言語化させるためだけのコマンドセットではないというが、それならもっと一般的な例は無いのか。

数理的な操作の様子が伺えるコードが見てみたい。例えば、何らかの科学技術計算を行っているプログラムであれば、それがわかりやすいと思うのだが。

解答

実際に科学技術計算にも利用しているのだが、そのような例は専門分野の知識から解説しなければならない。

そこでここでは専門分野知識の解説が不要なゲームのレシピを紹介しよう。数学パズル的要素が強いゲームであれば、数理的な操作も見え易いからだ。

■ サンプルプログラム
そこでルービックキューブ（3 × 3 のオーソドックスなもの）を作ってみた。

ルービックキューブは、立方体の一面が一つの行列に対応した6 つの行列であると見なせる。キューブを動かすと、その行列のうちの一つで± 90°回転が発生し、それに伴って隣接する4 つの面に相当する行列の一部要素が、別の行列に移動する。この動きを、シミュレートしようというものである。

UECでの解説はこちら。

#!/bin/bash
#
# ３ｘ３ルービックキューブ
# Written by N.Tounaka(xxxxxxx@usp-lab.com)
# Date : 5 Jun.2012
# Arranged by USP MAGAZINE(xxx@usp-lab.com)
# Date : 6 Jun.2012
# Ｕ
# 立方体(６面体）の展開図＝ＬＦＲＢ
# Ｄ
# F:fore B:back U:up D:down R:right L:left
#
# 関数ｆ：面Ｆを時計回り（右９０度回転）
# 関数Ｆ：面Ｆを反時計回り（左９０度回転）

# 変数定義(一時ファイルパス/着色データ)
tmp=tmp
F=`printf '\033[43mF\033[00m'`
U=`printf '\033[46mU\033[00m'`
R=`printf '\033[41mR\033[00m'`
B=`printf '\033[45mB\033[00m'`
D=`printf '\033[44mD\033[00m'`
L=`printf '\033[42mL\033[00m'`

# 関数のインクルード
source rubik-cube.func

# 初期化/シャッフル/答え作り(シャッフルの逆操作を記録)
init
rand ${1-=10} 2> $tmp-ans
ans=$(tac $tmp-ans | yarr -d | tr a-zA-Z A-Za-z)

# ゲームの開始
n=1
while true; do

echo " Fore Up Right Back Down Left"
echo " ---------------------------------------------"
ycat -3 F U R B D L |
ycat /dev/null - |
sed -e "s/F/$F/g; s/U/$U/g; s/R/$R/g" \
-e "s/B/$B/g; s/D/$D/g; s/L/$L/g"
echo "<-f F-> <-u U-> <-r R-> <-b B-> <-d D-> <-l L->"
echo -n "${ans}[$n]> "
read -n 1 scr
echo
[ "$scr" = "q" ] && break
eval ${scr} 2> /dev/null
n=$((n+1))

done

rm F B U D R L $tmp-*
exit 0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

#!/bin/bash

#

# ３ｘ３ルービックキューブ

# Written by N.Tounaka(xxxxxxx@usp-lab.com)

# Date : 5 Jun.2012

# Arranged by USP MAGAZINE(xxx@usp-lab.com)

# Date : 6 Jun.2012

# Ｕ

# 立方体(６面体）の展開図＝ＬＦＲＢ

# Ｄ

# F:fore B:back U:up D:down R:right L:left

#

# 関数ｆ：面Ｆを時計回り（右９０度回転）

# 関数Ｆ：面Ｆを反時計回り（左９０度回転）

# 変数定義(一時ファイルパス/着色データ)

tmp=tmp

F=`printf '\033[43mF\033[00m'`

U=`printf '\033[46mU\033[00m'`

R=`printf '\033[41mR\033[00m'`

B=`printf '\033[45mB\033[00m'`

D=`printf '\033[44mD\033[00m'`

L=`printf '\033[42mL\033[00m'`

# 関数のインクルード

source rubik-cube.func

# 初期化/シャッフル/答え作り(シャッフルの逆操作を記録)

init

rand ${1-=10} 2> $tmp-ans

ans=$(tac $tmp-ans | yarr -d | tr a-zA-Z A-Za-z)

# ゲームの開始

n=1

while true; do

echo " Fore Up Right Back Down Left"

echo " ---------------------------------------------"

ycat -3 F U R B D L |

ycat /dev/null - |

sed -e "s/F/$F/g; s/U/$U/g; s/R/$R/g" \

-e "s/B/$B/g; s/D/$D/g; s/L/$L/g"

echo "<-f F-> <-u U-> <-r R-> <-b B-> <-d D-> <-l L->"

echo -n "${ans}[$n]> "

read -n 1 scr

echo

[ "$scr" = "q" ] && break

eval ${scr} 2> /dev/null

n=$((n+1))

done

rm F B U D R L $tmp-*

exit 0

リスト３．rubik-cube.func : ルービックキューブプログラム（ファイル2・関数定義）

# RUBIK-CUBE エンジン
#
# Written by N.Tounaka(xxxxxxx@usp-lab.com)
#                        Date : 5 Jun.2012
# Arranged by USP MAGAZINE(xxx@usp-lab.com)
#                        Date : 6 Jun.2012

init ()    # 色が揃ったキューブをセットする
{
  for surf in F U B D R L; do
    yes "$surf" |
    head -9     |
    yarr -3     > $surf
  done
}

r ()  # Ｒ面(Right)の９０度時計回り
{
  self 3 F | cat           > $tmp-f
  self 3 U | tac           > $tmp-u
  self 1 B | cat           > $tmp-b
  self 1 D | tac           > $tmp-d
  delf 3 F | ycat - $tmp-d > $tmp-w; mv $tmp-w F 
  delf 3 U | ycat - $tmp-f > $tmp-w; mv $tmp-w U
  delf 1 B | ycat $tmp-u - > $tmp-w; mv $tmp-w B 
  delf 1 D | ycat $tmp-b - > $tmp-w; mv $tmp-w D 
  tateyoko R | self 3 2 1  > $tmp-w; mv $tmp-w R
}

R ()  # Ｒ面(Right)の９０度反時計回り
{
  self 3 F | tac           > $tmp-f
  self 3 U | cat           > $tmp-u
  self 1 B | tac           > $tmp-b
  self 1 D | cat           > $tmp-d
  delf 3 F | ycat - $tmp-u > $tmp-w; mv $tmp-w F 
  delf 3 U | ycat - $tmp-b > $tmp-w; mv $tmp-w U
  delf 1 B | ycat $tmp-d - > $tmp-w; mv $tmp-w B 
  delf 1 D | ycat $tmp-f - > $tmp-w; mv $tmp-w D 
  tateyoko R | tac         > $tmp-w; mv $tmp-w R
}

l ()  # Ｌ面(Left)の９０度時計回り
{
  self 1 F | tac           > $tmp-f
  self 1 U | cat           > $tmp-u
  self 3 B | tac           > $tmp-b
  self 3 D | cat           > $tmp-d
  delf 1 F | ycat $tmp-u - > $tmp-w; mv $tmp-w F 
  delf 1 U | ycat $tmp-b - > $tmp-w; mv $tmp-w U
  delf 3 B | ycat - $tmp-d > $tmp-w; mv $tmp-w B 
  delf 3 D | ycat - $tmp-f > $tmp-w; mv $tmp-w D 
  tateyoko L | self 3 2 1  > $tmp-w; mv $tmp-w L
}

L ()  # Ｌ面(Left)の９０度反時計回り
{
  self 1 F | cat           > $tmp-f
  self 1 U | tac           > $tmp-u
  self 3 B | cat           > $tmp-b
  self 3 D | tac           > $tmp-d
  delf 1 F | ycat $tmp-d - > $tmp-w; mv $tmp-w F 
  delf 1 U | ycat $tmp-f - > $tmp-w; mv $tmp-w U
  delf 3 B | ycat - $tmp-u > $tmp-w; mv $tmp-w B 
  delf 3 D | ycat - $tmp-b > $tmp-w; mv $tmp-w D 
  tateyoko L | tac         > $tmp-w; mv $tmp-w L
}

f ()  # Ｆ面(Front)の９０度時計回り
{
  tail -1 U | tarr              > $tmp-u
  self  1 R | yarr              > $tmp-r
  tail -1 D | tarr | tac        > $tmp-d
  self  3 L | yarr | self 3 2 1 > $tmp-l 
  ctail -1 U | cat - $tmp-l     > $tmp-w; mv $tmp-w U
  delf 1 R   | ycat $tmp-u -    > $tmp-w; mv $tmp-w R
  ctail -1 D | cat - $tmp-r     > $tmp-w; mv $tmp-w D
  delf 3 L   | ycat - $tmp-d    > $tmp-w; mv $tmp-w L
  tateyoko F | self 3 2 1       > $tmp-w; mv $tmp-w F
}

F ()  # Ｆ面(Front)の９０度反時計回り
{
  tail -1 U | tarr | tac        > $tmp-u
  self  1 R | yarr              > $tmp-r
  tail -1 D | tarr              > $tmp-d
  self  3 L | yarr | self 3 2 1 > $tmp-l
  ctail -1 U | cat - $tmp-r     > $tmp-w; mv $tmp-w U
  delf 1 R   | ycat $tmp-d -    > $tmp-w; mv $tmp-w R
  ctail -1 D | cat - $tmp-l     > $tmp-w; mv $tmp-w D
  delf 3 L   | ycat - $tmp-u    > $tmp-w; mv $tmp-w L
  tateyoko F | tac              > $tmp-w; mv $tmp-w F
}

b ()  # Ｂ面(Back)の９０度時計回り
{
  head -1 U | tarr | tac        > $tmp-u
  self 1 L  | yarr | self 3 2 1 > $tmp-l
  head -1 D | tarr              > $tmp-d
  self 3 R  | yarr              > $tmp-r
  tail -n +2 U | cat $tmp-r -   > $tmp-w; mv $tmp-w U
  delf 1 L     | ycat $tmp-u -  > $tmp-w; mv $tmp-w L
  tail -n +2 D | cat $tmp-l -   > $tmp-w; mv $tmp-w D
  delf 3 R     | ycat - $tmp-d  > $tmp-w; mv $tmp-w R
  tateyoko B | self 3 2 1       > $tmp-w; mv $tmp-w B
}

B ()  # Ｂ面(Back)の９０度反時計回り
{
  head -1 U | tarr              > $tmp-u
  self 1 L  | yarr | self 3 2 1 > $tmp-l
  head -1 D | tarr | tac        > $tmp-d
  self 3 R  | yarr              > $tmp-r
  tail -n +2 U | cat $tmp-l -   > $tmp-w; mv $tmp-w U
  delf 1 L     | ycat $tmp-d -  > $tmp-w; mv $tmp-w L
  tail -n +2 D | cat $tmp-r -   > $tmp-w; mv $tmp-w D
  delf 3 R     | ycat - $tmp-u  > $tmp-w; mv $tmp-w R
  tateyoko B | tac              > $tmp-w; mv $tmp-w B
}

u ()  # Ｕ面(under)の９０度時計回り
{
  head -1 R                   > $tmp-r
  head -1 F                   > $tmp-f
  head -1 L                   > $tmp-l
  head -1 B                   > $tmp-b
  tail -n +2 R | cat $tmp-b - > $tmp-w; mv $tmp-w R
  tail -n +2 F | cat $tmp-r - > $tmp-w; mv $tmp-w F
  tail -n +2 L | cat $tmp-f - > $tmp-w; mv $tmp-w L
  tail -n +2 B | cat $tmp-l - > $tmp-w; mv $tmp-w B
  tateyoko U | self 3 2 1     > $tmp-w; mv $tmp-w U
}

U ()  # Ｕ面(under)の９０度反時計回り
{
  head -1 R                   > $tmp-r
  head -1 F                   > $tmp-f
  head -1 L                   > $tmp-l
  head -1 B                   > $tmp-b
  tail -n +2 R | cat $tmp-f - > $tmp-w; mv $tmp-w R
  tail -n +2 F | cat $tmp-l - > $tmp-w; mv $tmp-w F
  tail -n +2 L | cat $tmp-b - > $tmp-w; mv $tmp-w L
  tail -n +2 B | cat $tmp-r - > $tmp-w; mv $tmp-w B
  tateyoko U | tac            > $tmp-w; mv $tmp-w U
}

d ()  # Ｄ面(down)の９０度時計回り
{
  tail -1 R                 > $tmp-r
  tail -1 F                 > $tmp-f
  tail -1 L                 > $tmp-l
  tail -1 B                 > $tmp-b
  ctail -1 R | cat - $tmp-f > $tmp-w; mv $tmp-w R
  ctail -1 F | cat - $tmp-l > $tmp-w; mv $tmp-w F
  ctail -1 L | cat - $tmp-b > $tmp-w; mv $tmp-w L
  ctail -1 B | cat - $tmp-r > $tmp-w; mv $tmp-w B
  tateyoko D | self 3 2 1 > $tmp-w; mv $tmp-w D
}

D ()  # Ｄ面(down)の９０度反時計回り
{
  tail -1 R                 > $tmp-r
  tail -1 F                 > $tmp-f
  tail -1 L                 > $tmp-l
  tail -1 B                 > $tmp-b
  ctail -1 R | cat - $tmp-b > $tmp-w; mv $tmp-w R
  ctail -1 F | cat - $tmp-r > $tmp-w; mv $tmp-w F
  ctail -1 L | cat - $tmp-f > $tmp-w; mv $tmp-w L
  ctail -1 B | cat - $tmp-l > $tmp-w; mv $tmp-w B
  tateyoko D | tac          > $tmp-w; mv $tmp-w D
} 

# ランダムに指定回数キューブを回転させる
rand ()
{
  func=(f F b B u U d D r R l L)
  for((i=0; i<$1; i++)); do proc=${func[$((${RANDOM}%12))]} echo $proc 1>&2   # 手続きを保存する
    eval $proc        # 関数の実行
  done
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

# RUBIK-CUBE エンジン

#

# Written by N.Tounaka(xxxxxxx@usp-lab.com)

# Date : 5 Jun.2012

# Arranged by USP MAGAZINE(xxx@usp-lab.com)

# Date : 6 Jun.2012

init () # 色が揃ったキューブをセットする

{

for surf in F U B D R L; do

yes "$surf" |

head -9 |

yarr -3 > $surf

done

}

r () # Ｒ面(Right)の９０度時計回り

{

self 3 F | cat > $tmp-f

self 3 U | tac > $tmp-u

self 1 B | cat > $tmp-b

self 1 D | tac > $tmp-d

delf 3 F | ycat - $tmp-d > $tmp-w; mv $tmp-w F

delf 3 U | ycat - $tmp-f > $tmp-w; mv $tmp-w U

delf 1 B | ycat $tmp-u - > $tmp-w; mv $tmp-w B

delf 1 D | ycat $tmp-b - > $tmp-w; mv $tmp-w D

tateyoko R | self 3 2 1 > $tmp-w; mv $tmp-w R

}

R () # Ｒ面(Right)の９０度反時計回り

{

self 3 F | tac > $tmp-f

self 3 U | cat > $tmp-u

self 1 B | tac > $tmp-b

self 1 D | cat > $tmp-d

delf 3 F | ycat - $tmp-u > $tmp-w; mv $tmp-w F

delf 3 U | ycat - $tmp-b > $tmp-w; mv $tmp-w U

delf 1 B | ycat $tmp-d - > $tmp-w; mv $tmp-w B

delf 1 D | ycat $tmp-f - > $tmp-w; mv $tmp-w D

tateyoko R | tac > $tmp-w; mv $tmp-w R

}

l () # Ｌ面(Left)の９０度時計回り

{

self 1 F | tac > $tmp-f

self 1 U | cat > $tmp-u

self 3 B | tac > $tmp-b

self 3 D | cat > $tmp-d

delf 1 F | ycat $tmp-u - > $tmp-w; mv $tmp-w F

delf 1 U | ycat $tmp-b - > $tmp-w; mv $tmp-w U

delf 3 B | ycat - $tmp-d > $tmp-w; mv $tmp-w B

delf 3 D | ycat - $tmp-f > $tmp-w; mv $tmp-w D

tateyoko L | self 3 2 1 > $tmp-w; mv $tmp-w L

}

L () # Ｌ面(Left)の９０度反時計回り

{

self 1 F | cat > $tmp-f

self 1 U | tac > $tmp-u

self 3 B | cat > $tmp-b

self 3 D | tac > $tmp-d

delf 1 F | ycat $tmp-d - > $tmp-w; mv $tmp-w F

delf 1 U | ycat $tmp-f - > $tmp-w; mv $tmp-w U

delf 3 B | ycat - $tmp-u > $tmp-w; mv $tmp-w B

delf 3 D | ycat - $tmp-b > $tmp-w; mv $tmp-w D

tateyoko L | tac > $tmp-w; mv $tmp-w L

}

f () # Ｆ面(Front)の９０度時計回り

{

tail -1 U | tarr > $tmp-u

self 1 R | yarr > $tmp-r

tail -1 D | tarr | tac > $tmp-d

self 3 L | yarr | self 3 2 1 > $tmp-l

ctail -1 U | cat - $tmp-l > $tmp-w; mv $tmp-w U

delf 1 R | ycat $tmp-u - > $tmp-w; mv $tmp-w R

ctail -1 D | cat - $tmp-r > $tmp-w; mv $tmp-w D

delf 3 L | ycat - $tmp-d > $tmp-w; mv $tmp-w L

tateyoko F | self 3 2 1 > $tmp-w; mv $tmp-w F

}

F () # Ｆ面(Front)の９０度反時計回り

{

tail -1 U | tarr | tac > $tmp-u

self 1 R | yarr > $tmp-r

tail -1 D | tarr > $tmp-d

self 3 L | yarr | self 3 2 1 > $tmp-l

ctail -1 U | cat - $tmp-r > $tmp-w; mv $tmp-w U

delf 1 R | ycat $tmp-d - > $tmp-w; mv $tmp-w R

ctail -1 D | cat - $tmp-l > $tmp-w; mv $tmp-w D

delf 3 L | ycat - $tmp-u > $tmp-w; mv $tmp-w L

tateyoko F | tac > $tmp-w; mv $tmp-w F

}

b () # Ｂ面(Back)の９０度時計回り

{

head -1 U | tarr | tac > $tmp-u

self 1 L | yarr | self 3 2 1 > $tmp-l

head -1 D | tarr > $tmp-d

self 3 R | yarr > $tmp-r

tail -n +2 U | cat $tmp-r - > $tmp-w; mv $tmp-w U

delf 1 L | ycat $tmp-u - > $tmp-w; mv $tmp-w L

tail -n +2 D | cat $tmp-l - > $tmp-w; mv $tmp-w D

delf 3 R | ycat - $tmp-d > $tmp-w; mv $tmp-w R

tateyoko B | self 3 2 1 > $tmp-w; mv $tmp-w B

}

B () # Ｂ面(Back)の９０度反時計回り

{

head -1 U | tarr > $tmp-u

self 1 L | yarr | self 3 2 1 > $tmp-l

head -1 D | tarr | tac > $tmp-d

self 3 R | yarr > $tmp-r

tail -n +2 U | cat $tmp-l - > $tmp-w; mv $tmp-w U

delf 1 L | ycat $tmp-d - > $tmp-w; mv $tmp-w L

tail -n +2 D | cat $tmp-r - > $tmp-w; mv $tmp-w D

delf 3 R | ycat - $tmp-u > $tmp-w; mv $tmp-w R

tateyoko B | tac > $tmp-w; mv $tmp-w B

}

u () # Ｕ面(under)の９０度時計回り

{

head -1 R > $tmp-r

head -1 F > $tmp-f

head -1 L > $tmp-l

head -1 B > $tmp-b

tail -n +2 R | cat $tmp-b - > $tmp-w; mv $tmp-w R

tail -n +2 F | cat $tmp-r - > $tmp-w; mv $tmp-w F

tail -n +2 L | cat $tmp-f - > $tmp-w; mv $tmp-w L

tail -n +2 B | cat $tmp-l - > $tmp-w; mv $tmp-w B

tateyoko U | self 3 2 1 > $tmp-w; mv $tmp-w U

}

U () # Ｕ面(under)の９０度反時計回り

{

head -1 R > $tmp-r

head -1 F > $tmp-f

head -1 L > $tmp-l

head -1 B > $tmp-b

tail -n +2 R | cat $tmp-f - > $tmp-w; mv $tmp-w R

tail -n +2 F | cat $tmp-l - > $tmp-w; mv $tmp-w F

tail -n +2 L | cat $tmp-b - > $tmp-w; mv $tmp-w L

tail -n +2 B | cat $tmp-r - > $tmp-w; mv $tmp-w B

tateyoko U | tac > $tmp-w; mv $tmp-w U

}

d () # Ｄ面(down)の９０度時計回り

{

tail -1 R > $tmp-r

tail -1 F > $tmp-f

tail -1 L > $tmp-l

tail -1 B > $tmp-b

ctail -1 R | cat - $tmp-f > $tmp-w; mv $tmp-w R

ctail -1 F | cat - $tmp-l > $tmp-w; mv $tmp-w F

ctail -1 L | cat - $tmp-b > $tmp-w; mv $tmp-w L

ctail -1 B | cat - $tmp-r > $tmp-w; mv $tmp-w B

tateyoko D | self 3 2 1 > $tmp-w; mv $tmp-w D

}

D () # Ｄ面(down)の９０度反時計回り

{

tail -1 R > $tmp-r

tail -1 F > $tmp-f

tail -1 L > $tmp-l

tail -1 B > $tmp-b

ctail -1 R | cat - $tmp-b > $tmp-w; mv $tmp-w R

ctail -1 F | cat - $tmp-r > $tmp-w; mv $tmp-w F

ctail -1 L | cat - $tmp-f > $tmp-w; mv $tmp-w L

ctail -1 B | cat - $tmp-l > $tmp-w; mv $tmp-w B

tateyoko D | tac > $tmp-w; mv $tmp-w D

}

# ランダムに指定回数キューブを回転させる

rand ()

{

func=(f F b B u U d D r R l L)

for((i=0; i<$1; i++)); do proc=${func[$((${RANDOM}%12))]} echo $proc 1>&2 # 手続きを保存する

eval $proc # 関数の実行

done

}

第18回　オンラインストレージを作る（Nextcloud）

投稿日：2017.12.29　｜　カテゴリー：　記事

ファイルの保存ややり取りに、GoogleドライブやDropbox、OneDriveなどの「オンラインストレージ」サービスを利用している人も多いでしょう。オンラインストレージは、インターネット上に配置されたファイル共有サーバーです。インターネットに接続できる環境があれば、いつでもどこでもその上に保存したファイルにアクセスできます。
今回は、このオンラインストレージをUbuntu Server上に構築します。オープンソースのオンラインストレージソフトとしては「Nextcloud」が有名です。ユーザーインタフェースの見た目もよく、パソコンやスマホ向けにファイル同期用の専用クライアントソフトが用意されています。
Nextcloudはプログラミング言語「PHP」で書かれています。動かすには、WebサーバーソフトのApache HTTP Server（以下、Apache）、データベース管理システムのMySQLまたはMariaDBが必要です（図1）。

図1　Nextcloudの動作環境

Open USP Tukubaiシンプルレシピ　Part1 テキスト編　（前半・帳簿を作る）

投稿日：2017.12.26　｜　カテゴリー：　記事

Tukubai、それはシェルスクリプトの使い易さを加速させるコマンド群。
前号では、そのオープン版“Open usp Tukubai”を紹介したが、やり残したことがあった。
豊富なレシピの紹介である。
そこで今号と次号の二回に渡り、Tukubaiの、特に実際のコーディングスタイルが分かり易いレシピを特集する。
「シェルスクリプトとは、僅かなコマンドの追加で、こんなにも応用の効く言語になるのか!」と、あなたはきっと驚くことだろう。

written by USPマガジン編集部

本記事は、USP MAGAZINE vol.5(2012年夏号)掲載記事のWEB再録記事(前半部分)です。

後半は2018年1月9日に公開予定です。

本記事掲載のUSP MAGAZINE vol.5は以下リンク先でご購入できます。

準備　Tukubaiを知り、そして始める。

Tukubai は、シェルスクリプトをプログラム開発言語として本気で使うべく作られたコマンド集だ。これを制作したUSP 研究所は実際に、Tukubai を用いて様々な業務システムの開発や開発支援を行っている。
2012 年2 月、このうち使用頻度が高いもの中心に選ばれ、オープンソースとして公開された。それがOpen usp Tukubai である。

シェルスクリプトで開発するのはなぜか

■ なぜシェルスクリプト？
意外に思うかもしれないが、シェルスクリプトは上手に使えば、C 言語並のハイパフォーマンスなプログラムを、C 言語より遥かにラクに作れる。
ヒミツは、Unix システムコールやライブラリーの殆ど素の能力を、Unix シェル自身やコマンド（cat, sed, awk, grep 等々……の馴染みのもの）から直接使える点にある。
Unix システムコールやライブラリーはカーネルに直結しており、コンピューターの本気の性能や堅牢性の恩恵に預かれるのだ。Unixシェルはいわばその上に被さる薄い皮。だから、使わない手はない。

■ なぜTukubai？
しかし、実際の業務アプリケーションやWeb アプリケーションを作ろうとすると、そこで頻出する処理を簡単にやってくれるコマンドがなかなか無い。一般的にシェルスクリプトが開発言語として利用されない理由もここにある。そこを補うべく作られたものがTukubai というわけだ。
本特集では、Tukubai を使うと、どんなことができて、それはどんなふうに書けるかということがわかるレシピを紹介しよう。

第17回　ブログサイトを作る（ユーザー追加と記事投稿）

投稿日：2017.12.22　｜　カテゴリー：　記事

今回は、WordPressで構築したブログサイトへのユーザー追加と記事投稿の方法を紹介します。ユーザーの種類（ロール、役割）は「購読者」「寄稿者」「投稿者」「編集者」「管理者」の5種類に分かれています（図1）。

図1　WordPressのユーザーロール

それぞれのユーザーは、自分専用の管理画面を持つことができ、それぞれの権限においてプロフィールの変更、記事の投稿、寄稿記事の査読や公開、システムの運用管理などが可能です。

第16回　ブログサイトを作る（メール配信）

投稿日：2017.12.15　｜　カテゴリー：　記事

前回は、オープンソースのブログソフト「WordPress」をインストールしてブログサイトを構築しました。このWordPressでは、メールを使って各種情報を通知します。そこで使い始める前に、Ubuntu ServerにSMTP（Simple Mail Transfer Protocol）サーバーをインストールして、米Google社のフリーメールサービス「Gmail」経由で通知メッセージを配信する環境を構築します（図1）。

図1　メール配信機能を追加する

第15回　ブログサイトを作る（WordPress）

投稿日：2017.12.8　｜　カテゴリー：　記事

今回は、今まで紹介したWebサーバーソフト「Apache HTTP Server」（以下、Apache）とデータベース管理システム（DBMS）「MariaDB」、フリーのブログソフト「WordPress」を組み合わせてブログサイトを構築します（図1）。

図1　WordPressでブログサイトを構築する

WordPressは人気が高い、フリーのブログソフトです。プログラミング言語の「PHP」で開発されています。サードパーティー製など、さまざまなプラグイン（アドオンソフト）が提供されていて、機能拡張が簡単にできます。実は、シェルスクリプトマガジンのサイトもWordPressを使っています。ここでは2017年11月21日に公開されたバージョン4.9ではなく旧版を利用していますが、バージョン4.9でも手順は同じです。

第14回　データベースを作る（権限）

投稿日：2017.12.1　｜　カテゴリー：　記事

前回は、データベース管理システム（DBMS）「MariaDB」のデータ操作方法を紹介しました。今回はユーザーを登録し、そのユーザーに対してデータベースやテーブルの各種操作権限を設定します。
MariaDBの初期状態では、管理者となる「root」しか登録されていません。このrootユーザーならMariaDBのすべての操作が可能ですが、rootだけでMariaDBを運用するのはセキュリティ上問題です。
MariaDBには、Ubuntu ServerなどのOSに関係ない専用のユーザーを複数登録できます。このユーザーごとに、データベースやテーブルへの各種操作に対する許可や禁止を設定できます（図1）。

図1　データベースやテーブルに対してユーザーごとに各種操作権限を設定できる

Vol.51

投稿日：2017.11.25　｜　カテゴリー：　バックナンバー

超小型パソコンや電子工作など、さまざまな用途に活用できるシングルボートのコンピュータ「Raspberry Pi」(ラズベリーパイ)。特集では、簡単な電子回路の作り方、ラズパイから電子回路をシェルスクリプトで制御する方法を初心者にも分かりやすく紹介しています。
ITトークイベント「TechLION」では、セキュリティエンジニアの雄、辻伸弘さん・根岸征史さん、そしてめったに人前に出ないpiyokangoさんが、セキュリティ業界のトレンドと情報発信について語ります。
マイコン「Arduino」で鉄道模型を動かしてみたり、連載「機械学習のココロ」ではベイズモデリングを紹介したりなど、盛りだくさんの内容になっています。

今月も読み応え十分のシェルスクリプトマガジン Vol.51。お見逃しなく!

※読者アンケートはこちら

シェルスクリプトマガジンvol.51 Web掲載記事まとめ

投稿日：2017.11.24　｜　カテゴリー：　記事

シェルスクリプトマガジンvol.51のWeb掲載部分まとめです。
アンケートページはこちら！
06 特集シェルスクリプトではじめるRaspberry Pi電子工作入門/麻生二郎　　コード掲載
20 法林浩之のFIGHTING TALKS/法林浩之
22 TechLION再録「セキュリティエンジニアっておいしいの?」/ゲスト:辻伸弘、根岸征史、piyokango MC:法林浩之、馮富久
27 姐のBENTO
28 コボラーによるコボラーのためのユニケージ入門 COBOLからの移行/野村祐三
34 中小企業診断士が解説する、超実践的な会話術! 円滑コミュニケーションが世界を救う! /濱口誠一
36 香川大学SLPからお届け! マイコンボードArduinoで鉄道模型を動かしてみる/太田圭祐　コード掲載
40 人間とコンピュータの可能性/大岩元
42 アジャイル開発 Let’ Practice! スプリントビュー/熊野憲辰
46 中小企業手作りIT化奮戦記 TCP/IP通信の仕組み・ルーティング/菅雄一
54 バーティカルバーの極意ハノイの塔をシェルスクリプトで解く/飯尾淳　コード掲載
58 ライブラリ/桑原滝弥・イケヤシロウ
60 機械学習のココロベイズモデリング入門/石井一夫
65 スズラボ通信 Raspberry Pi 3で湿温度計サーバを作ってみた/すずきひろのぶ　コード掲載
70 ITエンジニアのためのマーケティング入門デジタルマーケティングその3/水間丈博
74 それプロのエバンジェリストから愛をこめて/山本美穂
77 漢のUNIX テストフレームワークkyua その3/後藤大地　　コード掲載
86 ユニケージ開発手法コードレビュー/鮎瀬伊矩磨　　コード掲載
92 40歳から始める、オレとRubyプログラミング/しょっさん　　コード掲載
100 Techパズル/gori.sh
102 IT業界の悪しき慣習/シェル魔人

シェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

第13回　データベースを作る（データの操作）

投稿日：2017.11.24　｜　カテゴリー：　記事

前回は、データベース管理システム（DBMS）「MariaDB」内にデータベースとテーブルを作成しました。今回は問い合わせ言語「SQL」を使って、テーブル内にデータを挿入し、検索、削除、更新をするデータ操作方法を紹介します（図1）。前回作成した「personal」データベースと「roster」テーブルを引き続き利用します。

図1　データベースの操作

スズラボ通信　３６　湿温計サーバを作ってみた（２）（本誌vol.51掲載）

投稿日：2017.11.22　｜　カテゴリー：　コード

著者：すずきひろのぶ

前回は、温湿センサーモジュールAM2320 をRaspberryPi 3 ( 以下 RPi3）に接続しI2C ( アイ・スクエアード・シー）からデータを取得しデータベースに登録していくまでのプログラムを作成しました。今回は、データベースをアクセスし表示するWeb アプリケーションを作成します。

記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

-- HUTEMP table creation.
-- For Shell Script Mag. 
-- (C) 2017 Hironobu SUZUKI / GPLv3 or later.
--
CREATE TABLE HUMTEMP (
    ID INTEGER PRIMARY KEY AUTOINCREMENT,
    DTIME DATETIME,
    HUM  INTEGER,
    TEMP INTEGER
);

1

2

3

4

5

6

7

8

9

10

-- HUTEMP table creation.

-- For Shell Script Mag.

--

CREATE TABLE HUMTEMP (

ID INTEGER PRIMARY KEY AUTOINCREMENT,

DTIME DATETIME,

HUM INTEGER,

TEMP INTEGER

);

#
# Webrick Test
# For Shell Script Mag.
# (C) 2017 Hironobu SUZUKI / GPLv3 or Later
#
require 'webrick'
servlet = WEBrick::HTTPServer.new({ :DocumentRoot => './',
                                :Port => 8080})
servlet.mount('/hello', WEBrick::HTTPServlet::CGIHandler, 'hello.rb')
servlet.mount('/', WEBrick::HTTPServlet::FileHandler, 'index.html')
trap("INT"){ servlet.shutdown }
servlet.start

1

2

3

4

5

6

7

8

9

10

11

12

#

# Webrick Test

# For Shell Script Mag.

#

require 'webrick'

servlet = WEBrick::HTTPServer.new({ :DocumentRoot => './',

:Port => 8080})

servlet.mount('/hello', WEBrick::HTTPServlet::CGIHandler, 'hello.rb')

servlet.mount('/', WEBrick::HTTPServlet::FileHandler, 'index.html')

trap("INT"){ servlet.shutdown }

servlet.start

Hello World

1

#!/usr/bin/ruby
require 'cgi'
cgi = CGI.new
cgi.out(type: 'text/html',
        charset: 'UTF-8') do
  "

1

2

3

4

5

6

#!/usr/bin/ruby

require 'cgi'

cgi = CGI.new

cgi.out(type: 'text/html',

charset: 'UTF-8') do

"

hello again

  "
end

1

2

"

end

#!/usr/bin/ruby
require 'sqlite3'
require 'cgi'
cgi = CGI.new
print cgi.header({"charset" => "UTF-8", "status" => "OK"})
print "\r\n"
print "\r\n"
maxid=0
numberofentry=10
db = SQLite3::Database.new 'humtemp.db'
db.execute('select MAX(ID) from HUMTEMP') do |row|
  maxid=row[0].to_i
end
targetid=maxid - numberofentry
db.execute('select * from HUMTEMP where id > ' + targetid.to_s) do |row|
  hum = row[2].to_i 
  temp = row[3].to_i 
  print  "

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

#!/usr/bin/ruby

require 'sqlite3'

require 'cgi'

cgi = CGI.new

print cgi.header({"charset" => "UTF-8", "status" => "OK"})

print "\r\n"

maxid=0

numberofentry=10

db = SQLite3::Database.new 'humtemp.db'

db.execute('select MAX(ID) from HUMTEMP') do |row|

maxid=row[0].to_i

end

targetid=maxid - numberofentry

db.execute('select * from HUMTEMP where id > ' + targetid.to_s) do |row|

hum = row[2].to_i

temp = row[3].to_i

print "

“,row[1],” “, temp/10.0, ” “,hum/10.0,”

\r\n”
end
db.close
print “\n

\r\n"

1

\r\n"

#
# webrick -- webrick deamon
# (C) 2017 Hironobu SUZUKI / GPLv3 or Later.
#
require 'webrick'
server = WEBrick::HTTPServer.new({ DocumentRoot: './',
   Port: 8080, })
server.mount('/', WEBrick::HTTPServlet::CGIHandler, './temphum.rb')
trap("INT"){server.shutdown}
server.start

1

2

3

4

5

6

7

8

9

10

#

# webrick -- webrick deamon

#

require 'webrick'

server = WEBrick::HTTPServer.new({ DocumentRoot: './',

Port: 8080, })

server.mount('/', WEBrick::HTTPServlet::CGIHandler, './temphum.rb')

trap("INT"){server.shutdown}

server.start

以下はvol.50掲載コードのおさらいです。

#
# am2320.rb -- read data from AM2320 and save information into sqlite3 db.
# (C) 2017 Hironobu SUZUKI / GPLv3 or Later.
#
require 'rubygems'
require 'i2c'
require 'date'
require 'digest/crc16_modbus'
require 'sqlite3'
device = I2C.create("/dev/i2c-1")
address = 0x5c
loop do
  sleep(0.05)
  s=nil
  begin
    s = device.read(address, 8, "\x03\x00\x04")
  rescue
    next
  end
  func_code, ret_len, hum_h, hum_l, temp_h, temp_l, crc_l, crc_h = s.bytes.to_a
  crc16a=Digest::CRC16Modbus.checksum(s[0,6])
  crc16b=(crc_h * 256) + crc_l
  if crc16a != crc16b
    puts "CRC error"
    next
  end
  db = SQLite3::Database.new("humtemp.db")
  hum_orig = (hum_h *256 + hum_l)
  temp_orig = (temp_h *256 + temp_l)
  puts Time.now
  puts hum_orig/10.0
  puts temp_orig/10.0
  db.transaction do
    sql = "INSERT INTO humtemp(DTIME,HUM,TEMP)  VALUES(datetime('now'), ?, ?)"
    db.execute(sql, hum_orig, temp_orig)
  end
  db.close
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

#

# am2320.rb -- read data from AM2320 and save information into sqlite3 db.

#

require 'rubygems'

require 'i2c'

require 'date'

require 'digest/crc16_modbus'

require 'sqlite3'

device = I2C.create("/dev/i2c-1")

address = 0x5c

loop do

sleep(0.05)

s=nil

begin

s = device.read(address, 8, "\x03\x00\x04")

rescue

func_code, ret_len, hum_h, hum_l, temp_h, temp_l, crc_l, crc_h = s.bytes.to_a

crc16a=Digest::CRC16Modbus.checksum(s[0,6])

crc16b=(crc_h * 256) + crc_l

if crc16a != crc16b

puts "CRC error"

db = SQLite3::Database.new("humtemp.db")

hum_orig = (hum_h *256 + hum_l)

temp_orig = (temp_h *256 + temp_l)

puts Time.now

puts hum_orig/10.0

puts temp_orig/10.0

db.transaction do

sql = "INSERT INTO humtemp(DTIME,HUM,TEMP) VALUES(datetime('now'), ?, ?)"

db.execute(sql, hum_orig, temp_orig)

end

db.close

end

以下は本誌に公開されていないお楽しみコードです。どうぞご利用ください。

  <script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script><script type="text/javascript">
      google.charts.load('current', {'packages':['corechart']});
      google.charts.setOnLoadCallback(drawChart);

      function drawChart() {
        var data = google.visualization.arrayToDataTable([
          ['Date', 'Temp', 'Hum'],
          ['2004',  1000,      400],
          ['2005',  1170,      460],
          ['2006',  660,       1120],
          ['2007',  1030,      540]
        ]);

        var options = {
          title: 'Company Performance',
          curveType: 'function',
          legend: { position: 'bottom' }
        };

        var chart = new google.visualization.LineChart(document.getElementById('curve_chart'));

        chart.draw(data, options);
      }
    </script>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

google.charts.load('current', {'packages':['corechart']});

google.charts.setOnLoadCallback(drawChart);

function drawChart() {

var data = google.visualization.arrayToDataTable([

['Date', 'Temp', 'Hum'],

['2004', 1000, 400],

['2005', 1170, 460],

['2006', 660, 1120],

['2007', 1030, 540]

]);

var options = {

title: 'Company Performance',

curveType: 'function',

legend: { position: 'bottom' }

};

var chart = new google.visualization.LineChart(document.getElementById('curve_chart'));

chart.draw(data, options);

}

</script>

1

#!/usr/bin/ruby
#
# temphum-googlechart : temphum with Google Chart 
# For Shell Script Mag.
# (C) 2017 Hironobu SUZUKI / GPLv3 or Later.
#
require 'sqlite3'
require 'cgi'



cgi = CGI.new
print cgi.header({"charset" => "UTF-8", "status" => "OK"})
str=<<"EOT"

    <script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script><script type="text/javascript">
      google.charts.load('current', {'packages':['corechart']});
      google.charts.setOnLoadCallback(drawChart);
      function drawChart() {
        var data = google.visualization.arrayToDataTable([
          ['Samples', 'Temperature', 'Humidity', 'Discomfort'],
EOT
print str
######
maxid=0
db = SQLite3::Database.new 'humtemp.db'
db.execute('select MAX(ID) from HUMTEMP') do |row|
  maxid=row[0].to_i
end
targetid=maxid-30
indexnum=1
db.execute('select * from HUMTEMP where id > ' + targetid.to_s) do |row|
  if indexnum != 1 
     print ",\n"
  end

  hum = (row[2].to_i)/10.0 
  temp = (row[3].to_i)/10.0 
  disco = 0.81*temp + 0.01*hum*(0.99*temp -14.3) + 46.3
#  print  "</p>
<p>
</p>
<P>",row[1]," ", temp/10.0, " ",hum/10.0,"</P>
<p>
</p>
<p>\r\n"  
#          ['2004',  1000,      400],
   printf "[%d,%f,%f,%f]", indexnum, temp, hum, disco
  indexnum +=1
end
db.close


######


str=<<"EOF"
        ]);
var options = {
          title: 'Temperature, Humidity, and Discomfort Index',
          curveType: 'function',
          legend: { position: 'bottom' }
        };

        var chart = new google.visualization.LineChart(document.getElementById('curve_chart'));

        chart.draw(data, options);
      }
    </script>
EOF
print str

######
str=<<'EOT'

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

#!/usr/bin/ruby

#

# temphum-googlechart : temphum with Google Chart

# For Shell Script Mag.

#

require 'sqlite3'

require 'cgi'

cgi = CGI.new

print cgi.header({"charset" => "UTF-8", "status" => "OK"})

str=<<"EOT"

google.charts.load('current', {'packages':['corechart']});

google.charts.setOnLoadCallback(drawChart);

function drawChart() {

var data = google.visualization.arrayToDataTable([

['Samples', 'Temperature', 'Humidity', 'Discomfort'],

EOT

print str

######

maxid=0

db = SQLite3::Database.new 'humtemp.db'

db.execute('select MAX(ID) from HUMTEMP') do |row|

maxid=row[0].to_i

end

targetid=maxid-30

indexnum=1

db.execute('select * from HUMTEMP where id > ' + targetid.to_s) do |row|

if indexnum != 1

print ",\n"

end

hum = (row[2].to_i)/10.0

temp = (row[3].to_i)/10.0

disco = 0.81*temp + 0.01*hum*(0.99*temp -14.3) + 46.3

# print "</p>

<p>

</p>

<p>

</p>

<p>\r\n"

# ['2004', 1000, 400],

printf "[%d,%f,%f,%f]", indexnum, temp, hum, disco

indexnum +=1

end

db.close

######

str=<<"EOF"

]);

var options = {

title: 'Temperature, Humidity, and Discomfort Index',

curveType: 'function',

legend: { position: 'bottom' }

};

var chart = new google.visualization.LineChart(document.getElementById('curve_chart'));

chart.draw(data, options);

}

</script>

EOF

print str

######

str=<<'EOT'

EOT
print str

1 2	EOT print str

ユニケージ開発手法　コードレビュー　vol.40（本誌vol.51掲載）

投稿日：2017.11.22　｜　カテゴリー：　コード

著者：鮎瀬伊矩磨

今回はユニケージ開発において、ウェブブラウザ上で住所などを選択する際に用いるドリルダウン機能のスクリプトを紹介します。

記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
	"http://www.w3.org/TR/html4/loose.dtd">
<html>
	<head>
		<meta http-equiv="Content-type" content="text/html; charset=UTF-8" />
		<meta http-equiv="Content-Style-type" content="text/css" />
		<meta http-equiv="Content-Script-type" content="text/javascript" />
		<title>ドリルダウン</title>
                <style type="text/css">
                        * {padding:0; margin:0}
                        button {width:70px}
                        .color_box {background-color:darkred; color:white}
                        td.data { border-bottom:1px solid black;border-right:1px solid black;
                                text-align:right;padding:1px }
                </style>
		<script type="text/javascript">
			function shiList(){
				var httpReq = new XMLHttpRequest();
				httpReq.open("POST","./DRILLDOWN_SHI.AJAX",false);
				httpReq.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
				httpReq.send( "KEN=" + document.getElementById("KEN").value );
				document.getElementById("SHI_SPAN").innerHTML = httpReq.responseText;

				sonotaList();
			}

			function sonotaList(){
 				var httpReq = new XMLHttpRequest();
				httpReq.open("POST","./DRILLDOWN_IKA.AJAX",false);
				httpReq.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
				httpReq.send( "KEN=" + document.getElementById("KEN").value + "&SHI=" + document.getElementById("SHI").value );
				document.getElementById("IKA_SPAN").innerHTML = httpReq.responseText;
			}
		</script>
	</head>
	<body style="width:1000px; height:600px">
		<div style="padding:1px; text-align:right; font-size:12px">
			<span style="cursor:pointer">メニューへ</span>
				&nbsp;
			<span style="cursor:pointer">閉じる</span>
		</div>
		<div class="color_box" style="height:40px; width:1000px">
			<div style="padding:10px; text-align:center">
				<span style="font-size:20px">
					USP
				</span>
			</div>
		</div>

		<div style="width:1000px; padding-top:30px; padding-left:5px">
			<form name="FORM"id="FORM" >
				都道府県：
				<select name="KEN" id="KEN" onchange="shiList();">
					<option value="_">_</option>
<!-- ###SEL_KEN### -->
					<option value="%1">%2</option>
<!-- ###SEL_KEN### -->
				</select>
				</br>
				</br>
				市区町村：
				<span id="SHI_SPAN">
<!-- ###SHI_HANI### -->
				<select name="SHI" id="SHI" onchange="sonotaList();">
<!-- ###SEL_SHI### -->
				<option value="%1">%2</option>
<!-- ###SEL_SHI### -->
				</select>
<!-- ###SHI_HANI### -->
				</span>
				</br>
				</br>
				以下住所：
				<span id="IKA_SPAN">
<!-- ###IKA_HANI### -->
				<select name="IKA" id="IKA">
<!-- ###SEL_IKA### -->
				<option value="%1">%2</option>
<!-- ###SEL_IKA### -->
				</select>
<!-- ###IKA_HANI### -->
				</span>
			</form>
		</div>
	</body>
</html>

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>ドリルダウン</title>

* {padding:0; margin:0}

button {width:70px}

.color_box {background-color:darkred; color:white}

td.data { border-bottom:1px solid black;border-right:1px solid black;

text-align:right;padding:1px }

</style>

function shiList(){

var httpReq = new XMLHttpRequest();

httpReq.open("POST","./DRILLDOWN_SHI.AJAX",false);

httpReq.setRequestHeader("Content-Type","application/x-www-form-urlencoded");

httpReq.send( "KEN=" + document.getElementById("KEN").value );

document.getElementById("SHI_SPAN").innerHTML = httpReq.responseText;

sonotaList();

}

function sonotaList(){

var httpReq = new XMLHttpRequest();

httpReq.open("POST","./DRILLDOWN_IKA.AJAX",false);

httpReq.setRequestHeader("Content-Type","application/x-www-form-urlencoded");

httpReq.send( "KEN=" + document.getElementById("KEN").value + "&SHI=" + document.getElementById("SHI").value );

document.getElementById("IKA_SPAN").innerHTML = httpReq.responseText;

}

</script>

</head>

<span style="cursor:pointer">メニューへ</span>

</div>

USP

</span>

</div>

都道府県：

</select>

</br>

市区町村：

</select>

</span>

</br>

以下住所：

</select>

</span>

</form>

</div>

</body>

</html>

#!/bin/bash -xv
#
# DRILLDOWN.CGI : 画面の表示と都道府県のセレクトボックスの生成
#
# Written by hoge (hoge@usp-lab.com) Dec. 27, 2011 

exec 2> /tmp/log.$(basename $0)

##################################################
# 変数の定義
LANG=ja_JP.UTF-8
PATH=/home/UTL:/home/TOOL:$PATH

tmp=/tmp/tmp-$$

##################################################
# エラーハンドラ
ERROR_CHECK(){
        [ $(plus ${PIPESTATUS[@]}) -eq 0 ] && return

        exit 1
}

##################################################
# データ取得
cat JUUSHO  |
#  1:都道府県コード 2:市区町村コード 3:以下住所コード 4:都道府県 5:市区町村 6:以下住所
lineup 1 4  |
#  1:都道府県コード 2:都道府県
cat         > $tmp-todoufuken
ERROR_CHECK

##################################################
# HTML 作成
cat DRILLDOWN.HTML                    |
mojihame -lSEL_KEN - $tmp-todoufuken  |
mojihame -lSEL_SHI - /dev/null        |
mojihame -lSEL_IKA - /dev/null     > $tmp-html
ERROR_CHECK

##################################################
# 出力
echo "Content-type: text/html"
echo ""
cat $tmp-html

##################################################
# 終了処理
rm -f $tmp-*
exit 0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

#!/bin/bash -xv

#

# DRILLDOWN.CGI : 画面の表示と都道府県のセレクトボックスの生成

#

# Written by hoge (hoge@usp-lab.com) Dec. 27, 2011

exec 2> /tmp/log.$(basename $0)

##################################################

# 変数の定義

LANG=ja_JP.UTF-8

PATH=/home/UTL:/home/TOOL:$PATH

tmp=/tmp/tmp-$$

##################################################

# エラーハンドラ

ERROR_CHECK(){

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] && return

exit 1

}

##################################################

# データ取得

cat JUUSHO |

# 1:都道府県コード 2:市区町村コード 3:以下住所コード 4:都道府県 5:市区町村 6:以下住所

lineup 1 4 |

# 1:都道府県コード 2:都道府県

cat > $tmp-todoufuken

ERROR_CHECK

##################################################

# HTML 作成

cat DRILLDOWN.HTML |

mojihame -lSEL_KEN - $tmp-todoufuken |

mojihame -lSEL_SHI - /dev/null |

mojihame -lSEL_IKA - /dev/null > $tmp-html

ERROR_CHECK

##################################################

# 出力

echo "Content-type: text/html"

echo ""

cat $tmp-html

##################################################

# 終了処理

rm -f $tmp-*

exit 0

#!/bin/bash -xv
#
# DRILLDOWN_SHI.AJAX : 市区町村のセレクトボックスの生成 
#
# Written by hoge (hoge@usp-lab.com) Dec. 27, 2011

exec 2> /tmp/log.$(basename $0)

##################################################
# 変数の定義
LANG=ja_JP.UTF-8
PATH=/home/UTL:/home/TOOL:$PATH

tmp=/tmp/tmp-$$

##################################################
# エラーハンドラ
ERROR_CHECK(){
        [ $(plus ${PIPESTATUS[@]}) -eq 0 ] && return

        exit 1
}

##################################################
# POST データの受け取り
if [ ! -z "$CONTENT_LENGTH" ]; then
        dd bs=$CONTENT_LENGTH   |
        cgi-name -n_ -s_        > $tmp-name
	ERROR_CHECK
else
        touch $tmp-name
fi

##################################################
# データ取得
kencd=$(nameread KEN $tmp-name)

#  1:都道府県コード 2:市区町村コード 3:以下住所コード 4:都道府県 5:市区町村 6:以下住所
selr 1 "$kencd" JUUSHO  |
lineup 2 5              |
#  1:市区町村コード 2:市区町村
cat                     > $tmp-data
ERROR_CHECK

##################################################
# HTML 作成
cat DRILLDOWN.HTML                                            |
sed -n '/<!-- ###SHI_HANI### -->/,/<!-- ###SHI_HANI### -->/p' |
mojihame -lSEL_SHI - $tmp-data                                > $tmp-html
ERROR_CHECK

##################################################
# 出力
echo "Content-type: text/html"
echo ""
cat $tmp-html

##################################################
# 終了処理
rm -f $tmp-*
exit 0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

#!/bin/bash -xv

#

# DRILLDOWN_SHI.AJAX : 市区町村のセレクトボックスの生成

#

# Written by hoge (hoge@usp-lab.com) Dec. 27, 2011

exec 2> /tmp/log.$(basename $0)

##################################################

# 変数の定義

LANG=ja_JP.UTF-8

PATH=/home/UTL:/home/TOOL:$PATH

tmp=/tmp/tmp-$$

##################################################

# エラーハンドラ

ERROR_CHECK(){

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] && return

exit 1

}

##################################################

# POST データの受け取り

if [ ! -z "$CONTENT_LENGTH" ]; then

dd bs=$CONTENT_LENGTH |

cgi-name -n_ -s_ > $tmp-name

ERROR_CHECK

else

touch $tmp-name

fi

##################################################

# データ取得

kencd=$(nameread KEN $tmp-name)

# 1:都道府県コード 2:市区町村コード 3:以下住所コード 4:都道府県 5:市区町村 6:以下住所

selr 1 "$kencd" JUUSHO |

lineup 2 5 |

# 1:市区町村コード 2:市区町村

cat > $tmp-data

ERROR_CHECK

##################################################

# HTML 作成

cat DRILLDOWN.HTML |

sed -n '//,//p' |

mojihame -lSEL_SHI - $tmp-data > $tmp-html

ERROR_CHECK

##################################################

# 出力

echo "Content-type: text/html"

echo ""

cat $tmp-html

##################################################

# 終了処理

rm -f $tmp-*

exit 0

#!/bin/bash -xv
#
# DRILLDOWN_SHI.AJAX : 以下住所のセレクトボックスの生成 
#
# Written by hoge (hoge@usp-lab.com) Dec. 27, 2011

exec 2> /tmp/log.$(basename $0)

##################################################
# 変数の定義
LANG=ja_JP.UTF-8
PATH=/home/UTL:/home/TOOL:$PATH

tmp=/tmp/tmp-$$

##################################################
# エラーハンドラ
ERROR_CHECK(){
        [ $(plus ${PIPESTATUS[@]}) -eq 0 ] && return

        exit 1
}

##################################################
# POST データの受け取り
if [ ! -z "$CONTENT_LENGTH" ]; then
        dd bs=$CONTENT_LENGTH   |
        cgi-name -n_ -s_        > $tmp-name
else
        touch $tmp-name
fi

##################################################
# データ取得
kencd=$(nameread KEN $tmp-name)
shicd=$(nameread SHI $tmp-name)

#  1:都道府県コード 2:市区町村コード 3:以下住所コード 4:都道府県 5:市区町村 6:以下住所
selr 1 $kencd JUUSHO  |
selr 2 $shicd         |
lineup 3 6            |
#  1:以下住所コード 2:以下住所
cat                   > $tmp-data
ERROR_CHECK

##################################################
# HTML 作成
cat DRILLDOWN.HTML                                                  |
sed -n '/<!-- ###IKA_HANI### -->/,/<!-- ###IKA_HANI### -->/p' |
mojihame -lSEL_IKA - $tmp-data                                   > $tmp-html
ERROR_CHECK

##################################################
# 出力
echo "Content-type: text/html"
echo ""
cat $tmp-html

##################################################
# 終了処理
rm -f $tmp-*
exit 0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

#!/bin/bash -xv

#

# DRILLDOWN_SHI.AJAX : 以下住所のセレクトボックスの生成

#

# Written by hoge (hoge@usp-lab.com) Dec. 27, 2011

exec 2> /tmp/log.$(basename $0)

##################################################

# 変数の定義

LANG=ja_JP.UTF-8

PATH=/home/UTL:/home/TOOL:$PATH

tmp=/tmp/tmp-$$

##################################################

# エラーハンドラ

ERROR_CHECK(){

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] && return

exit 1

}

##################################################

# POST データの受け取り

if [ ! -z "$CONTENT_LENGTH" ]; then

dd bs=$CONTENT_LENGTH |

cgi-name -n_ -s_ > $tmp-name

else

touch $tmp-name

fi

##################################################

# データ取得

kencd=$(nameread KEN $tmp-name)

shicd=$(nameread SHI $tmp-name)

# 1:都道府県コード 2:市区町村コード 3:以下住所コード 4:都道府県 5:市区町村 6:以下住所

selr 1 $kencd JUUSHO |

selr 2 $shicd |

lineup 3 6 |

# 1:以下住所コード 2:以下住所

cat > $tmp-data

ERROR_CHECK

##################################################

# HTML 作成

cat DRILLDOWN.HTML |

sed -n '//,//p' |

mojihame -lSEL_IKA - $tmp-data > $tmp-html

ERROR_CHECK

##################################################

# 出力

echo "Content-type: text/html"

echo ""

cat $tmp-html

##################################################

# 終了処理

rm -f $tmp-*

exit 0

香川大学SLPからお届け！（vol.51掲載）

投稿日：2017.11.22　｜　カテゴリー：　コード

著者：太田圭祐

イタリアで生まれたマイコンボードArduinoで鉄道模型を動かしてみる

こんにちは。香川大学工学部学部3 年生の太田です。高校時代にArduino と出会い、L チカやモータの制御などをして遊んできました。今回、記事を書くにあたり、改めてArduinoと向き合ってみました。
Arduino では、ハードウェアの上で動作するソフトウェアの開発用にC/C++ 言語ベースのシンプルなArduino 言語を採用しています。そのためC 言語を使っている人にとって、とても馴染みやすい文法を持っています。更に、開発環境が無料で提供されていることから、ハードウェアプログラミングの学習を始めやすいこともArduino の特徴です。
今回はこのArduino を用いて、鉄道模型を実物同様に加減速制御するコントローラを作っていきましょう。

記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

void setup() {
  Serial.begin(9600); // シリアル通信の確立
}
void loop() {
  int val;
  val = analogRead(0); // Analog in 0 からAD 変換で抵抗値を読む
  Serial.println(val); // 抵抗値の出力
  delay(500); // 0.5 秒待つ
}

1

2

3

4

5

6

7

8

9

void setup() {

Serial.begin(9600); // シリアル通信の確立

}

void loop() {

int val;

val = analogRead(0); // Analog in 0 からAD 変換で抵抗値を読む

Serial.println(val); // 抵抗値の出力

delay(500); // 0.5 秒待つ

}

void setup() {
  pinMode(3, OUTPUT);
  pinMode(4, OUTPUT);
}
int speed = 0; // 速度格納
int position(int val);

void loop() {
  int cnt = 0; // カウント変数
  int pos = 0; // マスコン位置
  while(1) {
    int val = analogRead(0);
    int s = position(val);
    if ( s != pos ) {
      pos = s;
      cnt = 0;
    } else {
      cnt++;
    }
    if ( cnt == 10 ) {
      break;
    }
    delay(5);
  }
  speed += pos;                     // 速度を更新
  speed = constrain(speed, 0, 200); // 値の整合
  analogWrite(3, speed);            // PWM の出力
  digitalWrite(4, LOW);
  delay(300);                       // 0.3 秒待つ
}

int position(int val) {
  switch (val) {
    case 0 ... 69:
      return 3;
    case 70 ... 199:
      return 2;
    case 200 ... 409:
      return 1;
    case 410 ... 499:
      return 0;
    case 500 ... 629:
      return -2;
    case 630 ... 799:
      return -4;
    case 800 ... 919:
      return -6;
    default:
      return -20;
  }
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

void setup() {

pinMode(3, OUTPUT);

pinMode(4, OUTPUT);

}

int speed = 0; // 速度格納

int position(int val);

void loop() {

int cnt = 0; // カウント変数

int pos = 0; // マスコン位置

while(1) {

int val = analogRead(0);

int s = position(val);

if ( s != pos ) {

pos = s;

cnt = 0;

} else {

cnt++;

}

if ( cnt == 10 ) {

break;

}

delay(5);

}

speed += pos; // 速度を更新

speed = constrain(speed, 0, 200); // 値の整合

analogWrite(3, speed); // PWM の出力

digitalWrite(4, LOW);

delay(300); // 0.3 秒待つ

}

int position(int val) {

switch (val) {

case 0 ... 69:

return 3;

case 70 ... 199:

return 2;

case 200 ... 409:

return 1;

case 410 ... 499:

return 0;

case 500 ... 629:

return -2;

case 630 ... 799:

return -4;

case 800 ... 919:

return -6;

default:

return -20;

}

第12回　データベースを作る（テーブル作成）

投稿日：2017.11.17　｜　カテゴリー：　記事

前回、Ubuntu Serverにデータベース管理システム（DBMS）「MariaDB」をインストールしました。今回は問い合わせ言語「SQL」などを使って、MariaDB内にデータベースやテーブルを作成する方法を紹介します。

データベースとテーブル

最初に「データベース」という器を用意します。その中に表形式でデータを格納する「テーブル」を作成します（図1）。これで、MariaDB内にデータを管理できる環境が整います。

図1　データベースとテーブル

データベースは目的やシステムごとに用意します。一つのMariaDB内に複数のデータベースを作成できます。テーブルは、Microsoft Excelで作った表のように管理するデータ単位で用意します。データベース内には複数のテーブルを配置できて、それらを関連付けることができます。
それでは、データベースとテーブルを作りましょう。例として、一つのテーブルで氏名、フリナガ、年齢のデータを管理する個人情報データベースを構築します。

40歳から始める、オレとRubyプログラミング（vol.51掲載）

投稿日：2017.11.13　｜　カテゴリー：　コード

著者：しょっさん

　急に寒くなりましたね。雨も降り続いていて、寒い寒いと思っていたら、台風まで来ました。まったく外へ出られるような天候ではありません。こうなったら仕方ありません。家に引きこもってプログラミングはいかがですか。それでは、今月もがんばっていきましょう。

記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

@startuml

actor Reins_Agent as user
boundary Clients as clients
control AuthService as auth
entity HostRegistry as host
autonumber "[00]"
user -> clients : run_auth(Keycode)
clients -> auth : authenticate_key(Keycode, IP address)
auth -> auth : secret_key?
note right : Keycode は正しいか?
alt Keycode is varid
  auth -> host : include?
  note right : すでに登録済みか?
  host --> auth : true or false
  alt unregisterd
    auth -> auth : create_key()
    auth --> clients : identified_key
    clients --> user : identified_key
  else registerd
    auth --> clients : true
    clients -> host : read_hostkeys(IP Address)
    host --> clients : identified_key
    clients --> user : identified_key
  end
else not varid
  auth --> clients : fatal
  clients --> user : "false"
end

@enduml

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

@startuml

actor Reins_Agent as user

boundary Clients as clients

control AuthService as auth

entity HostRegistry as host

autonumber "[00]"

user -> clients : run_auth(Keycode)

clients -> auth : authenticate_key(Keycode, IP address)

auth -> auth : secret_key?

note right : Keycode は正しいか?

alt Keycode is varid

auth -> host : include?

note right : すでに登録済みか?

host --> auth : true or false

alt unregisterd

auth -> auth : create_key()

auth --> clients : identified_key

clients --> user : identified_key

else registerd

auth --> clients : true

clients -> host : read_hostkeys(IP Address)

host --> clients : identified_key

clients --> user : identified_key

end

else not varid

auth --> clients : fatal

clients --> user : "false"

end

@enduml

@startuml

actor Reins_Agent as user
boundary Reins_Server as server
control Clients as clients
control AuthService as auth
control Dispatcher as dispatch
entity HostRegistry as host
autonumber

== Varidation ==
user -> server: keycode, command
note right: 'auth'コマンド以外
server -> clients: run_command(keycode)
clients -> auth: varid?(keycode)
note right: 識別キーは正しいか?
auth --> clients: true or falth

== run command ==
alt keycode is varid
  clients -> dispatch: command(command, options)
  alt add
    dispatch -> host: create(IP Address, keycode)
    host -> host: store
    host --> dispatch: true or false
  else list
    dispatch -> host: read_hosts
    host --> dispatch: keys
  else delete
    dispatch -> host: delete(IP Address)
    host -> host: store
    host --> dispatch: true or false
  end
  dispatch --> clients: results
  clients --> server: results
else not varid
  clients --> server: "fatal"
end
server --> user: results

@enduml

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

@startuml

actor Reins_Agent as user

boundary Reins_Server as server

control Clients as clients

control AuthService as auth

control Dispatcher as dispatch

entity HostRegistry as host

autonumber

== Varidation ==

user -> server: keycode, command

note right: 'auth'コマンド以外

server -> clients: run_command(keycode)

clients -> auth: varid?(keycode)

note right: 識別キーは正しいか?

auth --> clients: true or falth

== run command ==

alt keycode is varid

clients -> dispatch: command(command, options)

alt add

dispatch -> host: create(IP Address, keycode)

host -> host: store

host --> dispatch: true or false

else list

dispatch -> host: read_hosts

host --> dispatch: keys

else delete

dispatch -> host: delete(IP Address)

host -> host: store

host --> dispatch: true or false

end

dispatch --> clients: results

clients --> server: results

else not varid

clients --> server: "fatal"

end

server --> user: results

@enduml

@startuml

actor Reins_Agent as user
boundary Clients as clients
control AuthService as auth
entity HostRegistry as host
autonumber "[00]"
user -> clients: run_auth(Keycode)
clients -> auth: authenticate_key(Keycode, IP address)
auth -> auth: secret_key?
note right: Keycode は正しいか?
alt Keycode is varid
  auth -> host: include?
  note right: すでに登録済みか?
  host --> auth: true or false
  alt registerd
    auth -> host: read_hostkeys(IP Address)
    host --> auth: identified_key
  else unregisterd
    auth -> auth: create_key()
    auth -> host: create(IP Address, keycode)    host -> host: store
    host --> auth: identified_key
  end
  auth --> clients: identified_key
  clients --> user: identified_key
else not varid
  auth --> clients: fatal
  clients --> user: "fatal"
end

@enduml

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

@startuml

actor Reins_Agent as user

boundary Clients as clients

control AuthService as auth

entity HostRegistry as host

autonumber "[00]"

user -> clients: run_auth(Keycode)

clients -> auth: authenticate_key(Keycode, IP address)

auth -> auth: secret_key?

note right: Keycode は正しいか?

alt Keycode is varid

auth -> host: include?

note right: すでに登録済みか?

host --> auth: true or false

alt registerd

auth -> host: read_hostkeys(IP Address)

host --> auth: identified_key

else unregisterd

auth -> auth: create_key()

auth -> host: create(IP Address, keycode) host -> host: store

host --> auth: identified_key

end

auth --> clients: identified_key

clients --> user: identified_key

else not varid

auth --> clients: fatal

clients --> user: "fatal"

end

@enduml

@startuml

actor Reins_Agent as user
boundary Reins_Server as server
control Clients as clients
control Dispatcher as dispatch
entity HostRegistry as host
autonumber "[00]"
user -> server: keycode, command
activate server
note right: 'auth'コマンド以外
server -> clients: run_command()
activate clients
  clients -> dispatch: command(keycode, command)
  activate dispatch
  alt list
    dispatch -> host: read_hosts(keycode,IP Address)
    activate host
    host -> host: varid?()
    host --> dispatch: keys
    deactivate host
  else delete
    dispatch -> host: delete(keycode,IP Address)
    activate host
    host -> host: varid?()
    host -> host: store
    host --> dispatch: result
    deactivate host
  end
  dispatch --> clients: results
  deactivate dispatch
  destroy dispatch
  clients --> server: results
  deactivate clients
  destroy clients
server --> user: results
deactivate server

@enduml

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

@startuml

actor Reins_Agent as user

boundary Reins_Server as server

control Clients as clients

control Dispatcher as dispatch

entity HostRegistry as host

autonumber "[00]"

user -> server: keycode, command

activate server

note right: 'auth'コマンド以外

server -> clients: run_command()

activate clients

clients -> dispatch: command(keycode, command)

activate dispatch

alt list

dispatch -> host: read_hosts(keycode,IP Address)

activate host

host -> host: varid?()

host --> dispatch: keys

deactivate host

else delete

dispatch -> host: delete(keycode,IP Address)

activate host

host -> host: varid?()

host -> host: store

host --> dispatch: result

deactivate host

end

dispatch --> clients: results

deactivate dispatch

destroy dispatch

clients --> server: results

deactivate clients

destroy clients

server --> user: results

deactivate server

@enduml

@startuml

class Clients {
  command: String
  -keycode: String
  -options: String
  -addr: String
  +run_auth()
  +run_command()
}
class AuthService {
  -secret_key: String
  +create_key()
  +authenticate_key()
}
class Dispatch {
  -addr: String
  -keycode: String
  +command()
}
class HostRegistry {
  +hosts: Object
  -filename: String
  -varid_ip?()
  -varid?()
  +create()
  +read_hostkeys()
  +read_hosts()
  +delete()
  +empty?()
}
class Hosts {
  IP Address: String
  keycode: String
  created_date: Date
  updated_date: Date
  status: String
}

Clients --> Dispatch
Clients --> AuthService
AuthService "*" --> "1" HostRegistry
Dispatch --> HostRegistry
HostRegistry --> Clients
HostRegistry "1" --> "*" Hosts

@enduml

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

@startuml

class Clients {

command: String

-keycode: String

-options: String

-addr: String

+run_auth()

+run_command()

}

class AuthService {

-secret_key: String

+create_key()

+authenticate_key()

}

class Dispatch {

-addr: String

-keycode: String

+command()

}

class HostRegistry {

+hosts: Object

-filename: String

-varid_ip?()

-varid?()

+create()

+read_hostkeys()

+read_hosts()

+delete()

+empty?()

}

class Hosts {

IP Address: String

keycode: String

created_date: Date

updated_date: Date

status: String

}

Clients --> Dispatch

Clients --> AuthService

AuthService "*" --> "1" HostRegistry

Dispatch --> HostRegistry

HostRegistry --> Clients

HostRegistry "1" --> "*" Hosts

@enduml

@startuml

actor TaskControl as server
boundary Reins_Agent as agent
control ExecCommands as comm
entity HostRegistry as host
autonumber "[00]"
loop all_clients
server -> agent: identified_key

== connection check ==
agent -> comm: check(identified_key)
activate comm
comm -> comm: varid?(identified_key)
comm --> agent: status
deactivate comm
destroy comm
agent --> server: status
deactivate agent

== logging status ==
server -> host: rewrite_status(identified_key, status)
activate host
host -> host: set_status(identified_key, IPaddress,
status)
host -> host: store()
host --> server: true or false
deactivate host
end

@enduml

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

@startuml

actor TaskControl as server

boundary Reins_Agent as agent

control ExecCommands as comm

entity HostRegistry as host

autonumber "[00]"

loop all_clients

server -> agent: identified_key

== connection check ==

agent -> comm: check(identified_key)

activate comm

comm -> comm: varid?(identified_key)

comm --> agent: status

deactivate comm

destroy comm

agent --> server: status

deactivate agent

== logging status ==

server -> host: rewrite_status(identified_key, status)

activate host

host -> host: set_status(identified_key, IPaddress,

status)

host -> host: store()

host --> server: true or false

deactivate host

end

@enduml

漢のUNIX　テストフレームワームKyua その3（Vol.51掲載）

投稿日：2017.11.13　｜　カテゴリー：　コード

著者：後藤大地

　前回はコマンド開発目的で利用できるテストフレームワーク「Kyua」（https://github.com/jmmv/kyua(https://github.com/jmmv/kyua）で、実際にどのようにデプロイして開発に利用していけばよいのかを解説した。また、make(1) の仕組みを使い、どのディレクトリにいてもmake test でテストが実行されるようにして、テストと開発を同時に進める方法についても説明した。
　今回は具体的にどんな手段で実際のコーティングとテストを実施していくのかを紹介する。
記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

#include <unistd.h>
#include <stdlib.h>
#include <sysexits.h>
int
main(int argc, char *argv[])
{
	exit(EX_OK);
}

1

2

3

4

5

6

7

8

#include <unistd.h>

#include <stdlib.h>

#include <sysexits.h>

int

main(int argc, char *argv[])

{

exit(EX_OK);

}

#!/usr/bin/env atf-sh

atf_test_case normal
normal_head() {
	atf_set ""
}

normal_body() {
	true
}

atf_init_test_cases()
{
	atf_add_test_case normal
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

#!/usr/bin/env atf-sh

atf_test_case normal

normal_head() {

atf_set ""

}

normal_body() {

true

}

atf_init_test_cases()

{

atf_add_test_case normal

}

#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <limits.h>
#include <err.h>
#include <errno.h>
#include <sysexits.h>

int
main(int argc, char *argv[])
{
	char *f = "/dev/stdin";
	if (1 < argc)
		f = argv[1];

	FILE *fp;
	fp = fopen(f, "r");
	if (NULL == fp)
		err(errno, "%s", f);

	char buf[BUFSIZ], buf_num[BUFSIZ];
	long sum, num;
	int buf_i, buf_num_i;
	while (NULL != fgets(buf, BUFSIZ, fp)) {
		sum = 0;
		buf_i = 0;

		while ('\n' != buf[buf_i] &&
			'\0' != buf[buf_i]) {
			buf_num_i = 0;

			while (' ' != buf[buf_i] && 
				'\n' != buf[buf_i] &&
				'\0' != buf[buf_i])
				buf_num[buf_num_i++] = buf[buf_i++];
			buf_num[buf_num_i++] = '\0';

			errno = 0;
			num = (int)strtol(buf_num, (char **)NULL, 10);

			if (EINVAL != errno)
				sum += num;

			if (' ' == buf[buf_i])
				++buf_i;
				
		}

		if ('\n' == buf[buf_i])
			buf[buf_i] = '\0';
		printf("%s %ld\n", buf, sum);
	}

	exit(EX_OK);
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

#include <unistd.h>

#include <stdlib.h>

#include <stdio.h>

#include <limits.h>

#include <err.h>

#include <errno.h>

#include <sysexits.h>

int

main(int argc, char *argv[])

{

char *f = "/dev/stdin";

if (1 < argc)

f = argv[1];

FILE *fp;

fp = fopen(f, "r");

if (NULL == fp)

err(errno, "%s", f);

char buf[BUFSIZ], buf_num[BUFSIZ];

long sum, num;

int buf_i, buf_num_i;

while (NULL != fgets(buf, BUFSIZ, fp)) {

sum = 0;

buf_i = 0;

while ('\n' != buf[buf_i] &&

'\0' != buf[buf_i]) {

buf_num_i = 0;

while (' ' != buf[buf_i] &&

'\n' != buf[buf_i] &&

'\0' != buf[buf_i])

buf_num[buf_num_i++] = buf[buf_i++];

buf_num[buf_num_i++] = '\0';

errno = 0;

num = (int)strtol(buf_num, (char **)NULL, 10);

if (EINVAL != errno)

sum += num;

if (' ' == buf[buf_i])

++buf_i;

}

if ('\n' == buf[buf_i])

buf[buf_i] = '\0';

printf("%s %ld\n", buf, sum);

}

exit(EX_OK);

}

% cat data_01.ssv
81486 95687 89401 70384
83237 21094 83312 82973
41971 39009 34446 91667
42813 36052 45730 91921
62011 68277 48535 22413
30537 45627 71052 56639
80746 13849 55037 71849
81486 95687 89401 70384
83237 21094 83312 82973
41971 39009 34446 91667
% ./../../../bin/sum data_01.ssv
81486 95687 89401 70384 336958
83237 21094 83312 82973 270616
41971 39009 34446 91667 207093
42813 36052 45730 91921 216516
62011 68277 48535 22413 201236
30537 45627 71052 56639 203855
80746 13849 55037 71849 221481
81486 95687 89401 70384 336958
83237 21094 83312 82973 270616
41971 39009 34446 91667 207093
% cat data_01.ssv | ./../../../bin/sum
81486 95687 89401 70384 336958
83237 21094 83312 82973 270616
41971 39009 34446 91667 207093
42813 36052 45730 91921 216516
62011 68277 48535 22413 201236
30537 45627 71052 56639 203855
80746 13849 55037 71849 221481
81486 95687 89401 70384 336958
83237 21094 83312 82973 270616
41971 39009 34446 91667 207093
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

% cat data_01.ssv

81486 95687 89401 70384

83237 21094 83312 82973

41971 39009 34446 91667

42813 36052 45730 91921

62011 68277 48535 22413

30537 45627 71052 56639

80746 13849 55037 71849

81486 95687 89401 70384

83237 21094 83312 82973

41971 39009 34446 91667

% ./../../../bin/sum data_01.ssv

81486 95687 89401 70384 336958

83237 21094 83312 82973 270616

41971 39009 34446 91667 207093

42813 36052 45730 91921 216516

62011 68277 48535 22413 201236

30537 45627 71052 56639 203855

80746 13849 55037 71849 221481

81486 95687 89401 70384 336958

83237 21094 83312 82973 270616

41971 39009 34446 91667 207093

% cat data_01.ssv | ./../../../bin/sum

81486 95687 89401 70384 336958

83237 21094 83312 82973 270616

41971 39009 34446 91667 207093

42813 36052 45730 91921 216516

62011 68277 48535 22413 201236

30537 45627 71052 56639 203855

80746 13849 55037 71849 221481

81486 95687 89401 70384 336958

83237 21094 83312 82973 270616

41971 39009 34446 91667 207093

%

#!/usr/bin/env atf-sh

atf_test_case normal
normal_head() {
	atf_set "descr" "Verify the normal operation"
}

normal_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_01.ssv \
		-x "sum $(atf_get_srcdir)/data_01.ssv"
}

atf_init_test_cases()
{
	atf_add_test_case normal
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

#!/usr/bin/env atf-sh

atf_test_case normal

normal_head() {

atf_set "descr" "Verify the normal operation"

}

normal_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_01.ssv \

-x "sum $(atf_get_srcdir)/data_01.ssv"

}

atf_init_test_cases()

{

atf_add_test_case normal

}

#!/usr/bin/env atf-sh

atf_test_case normal
normal_head() {
	atf_set "descr" "Verify the normal operation"
}

normal_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_01.ssv \
		-x "sum $(atf_get_srcdir)/data_01.ssv"
}

atf_test_case stdin
stdin_head() {
	atf_set "descr" "Verify the stdin operation"
}

stdin_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_01.ssv \
		-x "cat $(atf_get_srcdir)/data_01.ssv | sum"
}

atf_init_test_cases()
{
	atf_add_test_case normal
	atf_add_test_case stdin
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

#!/usr/bin/env atf-sh

atf_test_case normal

normal_head() {

atf_set "descr" "Verify the normal operation"

}

normal_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_01.ssv \

-x "sum $(atf_get_srcdir)/data_01.ssv"

}

atf_test_case stdin

stdin_head() {

atf_set "descr" "Verify the stdin operation"

}

stdin_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_01.ssv \

-x "cat $(atf_get_srcdir)/data_01.ssv | sum"

}

atf_init_test_cases()

{

atf_add_test_case normal

atf_add_test_case stdin

}

% cat data_02.ssv
81486 95687 @ 70384
83237 @ 83312 82973
@ 39009 34446 91667
@ 36052 45730 91921
62011 68277 A 22413
30537 45627 @ 56639
80746 B 55037 71849
81486 # 89401 70384
83237 21094 @ 82973
41971 39009 34446 K
% ./../../../bin/sum data_02.ssv
81486 95687 @ 70384 247557
83237 @ 83312 82973 249522
@ 39009 34446 91667 165122
@ 36052 45730 91921 173703
62011 68277 A 22413 152701
30537 45627 @ 56639 132803
80746 B 55037 71849 207632
81486 # 89401 70384 241271
83237 21094 @ 82973 187304
41971 39009 34446 K 115426
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

% cat data_02.ssv

81486 95687 @ 70384

83237 @ 83312 82973

@ 39009 34446 91667

@ 36052 45730 91921

62011 68277 A 22413

30537 45627 @ 56639

80746 B 55037 71849

81486 # 89401 70384

83237 21094 @ 82973

41971 39009 34446 K

% ./../../../bin/sum data_02.ssv

81486 95687 @ 70384 247557

83237 @ 83312 82973 249522

@ 39009 34446 91667 165122

@ 36052 45730 91921 173703

62011 68277 A 22413 152701

30537 45627 @ 56639 132803

80746 B 55037 71849 207632

81486 # 89401 70384 241271

83237 21094 @ 82973 187304

41971 39009 34446 K 115426

%

% cat data_03.ssv
81486 95687  70384
83237  83312 82973
39009 34446 91667
36052 45730 91921
62011 68277  22413
30537 45627  56639
80746  55037 71849
81486  89401 70384
83237 21094  82973
41971 39009 34446
% ./../../../bin/sum data_03.ssv
81486 95687  70384 247557
83237  83312 82973 249522
39009 34446 91667 165122
36052 45730 91921 173703
62011 68277  22413 152701
30537 45627  56639 132803
80746  55037 71849 207632
81486  89401 70384 241271
83237 21094  82973 187304
41971 39009 34446  115426
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

% cat data_03.ssv

81486 95687 70384

83237 83312 82973

39009 34446 91667

36052 45730 91921

62011 68277 22413

30537 45627 56639

80746 55037 71849

81486 89401 70384

83237 21094 82973

41971 39009 34446

% ./../../../bin/sum data_03.ssv

81486 95687 70384 247557

83237 83312 82973 249522

39009 34446 91667 165122

36052 45730 91921 173703

62011 68277 22413 152701

30537 45627 56639 132803

80746 55037 71849 207632

81486 89401 70384 241271

83237 21094 82973 187304

41971 39009 34446 115426

%

#!/usr/bin/env atf-sh

atf_test_case normal
normal_head() {
	atf_set "descr" "Verify the normal operation"
}

normal_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_01.ssv \
		-x "sum $(atf_get_srcdir)/data_01.ssv"
}

atf_test_case stdin
stdin_head() {
	atf_set "descr" "Verify the stdin operation"
}

stdin_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_01.ssv \
		-x "cat $(atf_get_srcdir)/data_01.ssv | sum"
}

atf_test_case invalid
invalid_head() {
	atf_set "descr" "Verify the invalid data operation"
}

invalid_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_02.ssv \
		-x "sum $(atf_get_srcdir)/data_02.ssv"
}

atf_test_case null
null_head() {
	atf_set "descr" "Verify the null data operation"
}

null_body() {
	atf_check -s ignore \
		-o file:$(atf_get_srcdir)/out_03.ssv \
		-x "sum $(atf_get_srcdir)/data_03.ssv"
}

atf_init_test_cases()
{
	atf_add_test_case normal
	atf_add_test_case stdin
	atf_add_test_case invalid
	atf_add_test_case null
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

#!/usr/bin/env atf-sh

atf_test_case normal

normal_head() {

atf_set "descr" "Verify the normal operation"

}

normal_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_01.ssv \

-x "sum $(atf_get_srcdir)/data_01.ssv"

}

atf_test_case stdin

stdin_head() {

atf_set "descr" "Verify the stdin operation"

}

stdin_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_01.ssv \

-x "cat $(atf_get_srcdir)/data_01.ssv | sum"

}

atf_test_case invalid

invalid_head() {

atf_set "descr" "Verify the invalid data operation"

}

invalid_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_02.ssv \

-x "sum $(atf_get_srcdir)/data_02.ssv"

}

atf_test_case null

null_head() {

atf_set "descr" "Verify the null data operation"

}

null_body() {

atf_check -s ignore \

-o file:$(atf_get_srcdir)/out_03.ssv \

-x "sum $(atf_get_srcdir)/data_03.ssv"

}

atf_init_test_cases()

{

atf_add_test_case normal

atf_add_test_case stdin

atf_add_test_case invalid

atf_add_test_case null

}

% tree -F tests/bin/sum
tests/bin/sum
├── data_01.ssv
├── data_02.ssv
├── data_03.ssv
├── Kyuafile
├── Makefile
├── Makefile.inc
├── out_01.ssv
├── out_02.ssv
├── out_03.ssv
└── test.atf-sh*

0 directories, 10 files
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

% tree -F tests/bin/sum

tests/bin/sum

├── data_01.ssv

├── data_02.ssv

├── data_03.ssv

├── Kyuafile

├── Makefile

├── Makefile.inc

├── out_01.ssv

├── out_02.ssv

├── out_03.ssv

└── test.atf-sh*

0 directories, 10 files

%

% make test
env PATH=/Users/daichi/Documents/shellmagazine/201710/stuffs/ore2/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin kyua test
test.atf-sh:invalid  ->  passed  [0.013s]
test.atf-sh:normal  ->  passed  [0.013s]
test.atf-sh:null  ->  passed  [0.011s]
test.atf-sh:stdin  ->  passed  [0.014s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore2_tests_bin_sum.20170813-032208-089766
Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore2_tests_bin_sum.20170813-032208-089766.db

4/4 passed (0 failed)
%

1

2

3

4

5

6

7

8

9

10

11

12

13

% make test

env PATH=/Users/daichi/Documents/shellmagazine/201710/stuffs/ore2/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin kyua test

test.atf-sh:invalid -> passed [0.013s]

test.atf-sh:normal -> passed [0.013s]

test.atf-sh:null -> passed [0.011s]

test.atf-sh:stdin -> passed [0.014s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore2_tests_bin_sum.20170813-032208-089766

Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore2_tests_bin_sum.20170813-032208-089766.db

4/4 passed (0 failed)

%

#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <limits.h>
#include <err.h>
#include <errno.h>
#include <sysexits.h>

static void usage();

int
main(int argc, char *argv[])
{
        int ch;
        while (-1 != (ch = getopt(argc, argv, "h")))
                switch (ch) {
                case 'h':
                        usage();
                        break;
                default:
                        usage();
                        break;
                }

        char *f = "/dev/stdin";
        if (1 <= argc - optind)
                f = argv[optind];

        FILE *fp;
        fp = fopen(f, "r");
        if (NULL == fp)
                err(errno, "%s", f);

        char buf[BUFSIZ], buf_num[BUFSIZ];
        long sum, num;
        int buf_i, buf_num_i;
        while (NULL != fgets(buf, BUFSIZ, fp)) {
                sum = 0;
                buf_i = 0;

                while ('\n' != buf[buf_i] &&
                        '\0' != buf[buf_i]) {
                        buf_num_i = 0;

                        while (' ' != buf[buf_i] && 
                                '\n' != buf[buf_i] &&
                                '\0' != buf[buf_i])
                                buf_num[buf_num_i++] = buf[buf_i++];
                        buf_num[buf_num_i++] = '\0';

                        errno = 0;
                        num = (int)strtol(buf_num, (char **)NULL, 10);

                        if (EINVAL != errno)
                                sum += num;

                        if (' ' == buf[buf_i])
                                ++buf_i;
                                
                }

                if ('\n' == buf[buf_i])
                        buf[buf_i] = '\0';
                printf("%s %ld\n", buf, sum);
        }

        exit(EX_OK);
}

#define USAGE_MESSAGE \
        "名前\n" \
        "\tsum - 列の値を加算して最後の列に合計値を出力\n" \
        "\n" \
        "書式\n" \
        "\tsum [-h] [file ...]\n" \
        "\n" \
        "オプション\n" \
        "\t-h\t使い方表示\n" \
        "\tfile\tファイルを指定。指定がない場合には標準入力を使用\n"

static void
usage()
{
        fprintf(stderr, USAGE_MESSAGE);
        exit(EX_USAGE);
}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

#include <unistd.h>

#include <stdlib.h>

#include <stdio.h>

#include <limits.h>

#include <err.h>

#include <errno.h>

#include <sysexits.h>

static void usage();

int

main(int argc, char *argv[])

{

int ch;

while (-1 != (ch = getopt(argc, argv, "h")))

switch (ch) {

case 'h':

usage();

break;

default:

usage();

break;

}

char *f = "/dev/stdin";

if (1 <= argc - optind)

f = argv[optind];

FILE *fp;

fp = fopen(f, "r");

if (NULL == fp)

err(errno, "%s", f);

char buf[BUFSIZ], buf_num[BUFSIZ];

long sum, num;

int buf_i, buf_num_i;

while (NULL != fgets(buf, BUFSIZ, fp)) {

sum = 0;

buf_i = 0;

while ('\n' != buf[buf_i] &&

'\0' != buf[buf_i]) {

buf_num_i = 0;

while (' ' != buf[buf_i] &&

'\n' != buf[buf_i] &&

'\0' != buf[buf_i])

buf_num[buf_num_i++] = buf[buf_i++];

buf_num[buf_num_i++] = '\0';

errno = 0;

num = (int)strtol(buf_num, (char **)NULL, 10);

if (EINVAL != errno)

sum += num;

if (' ' == buf[buf_i])

++buf_i;

}

if ('\n' == buf[buf_i])

buf[buf_i] = '\0';

printf("%s %ld\n", buf, sum);

}

exit(EX_OK);

}

#define USAGE_MESSAGE \

"名前\n" \

"\tsum - 列の値を加算して最後の列に合計値を出力\n" \

"\n" \

"書式\n" \

"\tsum [-h] [file ...]\n" \

"\n" \

"オプション\n" \

"\t-h\t使い方表示\n" \

"\tfile\tファイルを指定。指定がない場合には標準入力を使用\n"

static void

usage()

{

fprintf(stderr, USAGE_MESSAGE);

exit(EX_USAGE);

}

% ./../../../bin/sum -h
名前
        sum - 列の値を加算して最後の列に合計値を出力

書式
        sum [-h] [file ...]

オプション
        -h      使い方表示
        file    ファイルを指定。指定がない場合には標準入力を使用
%

1

2

3

4

5

6

7

8

9

10

11

12

% ./../../../bin/sum -h

名前

sum - 列の値を加算して最後の列に合計値を出力

書式

sum [-h] [file ...]

オプション

-h 使い方表示

file ファイルを指定。指定がない場合には標準入力を使用

%

% ./../../../bin/sum -v
sum: illegal option -- v
名前
        sum - 列の値を加算して最後の列に合計値を出力

書式
        sum [-h] [file ...]

オプション
        -h      使い方表示
        file    ファイルを指定。指定がない場合には標準入力を使用
%

1

2

3

4

5

6

7

8

9

10

11

12

13

% ./../../../bin/sum -v

sum: illegal option -- v

名前

sum - 列の値を加算して最後の列に合計値を出力

書式

sum [-h] [file ...]

オプション

-h 使い方表示

file ファイルを指定。指定がない場合には標準入力を使用

%

--- ore3/src/bin/sum/sum.c      2017-10-19 14:24:46.507636000 +0900
+++ ore4/src/bin/sum/sum.c      2017-10-19 14:33:16.734744000 +0900
@@ -72,9 +72,10 @@
        "\tsum - 列の値を加算して最後の列に合計値を出力\n" \
        "\n" \
        "書式\n" \
-       "\tsum [-h] [file ...]\n" \
+       "\tsum [-he] [file ...]\n" \
        "\n" \
        "オプション\n" \
+       "\t-e\t値に数値以外が含まれていた場合は@を出力\n" \
        "\t-h\t使い方表示\n" \
        "\tfile\tファイルを指定。指定がない場合には標準入力を使用\n"

1

2

3

4

5

6

7

8

9

10

11

12

13

--- ore3/src/bin/sum/sum.c 2017-10-19 14:24:46.507636000 +0900

+++ ore4/src/bin/sum/sum.c 2017-10-19 14:33:16.734744000 +0900

@@ -72,9 +72,10 @@

"\tsum - 列の値を加算して最後の列に合計値を出力\n" \

"\n" \

"書式\n" \

- "\tsum [-h] [file ...]\n" \

+ "\tsum [-he] [file ...]\n" \

"\n" \

"オプション\n" \

+ "\t-e\t値に数値以外が含まれていた場合は@を出力\n" \

"\t-h\t使い方表示\n" \

"\tfile\tファイルを指定。指定がない場合には標準入力を使用\n"

% ./../../../bin/sum -h
名前
        sum - 列の値を加算して最後の列に合計値を出力

書式
        sum [-he] [file ...]

オプション
        -e      値に数値以外が含まれていた場合は@を出力
        -h      使い方表示
        file    ファイルを指定。指定がない場合には標準入力を使用
%

1

2

3

4

5

6

7

8

9

10

11

12

13

% ./../../../bin/sum -h

名前

sum - 列の値を加算して最後の列に合計値を出力

書式

sum [-he] [file ...]

オプション

-e 値に数値以外が含まれていた場合は@を出力

-h 使い方表示

file ファイルを指定。指定がない場合には標準入力を使用

%

diff -urN ore3/tests/bin/sum/data_04.ssv ore4/tests/bin/sum/data_04.ssv
--- ore3/tests/bin/sum/data_04.ssv      1970-01-01 09:00:00.000000000 +0900
+++ ore4/tests/bin/sum/data_04.ssv      2017-10-19 14:39:30.121347000 +0900
@@ -0,0 +1,10 @@
+81486 95687 @ 70384
+83237 @ 83312 82973
+@ 39009 34446 91667
+@ 36052 45730 91921
+62011 68277 A 22413
+30537 45627 @ 56639
+80746 B 55037 71849
+81486 # 89401 70384
+83237 21094 @ 82973
+41971 39009 34446 K
diff -urN ore3/tests/bin/sum/out_04.ssv ore4/tests/bin/sum/out_04.ssv
--- ore3/tests/bin/sum/out_04.ssv       1970-01-01 09:00:00.000000000 +0900
+++ ore4/tests/bin/sum/out_04.ssv       2017-10-19 14:40:08.650527000 +0900
@@ -0,0 +1,10 @@
+81486 95687 @ 70384 @
+83237 @ 83312 82973 @
+@ 39009 34446 91667 @
+@ 36052 45730 91921 @
+62011 68277 A 22413 @
+30537 45627 @ 56639 @
+80746 B 55037 71849 @
+81486 # 89401 70384 @
+83237 21094 @ 82973 @
+41971 39009 34446 K @
diff -urN ore3/tests/bin/sum/test.atf-sh ore4/tests/bin/sum/test.atf-sh
--- ore3/tests/bin/sum/test.atf-sh      2017-10-19 12:59:19.334227000 +0900
+++ ore4/tests/bin/sum/test.atf-sh      2017-10-19 14:43:55.868031000 +0900
@@ -44,10 +44,22 @@
                -x "sum $(atf_get_srcdir)/data_03.ssv"
 }

+atf_test_case test_e
+test_e_head() {
+       atf_set "descr" "Verify the -e operation"
+}
+
+test_e_body() {
+       atf_check -s ignore \
+               -o file:$(atf_get_srcdir)/out_04.ssv \
+               -x "sum -e $(atf_get_srcdir)/data_04.ssv"
+}
+
 atf_init_test_cases()
 {
        atf_add_test_case normal
        atf_add_test_case stdin
        atf_add_test_case invalid
        atf_add_test_case null
+       atf_add_test_case test_e
 }

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

diff -urN ore3/tests/bin/sum/data_04.ssv ore4/tests/bin/sum/data_04.ssv

--- ore3/tests/bin/sum/data_04.ssv 1970-01-01 09:00:00.000000000 +0900

+++ ore4/tests/bin/sum/data_04.ssv 2017-10-19 14:39:30.121347000 +0900

@@ -0,0 +1,10 @@

+81486 95687 @ 70384

+83237 @ 83312 82973

+@ 39009 34446 91667

+@ 36052 45730 91921

+62011 68277 A 22413

+30537 45627 @ 56639

+80746 B 55037 71849

+81486 # 89401 70384

+83237 21094 @ 82973

+41971 39009 34446 K

diff -urN ore3/tests/bin/sum/out_04.ssv ore4/tests/bin/sum/out_04.ssv

--- ore3/tests/bin/sum/out_04.ssv 1970-01-01 09:00:00.000000000 +0900

+++ ore4/tests/bin/sum/out_04.ssv 2017-10-19 14:40:08.650527000 +0900

@@ -0,0 +1,10 @@

+81486 95687 @ 70384 @

+83237 @ 83312 82973 @

+@ 39009 34446 91667 @

+@ 36052 45730 91921 @

+62011 68277 A 22413 @

+30537 45627 @ 56639 @

+80746 B 55037 71849 @

+81486 # 89401 70384 @

+83237 21094 @ 82973 @

+41971 39009 34446 K @

diff -urN ore3/tests/bin/sum/test.atf-sh ore4/tests/bin/sum/test.atf-sh

--- ore3/tests/bin/sum/test.atf-sh 2017-10-19 12:59:19.334227000 +0900

+++ ore4/tests/bin/sum/test.atf-sh 2017-10-19 14:43:55.868031000 +0900

@@ -44,10 +44,22 @@

-x "sum $(atf_get_srcdir)/data_03.ssv"

}

+atf_test_case test_e

+test_e_head() {

+ atf_set "descr" "Verify the -e operation"

+}

+

+test_e_body() {

+ atf_check -s ignore \

+ -o file:$(atf_get_srcdir)/out_04.ssv \

+ -x "sum -e $(atf_get_srcdir)/data_04.ssv"

+}

+

atf_init_test_cases()

{

atf_add_test_case normal

atf_add_test_case stdin

atf_add_test_case invalid

atf_add_test_case null

+ atf_add_test_case test_e

}

% make test
env PATH=/Users/daichi/Documents/shellmagazine/201712/stuffs/ore4/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin kyua test
test.atf-sh:invalid  ->  passed  [0.011s]
test.atf-sh:normal  ->  passed  [0.013s]
test.atf-sh:null  ->  passed  [0.012s]
test.atf-sh:stdin  ->  passed  [0.013s]
test.atf-sh:test_e  ->  failed: atf-check failed; see the output of the test for details  [0.017s]

Results file id is Users_daichi_Documents_shellmagazine_201712_stuffs_ore4_tests_bin_sum.20171019-054816-646434
Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201712_stuffs_ore4_tests_bin_sum.20171019-054816-646434.db

4/5 passed (1 failed)
*** Error code 1

Stop.
make: stopped in /Users/daichi/Documents/shellmagazine/201712/stuffs/ore4/tests/bin/sum
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

% make test

env PATH=/Users/daichi/Documents/shellmagazine/201712/stuffs/ore4/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin kyua test

test.atf-sh:invalid -> passed [0.011s]

test.atf-sh:normal -> passed [0.013s]

test.atf-sh:null -> passed [0.012s]

test.atf-sh:stdin -> passed [0.013s]

test.atf-sh:test_e -> failed: atf-check failed; see the output of the test for details [0.017s]

Results file id is Users_daichi_Documents_shellmagazine_201712_stuffs_ore4_tests_bin_sum.20171019-054816-646434

Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201712_stuffs_ore4_tests_bin_sum.20171019-054816-646434.db

4/5 passed (1 failed)

*** Error code 1

Stop.

make: stopped in /Users/daichi/Documents/shellmagazine/201712/stuffs/ore4/tests/bin/sum

%

diff -u ore4/src/bin/sum/sum.c ore5/src/bin/sum/sum.c
--- ore4/src/bin/sum/sum.c      2017-10-19 14:33:16.734744000 +0900
+++ ore5/src/bin/sum/sum.c      2017-10-19 15:18:56.658860000 +0900
@@ -12,8 +12,12 @@
 main(int argc, char *argv[])
 {
        int ch;
-       while (-1 != (ch = getopt(argc, argv, "h")))
+       int eflag = 0;
+       while (-1 != (ch = getopt(argc, argv, "eh")))
                switch (ch) {
+               case 'e':
+                       eflag = 1;
+                       break;
                case 'h':
                        usage();
                        break;
@@ -37,6 +41,7 @@
        while (NULL != fgets(buf, BUFSIZ, fp)) {
                sum = 0;
                buf_i = 0;
+               errno = 0;

                while ('\n' != buf[buf_i] &&
                        '\0' != buf[buf_i]) {
@@ -51,8 +56,14 @@
                        errno = 0;
                        num = (int)strtol(buf_num, (char **)NULL, 10);

-                       if (EINVAL != errno)
+                       if (!eflag && EINVAL != errno)
                                sum += num;
+                       else if (eflag && EINVAL != errno) {
+                               while ('\n' != buf[buf_i] &&
+                                       '\0' != buf[buf_i])
+                                       ++buf_i;
+                               break;
+                       }

                        if (' ' == buf[buf_i])
                                ++buf_i;
@@ -61,7 +72,12 @@

                if ('\n' == buf[buf_i])
                        buf[buf_i] = '\0';
-               printf("%s %ld\n", buf, sum);
+               if (eflag && EINVAL != errno) {
+                       printf("%s @\n", buf);
+                       errno = 0;
+               }
+               else
+                       printf("%s %ld\n", buf, sum);
        }

        exit(EX_OK);

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

diff -u ore4/src/bin/sum/sum.c ore5/src/bin/sum/sum.c

--- ore4/src/bin/sum/sum.c 2017-10-19 14:33:16.734744000 +0900

+++ ore5/src/bin/sum/sum.c 2017-10-19 15:18:56.658860000 +0900

@@ -12,8 +12,12 @@

main(int argc, char *argv[])

{

int ch;

- while (-1 != (ch = getopt(argc, argv, "h")))

+ int eflag = 0;

+ while (-1 != (ch = getopt(argc, argv, "eh")))

switch (ch) {

+ case 'e':

+ eflag = 1;

+ break;

case 'h':

usage();

break;

@@ -37,6 +41,7 @@

while (NULL != fgets(buf, BUFSIZ, fp)) {

sum = 0;

buf_i = 0;

+ errno = 0;

while ('\n' != buf[buf_i] &&

'\0' != buf[buf_i]) {

@@ -51,8 +56,14 @@

errno = 0;

num = (int)strtol(buf_num, (char **)NULL, 10);

- if (EINVAL != errno)

+ if (!eflag && EINVAL != errno)

sum += num;

+ else if (eflag && EINVAL != errno) {

+ while ('\n' != buf[buf_i] &&

+ '\0' != buf[buf_i])

+ ++buf_i;

+ break;

+ }

if (' ' == buf[buf_i])

++buf_i;

@@ -61,7 +72,12 @@

if ('\n' == buf[buf_i])

buf[buf_i] = '\0';

- printf("%s %ld\n", buf, sum);

+ if (eflag && EINVAL != errno) {

+ printf("%s @\n", buf);

+ errno = 0;

+ }

+ else

+ printf("%s %ld\n", buf, sum);

}

exit(EX_OK);

% make test
env PATH=/Users/daichi/Documents/shellmagazine/201712/stuffs/ore5/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin kyua test
test.atf-sh:invalid  ->  passed  [0.011s]
test.atf-sh:normal  ->  passed  [0.013s]
test.atf-sh:null  ->  passed  [0.013s]
test.atf-sh:stdin  ->  passed  [0.012s]
test.atf-sh:test_e  ->  passed  [0.015s]

Results file id is Users_daichi_Documents_shellmagazine_201712_stuffs_ore5_tests_bin_sum.20171019-062132-649120
Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201712_stuffs_ore5_tests_bin_sum.20171019-062132-649120.db

5/5 passed (0 failed)
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

% make test

env PATH=/Users/daichi/Documents/shellmagazine/201712/stuffs/ore5/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin kyua test

test.atf-sh:invalid -> passed [0.011s]

test.atf-sh:normal -> passed [0.013s]

test.atf-sh:null -> passed [0.013s]

test.atf-sh:stdin -> passed [0.012s]

test.atf-sh:test_e -> passed [0.015s]

Results file id is Users_daichi_Documents_shellmagazine_201712_stuffs_ore5_tests_bin_sum.20171019-062132-649120

Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201712_stuffs_ore5_tests_bin_sum.20171019-062132-649120.db

5/5 passed (0 failed)

%

バーティカルバーの極意第五回（vol.51掲載）

投稿日：2017.11.13　｜　カテゴリー：　コード

著者：中央大学　教授　飯尾淳

秋の夜長はパズルで頭のトレーニングなんていかがでしょう？今回のバーティカルバーは、3本の縦棒に登場してもらいます。3本の棒を備えた「ハノイの塔」というパズルです。皆さんも、名前くらいは聞いたことがあるのではないでしょうか。そのパズルをシェルスクリプトで解いていくことを考えます。

記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

#!/bin/bash
function hanoi () {
  if [ $1 == 1 ]; then
    echo 1
  else
    h=`hanoi $(($1 - 1))`
    echo $((2 * $h + 1))
  fi
}
if [ x” $1” == x ]; then
  echo 'usage: ./hanoi.sh #_of_disks'
  exit
fi
echo `hanoi $1`

1

2

3

4

5

6

7

8

9

10

11

12

13

14

#!/bin/bash

function hanoi () {

if [ $1 == 1 ]; then

echo 1

else

h=`hanoi $(($1 - 1))`

echo $((2 * $h + 1))

fi

}

if [ x” $1” == x ]; then

echo 'usage: ./hanoi.sh #_of_disks'

exit

fi

echo `hanoi $1`

#!/bin/bash
function hanoi () {
  if [ $1 == 1 ]; then
    # 1枚だったら，直接 dest に移動すればよい
    echo "move $1 from $2 to $4";
  else
    # 2枚以上あるとき（$1は底の段数を示している）
    # 底の上に乗っている塔($1 - 1)を
    # dest($4)を作業領域として
    # from($2)からwork($3)に移し
    hanoi $(($1 - 1)) $2 $4 $3;
    # 底の円盤をfrom($2)から dest($4)に移したうえで
    echo "move $1 from $2 to $4";
    # work($3)からdest($4)に($1 – 1)の塔を移動する
    #（作業領域は from ($2)）
    hanoi $(($1 - 1)) $3 $2 $4;
  fi
}
if [ x"$1" == x ]; then
  echo 'usage: ./hanoi_move.sh #_of_disks'
  exit
fi
# A: from, B: work, C: dest
hanoi $1 A B C;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

#!/bin/bash

function hanoi () {

if [ $1 == 1 ]; then

# 1枚だったら，直接 dest に移動すればよい

echo "move $1 from $2 to $4";

else

# 2枚以上あるとき（$1は底の段数を示している）

# 底の上に乗っている塔($1 - 1)を

# dest($4)を作業領域として

# from($2)からwork($3)に移し

hanoi $(($1 - 1)) $2 $4 $3;

# 底の円盤をfrom($2)から dest($4)に移したうえで

echo "move $1 from $2 to $4";

# work($3)からdest($4)に($1 – 1)の塔を移動する

#（作業領域は from ($2)）

hanoi $(($1 - 1)) $3 $2 $4;

fi

}

if [ x"$1" == x ]; then

echo 'usage: ./hanoi_move.sh #_of_disks'

exit

fi

# A: from, B: work, C: dest

hanoi $1 A B C;

特集　シェルスクリプトではじめる　Raspberry Pi電子工作入門（Vol.51掲載）

投稿日：2017.11.13　｜　カテゴリー：　コード

著者：麻生二郎

パソコン、IoT（モノのインターネット）など、さまざまな用途に活用できるシングルボートのコンピュータが「Raspberry Pi」（ラズベリーパイ）です。このRaspberry Piは、Linuxコマンドを組み合わせた「シェルスクリプト」を知っていればいろいろと楽しめます。発光ダイオード（LED）、押しボタンスイッチ、型液晶パネル（LCD）の電子パーツと、簡単なシェルスクリプトを利用してRaspberry Piの電子工作を始めましょう。
記事本文掲載のシェルスクリプトマガジンvol.51は以下リンク先でご購入できます。

#!/bin/bash

#GPIO6を出力に設定
if [ ! -e /sys/class/gpio/gpio6 ]; then
  echo 6 > /sys/class/gpio/export
  echo out > /sys/class/gpio/gpio6/direction
fi

#10秒間点灯
echo 0 > /sys/class/gpio/gpio6/value
sleep 10
echo 1 > /sys/class/gpio/gpio6/value

1

2

3

4

5

6

7

8

9

10

11

12

#!/bin/bash

#GPIO6を出力に設定

if [ ! -e /sys/class/gpio/gpio6 ]; then

echo 6 > /sys/class/gpio/export

echo out > /sys/class/gpio/gpio6/direction

fi

#10秒間点灯

echo 0 > /sys/class/gpio/gpio6/value

sleep 10

echo 1 > /sys/class/gpio/gpio6/value

#!/bin/bash

##GPIO23を入力に設定
if [ ! -e /sys/class/gpio/gpio23 ]; then
  echo 23 > /sys/class/gpio/export
  echo in > /sys/class/gpio/gpio23/direction
fi
SWICTH=1
##ボタンが押されたらWebブラウザーを起動
while [ $SWICTH = "1" ]
do
  SWICTH=$(cat /sys/class/gpio/gpio23/value)
done
chromium-browser -no-sandbox > /dev/null &

1

2

3

4

5

6

7

8

9

10

11

12

13

14

#!/bin/bash

##GPIO23を入力に設定

if [ ! -e /sys/class/gpio/gpio23 ]; then

echo 23 > /sys/class/gpio/export

echo in > /sys/class/gpio/gpio23/direction

fi

SWICTH=1

##ボタンが押されたらWebブラウザーを起動

while [ $SWICTH = "1" ]

do

SWICTH=$(cat /sys/class/gpio/gpio23/value)

done

chromium-browser -no-sandbox > /dev/null &

#!/bin/bash

##初期設定
ADDRESS=(0x40 0x41 0x42 0x43 0x44 0x45 0x46 0x47)
COUNT=0

##LCDの初期化
i2cset -y 1 0x3e 0x00 0x38 0x39 0x14 0x70 0x56 0x6c i
i2cset -y 1 0x3e 0x00 0x38 0x0c 0x01 i

##キーワード入力
echo "1行目に表示したい文字を8字以内で入力してください"
echo "（アルファベットと記号のみ）"
read KEYWORD1
echo "2行目に表示したい文字を8字以内で入力してください"
echo "（アルファベットと記号のみ）"
read KEYWORD2

##1行目にテキストを表示する処理
TEXT1=$(echo ${KEYWORD1} | fold -s1)
for i in ${TEXT1}
do
  WORD=$(printf "0x%x" \"${i})
  i2cset -y 1 0x3e ${ADDRESS[${COUNT}]} ${WORD}
  COUNT=$((COUNT+1))
done
##2行目にテキストを表示する処理
COUNT=0
i2cset -y 1 0x3e 0x00 0xC0
TEXT2=$(echo ${KEYWORD2} | fold -s1)
for i in ${TEXT2}
do
  WORD=$(printf "0x%x" \"${i})
  i2cset -y 1 0x3e ${ADDRESS[${COUNT}]} ${WORD}
  COUNT=$((COUNT+1))
done

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

#!/bin/bash

##初期設定

ADDRESS=(0x40 0x41 0x42 0x43 0x44 0x45 0x46 0x47)

COUNT=0

##LCDの初期化

i2cset -y 1 0x3e 0x00 0x38 0x39 0x14 0x70 0x56 0x6c i

i2cset -y 1 0x3e 0x00 0x38 0x0c 0x01 i

##キーワード入力

echo "1行目に表示したい文字を8字以内で入力してください"

echo "（アルファベットと記号のみ）"

read KEYWORD1

echo "2行目に表示したい文字を8字以内で入力してください"

echo "（アルファベットと記号のみ）"

read KEYWORD2

##1行目にテキストを表示する処理

TEXT1=$(echo ${KEYWORD1} | fold -s1)

for i in ${TEXT1}

do

WORD=$(printf "0x%x" \"${i})

i2cset -y 1 0x3e ${ADDRESS[${COUNT}]} ${WORD}

COUNT=$((COUNT+1))

done

##2行目にテキストを表示する処理

COUNT=0

i2cset -y 1 0x3e 0x00 0xC0

TEXT2=$(echo ${KEYWORD2} | fold -s1)

for i in ${TEXT2}

do

WORD=$(printf "0x%x" \"${i})

i2cset -y 1 0x3e ${ADDRESS[${COUNT}]} ${WORD}

COUNT=$((COUNT+1))

done

第11回　データベースを作る（MariaDB）

投稿日：2017.11.10　｜　カテゴリー：　記事

コンピュータでデータを管理する仕組みとして「データベース」があります。サーバー内にデータベースを構築すれば、大量のデータを蓄積してその中から必要なデータだけを検索して容易に取り出すことができます（図1）。

図1　データを蓄積・管理できる「データベース」

今回は、このデータベースを管理するソフトウエア「データベース管理システム」（DataBase Management System、DBMS）をUbuntu Serverに導入します。

vol.50 掲載「中小企業手作りIT化奮戦記」訂正情報

投稿日：2017.11.7　｜　カテゴリー：　記事

本誌40ページの以下の写真に関して「10Base5規格のLAN」として紹介しましたが、正しくは「10Base2規格のLAN」でした。

この場にて訂正させていただくとともに、読者の皆様には謹んでお詫びいたします。

シェルスクリプトマガジン編集部

第10回　インターネットに公開する

投稿日：2017.11.2　｜　カテゴリー：　記事

Linuxで構築できるサーバーの多くは、インターネットに公開することを前提としています。ただ、通常の企業ではシステム管理者が社内のネットワークを管理していてセキュリティなどの理由から簡単にサーバーを公開させてくれません。自宅でもセキュリティは重要ですが、それさえ注意すればブロードバンドルーターの設定を変更して比較的簡単にサーバーをインターネットに公開できます。
そこで、今回は自宅のLAN環境でサーバーをインターネットに公開する方法を紹介します。

2種類のインターネット公開方法

自宅内に設置したサーバーをインターネットに公開する場合、外部からブロードバンドルーター（以下、ルーター）経由でサーバーにアクセスできるように設定します。その設定は、2種類存在します。「DMZ」と「ポートフォワーディング」を利用する方法です。

DMZとは

DMZは「DeMilitarized Zone」（非武装地帯）の略で、ルーターで守られていない領域です。通常インターネットからのアクセスは、ルーター内側のネットワーク機器への応答でない限り、ルーターの入り口で遮断されます。そのため、サーバーに届けることはできません。
DMZにサーバーを配置すると、それらのアクセスはすべてサーバーに届けられます（図1）。このようにしてサーバーをインターネットに公開します。

図1　DMZによるサーバー公開

なお、さまざまなアクセスがサーバーにそのまま届くので、サーバー自身でセキュリティ対策をしっかりとしておかないといけません。サーバーの運用管理としてはとても勉強になりますが、セキュリティ対策に詳しくないと危険です。最低限のセキュリティ対策だけ施してすぐにサーバーを公開したい場合は次のポートフォワーディングを利用するのがよいでしょう。

ポートフォワーディングとは

ポートフォワーディングは、インターネット側の特定ポートを、ルーター内側のネットワーク機器のポート（任意）に割り当てる機能です。そのポートへアクセスされた場合、ルーターがそれをサーバーに転送します（図2）。サーバーソフトごとに利用するポートが決まっていますので、公開前にあらかじめポート番号を調べておきます。

図2　ポートフォワーディングによるサーバー公開（80番ポートのみ）

ポートフォワーディングでは、サーバー自体はルーターが守りますから、セキュリティ対策はアクセスを許可しているサーバーソフトに対してだけで構いません。

第9回　Webサーバーを作る（アプリを動かす）

投稿日：2017.10.27　｜　カテゴリー：　記事

前回は、WebサーバーソフトのApache HTTP Server（以下、Apache）をインストールし、動作に重要なファイルやディレクトリーの役割を説明しました。今回は、簡単なWebアプリケーションを作成して、Apache上で動かしてみます。

Webアプリケーションについて

インターネットで動いているほとんどのWebサイトでは、動的にページを生成するためのWebアプリケーションが動作しています。このWebアプリケーションはさまざまな言語で作成できます。また、動かす方法もたくさん用意されています。
古くからある、Webアプリケーションを動かす仕組みとして「CGI」（Common Gateway Interface）があります。CGIなら、特別な仕組みを必要とせずにApacheでWebアプリケーションを動作できます（図1）。

図1　CGIプログラムならApacheだけでWebアプリが動く

ちなみに、CGIを利用するプログラムを「CGIプログラム」と呼んでいます。インターネット上ではPerlで記述したCGIプログラムをよく見かけますが、標準入出力や環境変数などを利用できるプログラミング言語ならどのようなものでも構いません。本連載では、シェルスクリプトでCGIプログラムを記述します。

会社の価値を生むのは、外注先ではなくて会社自身！　「システム内製化シンポジウム」　レポート

投稿日：2017.10.20　｜　カテゴリー：　記事

システム内製化を推進・検討している企業を対象にした「システム内製化シンポジウム」が、2017年10月18日にユニバーサル・シェル・プログラミング研究所主催で開催された。

システム内製化シンポジウムの講演風景

デジタル化時代を迎えた現在、ITシステムに求められるものは時代のニーズに俊敏に応え、ビジネスPDCAを回せるシステムである。この要請に応えられるITシステム開発のキーとなる「内製化」について、トレンド研究や事例を通して共に考えていくシンポジウムとなった。

最初の講演は、元日経コンピュータ編集長であり現日経BP総合研究所・主席研究員の谷島宣之氏による「なぜ今システム内製か　～損得と実現性をとことん考える～」。

IT関係者に広く読まれてきた連載「動かないコンピュータ」を長年担当し、動かないコンピュータ撲滅のための10カ条をまとめるなど、ITシステム開発に造詣の深い谷島氏は、システム内製の「得」として、

・企業優位につながり、状況に応じて業務とシステムを改善し続けられる高い価値

・業務を知っている人の参画による低コスト

・自分の業務が自分で改善できる楽しさ

を挙げた。

第8回　Webサーバーを作る（Apache）

投稿日：2017.10.20　｜　カテゴリー：　記事

今回はインターネットの定番といえるWebサーバーを構築します。Linuxで動作するWebサーバーソフトはいくつかあります。最もシェアが大きく多機能な「Apache HTTP Server」、低リソースでも高速に動作する「nginx」（エンジンエックス）、HTTP/2のプロトコルに標準対応した「H2O」などです。ここでは、これらの中からApache HTTP Server（以下、Apache）を扱います（図1）

図1　Apache HTTP ServerによるWebサーバー

Vol.50

投稿日：2017.10.19　｜　カテゴリー：　バックナンバー

メインフレームやオフコンからUnix/Linuxシステムへの移行時に課題になるのが、事務処理用プログラミング言語「COBOL」（Common Business Oriented Language）で書かれたプログラム――。今号より開始した新連載「コボラーのためのユニケージ入門」では、Unix/Linuxシェルベースの開発手法「ユニケージ」によるスムーズな移行方法を紹介していきます。
また、連載「それプロのエバンジェリストから愛をこめて」では、この秋に登場する、Windows 10大型アップデート「Fall Creators Update」に含まれるLinux環境「Windows Subsyetem for Linux」（WSL）に注目。その概要を分かりやすく解説しています。
さらに、いつもユニークな実験を行う連載「スズラボ実験室」では、Raspberry Pi（ラズパイ）に温湿度センサーを接続し、Rubyプログラムを使って温度と湿度をデータベースに記録する方法を紹介しています。
このほか、scikit-learnの概要を紹介する連載「機械学習のココロ」など、盛りだくさんの内容になっています。

今月も読み応え十分のシェルスクリプトマガジンvol.50。お見逃しなく!

第7回　ファイルサーバーを作る（Samba）

投稿日：2017.10.13　｜　カテゴリー：　記事

今回からいくつかのサーバーを構築していきます。まずは、最も身近なファイルサーバーです。ファイルサーバーを構築するソフトとしては「Samba」があります（図1）。

図1　Sambaによるファイルサーバー

このSambaは、Windowsのファイルサーバーと互換性があり、NTドメインやActive Directoryにも対応しています。手早く使いたいなら、ワークグループのファイルサーバーとして動かすとよいでしょう。

第6回　リモートアクセス環境の構築（ホストベース認証）

投稿日：2017.10.6　｜　カテゴリー：　記事

前回はリモートアクセス環境でファイルを簡単にやり取りする方法を説明しました。今回は、リモートアクセス環境の最後として、特定のパソコンのみリモートアクセスを可能にする方法を紹介します。

ホストベース認証を利用する

ネットワークにつながったどのパソコンからでもユーザー名とパスワードだけでサーバーにリモートでアクセスできると便利です。しかし、多くのユーザーが接続されたネットワーク環境の場合はセキュリティ上不安です。特にインターネットからリモートアクセスを許可するには、第三者からの不正侵入などに備えなくてはいけません。
そこで「ホストベース認証」という方法を用います。連載第4回でSSHでは公開鍵暗号の方式を利用していると説明しました。サーバー側の公開鍵をリモートアクセス用パソコンが受け取り、その鍵と、ペアとなる鍵（秘密鍵）を使ってお互い暗号化することで通信できると解説しました。ホストベース認証では、パソコン側に秘密鍵、サーバー側にペアとなる公開鍵を配置します。パソコン側の鍵がサーバー側の公開鍵とペアでない限り、アクセスが許可されません（図1）。

図1　ホストベース認証によるアクセス許可/禁止

第5回　リモートアクセス環境の構築（ファイルの送受信）

投稿日：2017.09.29　｜　カテゴリー：　記事

前回はUbuntu Serverにリモートからアクセスする環境を構築しました。これでコマンドによる操作が可能になりました。今回は、Ubuntu Serverとリモートアクセス用パソコンとの間でファイルをやり取りする方法を紹介します。

SFTPやSCPでファイルを送受信する

Ubuntu Server内でSSHサーバーが稼働していれば、ファイル転送の「SFTP」（Ssh File Transfer Protocol）や、ファイルコピーの「SCP」（Secure CoPy）でファイルを送受信できます。ただし、リモートアクセス用のパソコン側にSCPやSFTPに対応したクライアントソフトが必要です。
Tera TermもSCPに対応しているため、SCPによるファイルの送受信ができますが使いやすいとはいえません。Windowsの場合、「WinSCP」という無料ソフトがあります。このソフトだと、ファイルやフォルダーをドラック＆ドロップするだけで送受信が可能です。
WinSCPの公式サイトにあるダウンロードページの「Installation package」リンクをクリックし、WinSCPのインストーラーファイル（2017年9月28日時点の最新版は「WinSCP-5.9.6-Setup.exe」）を入手して導入してください（図1）。

図1　WinSCPのインストーラー画面

シェルスクリプトマガジンvol.50 Web掲載記事まとめ

投稿日：2017.09.25　｜　カテゴリー：　記事

シェルスクリプトマガジンvol.50のWeb掲載部分まとめです。

04 コボラーによるコボラーのためのユニケージ入門「COBOL入門」/野村祐三
12 TechLION再録「愛されコミュニティの作り方」/ゲスト小島英揮・牧大輔・星野邦敏・平井則輔 MC 法林浩之・馮富久
18 アジャイル開発 Let’ Practice! 「アジャイル開発の本質」/熊野憲辰
22 スズラボ通信「Raspberry Pi 3 で湿温度計サーバを作ってみた」/すずきひろのぶ　コード掲載
28 法林浩之のFIGHTING TALKS/法林浩之
30 機械学習のココロ「Scikit-learnを使ってみよう」/石井一夫
35 中小企業手作りIT化奮戦記「MACアドレス、データリンク層とデフォルトゲートウェイ」/菅雄一　訂正情報
42 人間とコンピュータの可能性/大岩元
44 漢のUNIX「テストフレームワークkyua その2」/後藤大地　コード掲載
52 姐のBENTO
54 中小企業診断士が解説する、超実践的な会話術! 円滑コミュニケーションが世界を救う! /濱口誠一
56 それプロのエバンジェリストから愛をこめて「WSL秋の更新をチェック! 」/山本美穂
60 ITエンジニアのためのマーケッティング入門「デジタルマーケティングその2」/水間丈博
65 ユニケージ開発手法コードレビュー/湯本豊　コード掲載
70 バーティカルバーの極意/飯尾淳　コード掲載
78 詩「たっちすくりーん」/桑原滝弥・イケヤシロウ
80 香川大学SLPからお届け! 「フレームワークPhoenixを触ってみる後編」/清水赳(香川大SLP)　コード掲載
84 40歳から始める、オレとRubyプログラミング #20/しょっさん　コード掲載
92 UNIXネイティブの電子工作塾/大野浩之　コード掲載
96 Techパズル/gori.sh
98 幼稚さと甘やかしからの脱却は可能か/シェル魔人

シェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

UNIXネイティブの電子工作塾 vol.50掲載

投稿日：2017.09.23　｜　カテゴリー：　コード

著者：金沢大学　教授　大野浩之

　さて、少し間があいてしまいましたが、UNIX ネイティブの電子工作塾 e-Badge 篇第3 回です。
　この記事で本連載を初めて目にした方もいらっしゃると思いますので、今回に至る経緯を振り返ってみましょう。

https://github.com/shmag/gc4unix 上のコードもご参照ください（編集部）

本記事掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

tail -f /tmp/test001.log
| awk '{printf "%d,%d,%d,\r\n",($4=="ON")?255:0,($8=="ON")?255:0,($12=="ON")?255:0;fflush()}'
| sudo cu -s 57600 -l /dev/cu.usbmodem1411 \
| awk -F, '{if (/^V/){printf "[%04d] %4d %4d %4s | %4d %4d %4s | %4d %4d %4s |\r\n", NR,$2,$3,$4,$5,$6,$7,$8,$9,$10}else {printf "# %s\r\n", $0}; fflush()}'
| tee -a /tmp/test001.log

1

2

3

4

5

tail -f /tmp/test001.log

| awk '{printf "%d,%d,%d,\r\n",($4=="ON")?255:0,($8=="ON")?255:0,($12=="ON")?255:0;fflush()}'

| sudo cu -s 57600 -l /dev/cu.usbmodem1411 \

| awk -F, '{if (/^V/){printf "[%04d] %4d %4d %4s | %4d %4d %4s | %4d %4d %4s |\r\n", NR,$2,$3,$4,$5,$6,$7,$8,$9,$10}else {printf "# %s\r\n", $0}; fflush()}'

| tee -a /tmp/test001.log

awk '{printf"%d,%d,%d,\r\n",($4=="ON")?255:0,($8=="ON")?255:0,($12=="ON")?255:0;fflush()}'

1	awk '{printf"%d,%d,%d,\r\n",($4=="ON")?255:0,($8=="ON")?255:0,($12=="ON")?255:0;fflush()}'

awk '{printf "%d,%d,%d,\r\n",256*($3/1024)**2.2,256*($7/1024)**2.2,256*($11/1024)**2.2; fflush()}

1	awk '{printf "%d,%d,%d,\r\n",256($3/1024)2.2,256($7/1024)*2.2,256($11/1024)**2.2; fflush()}

香川大学SLPからお届け！（vol.50掲載）

投稿日：2017.09.23　｜　カテゴリー：　コード

著者：清水赳（香川大学SLP）

Elixir製のWebアプリケーションフレームワーク Phoenixを触ってみる後編

こんにちは。香川大学工学部学部3 年の清水です。今回は、前回に引き続き、Elixir 製のWebアプリケーションフレームワーク Phoenix を紹介します。Elixir はRuby によく似た文法を持っています。更にPhoenix は、MVC
フレームワークを採用するなど、Ruby on Rails に大きく影響を受けています。その他にも影響を受けた点は多く、非常に近い感覚でコーディングが行えます。
前回はPhoenix の紹介として、モデルが1 つだけの簡単な掲示板アプリケーションを作成しました。今回はもう一歩踏み込んでみます。自分の蔵書を管理できるアプリケーションを作りながら、2 つ以上のモデルを関連付ける方法を紹介します。

記事本文掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

schema "genres" do
 has_many :books, Bookcollection.Book, on_delete: :delete_all # この行を追加
 field :name, :string

 timestamps()
end

1

2

3

4

5

6

schema "genres" do

has_many :books, Bookcollection.Book, on_delete: :delete_all # この行を追加

field :name, :string

timestamps()

end

schema "books" do
 field :title, :string
 field :isbn, :string
 field :store_loc, :string
 field :genre_id, :integer # この行を削除
 belongs_to :genre, Bookcollection.Genre, foreign_key: :genre_id # この行を追加
 timestamps()
end

1

2

3

4

5

6

7

8

schema "books" do

field :title, :string

field :isbn, :string

field :store_loc, :string

field :genre_id, :integer # この行を削除

belongs_to :genre, Bookcollection.Genre, foreign_key: :genre_id # この行を追加

timestamps()

end

scope "/", Bookcollection do
 pipe_through :browser # Use the default browser stack
 get "/", PageController, :index # この行を削除する
 resources "/books", BookController # この行を追加する
 resources "/genres", GenreController # この行を追加する
end

1

2

3

4

5

6

scope "/", Bookcollection do

pipe_through :browser # Use the default browser stack

get "/", PageController, :index # この行を削除する

resources "/books", BookController # この行を追加する

resources "/genres", GenreController # この行を追加する

end

defmodule Bookcollection.GenreController do
 use Bookcollection.Web, :controller

 def index(conn, _params) do
   genres = Repo.all(Bookcollection.Genre)
   render conn, "index.html", genres: genres
 end

 def new(conn, _params) do
   genre = Bookcollection.Genre.changeset(%Bookcollection.Genre{}, %{})
   render conn, "new.html", genre: genre
 end

 def create(conn, _params) do
   genre = Bookcollection.Genre.changeset(%Bookcollection.Genre{}, _params["genre"])
   case Repo.insert(genre) do
     {:ok, genre} ->
       redirect conn, to: "/genres"
     {:error, genre} ->
       render(conn, "new.html", genre: genre)
   end
 end

 def delete(conn, _params) do
   genre = Repo.get(Bookcollection.Genre, _params["id"])
   Repo.delete_all(from(b in Bookcollection.Book, where:b.genre_id == ^genre.id))
   Repo.delete(genre)
   redirect conn, to: "/genres"
 end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

defmodule Bookcollection.GenreController do

use Bookcollection.Web, :controller

def index(conn, _params) do

genres = Repo.all(Bookcollection.Genre)

render conn, "index.html", genres: genres

end

def new(conn, _params) do

genre = Bookcollection.Genre.changeset(%Bookcollection.Genre{}, %{})

render conn, "new.html", genre: genre

end

def create(conn, _params) do

genre = Bookcollection.Genre.changeset(%Bookcollection.Genre{}, _params["genre"])

case Repo.insert(genre) do

{:ok, genre} ->

redirect conn, to: "/genres"

{:error, genre} ->

render(conn, "new.html", genre: genre)

end

def delete(conn, _params) do

genre = Repo.get(Bookcollection.Genre, _params["id"])

Repo.delete_all(from(b in Bookcollection.Book, where:b.genre_id == ^genre.id))

Repo.delete(genre)

redirect conn, to: "/genres"

end

defmodule Bookcollection.BookController do
 use Bookcollection.Web, :controller

 def index(conn, _params) do
   books = Repo.all(Bookcollection.Book)
   render conn, "index.html", books: books
 end

 def new(conn, _params) do
   book = Bookcollection.Book.changeset(%Bookcollection.Book{}, %{})
   genre = Enum.map(Repo.all(Bookcollection.Genre), &{&1.name, &1.id})
   render conn, "new.html", book: book, genre: genre
 end

 def create(conn, _params) do
   book = Bookcollection.Book.changeset(%Bookcollection.Book{}, _params["book"])
   case Repo.insert(book) do
     {:ok, book} ->
       redirect conn, to: "/books"
     {:error, book} ->
       genre = Enum.map(Repo.all(Bookcollection.Genre),&{&1.name, &1.id})
       render(conn, "new.html", book: book, genre: genre
)
   end
 end

 def delete(conn, _params) do
   book = Repo.get(Bookcollection.Book, _params["id"])
   Repo.delete(book)
   redirect conn, to: "/books"
 end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

defmodule Bookcollection.BookController do

use Bookcollection.Web, :controller

def index(conn, _params) do

books = Repo.all(Bookcollection.Book)

render conn, "index.html", books: books

end

def new(conn, _params) do

book = Bookcollection.Book.changeset(%Bookcollection.Book{}, %{})

genre = Enum.map(Repo.all(Bookcollection.Genre), &{&1.name, &1.id})

render conn, "new.html", book: book, genre: genre

end

def create(conn, _params) do

book = Bookcollection.Book.changeset(%Bookcollection.Book{}, _params["book"])

case Repo.insert(book) do

{:ok, book} ->

redirect conn, to: "/books"

{:error, book} ->

genre = Enum.map(Repo.all(Bookcollection.Genre),&{&1.name, &1.id})

render(conn, "new.html", book: book, genre: genre

)

end

def delete(conn, _params) do

book = Repo.get(Bookcollection.Book, _params["id"])

Repo.delete(book)

redirect conn, to: "/books"

end

defmodule Bookcollection.BookView do
 use Bookcollection.Web, :view
end

1

2

3

defmodule Bookcollection.BookView do

use Bookcollection.Web, :view

end

defmodule Bookcollection.GenreView do
use Bookcollection.Web, :view
end

1

2

3

defmodule Bookcollection.GenreView do

use Bookcollection.Web, :view

end

<%= for book <- @books do %> <% end %>

<%= book.title %>

<%= link ” 削除”, to: book_path(@conn, :delete,book.id), method: :delete %>

蔵書の新規登録

<%= form_for @book, book_path(@conn, :create), fn f ->%>

タイトル <%= text_input f, :title, placeholder: ” タイトル”,class: “form-control” %>

ISBN <%= text_input f, :isbn, placeholder: “ISBN”, class:”form-control” %>

蔵書の場所 <%= text_input f, :store_loc, placeholder: ” 蔵書の場所”, class: “form-control” %>

<%= select f, :genre_id, @genre %>

<%= submit ” 登録” %>

<% end %>

<%= for genre <- @genres do %> <% end %>

<%= genre.name %>

<%= link ” 削除”, to: genre_path(@conn, :delete, genre.id), method: :delete %>

ジャンルの作成

<%= form_for @genre, genre_path(@conn, :create), fn f-> %>

<%= text_input f, :name, placeholder: ” ジャンル名”,class: “form-control” %>

<%= submit ” 作成” %>

<% end %>

ユニケージ開発手法　コードレビュー　vol.39（本誌vol.50掲載）

投稿日：2017.09.23　｜　カテゴリー：　コード

著者：湯本豊

今回は、固定長ファイルの変換について説明します。

記事本文掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

#!/bin/bash
# プログラム名 :固定長ファイル変換（フィールド型→固定長）
# 概要 :フィールド型のファイルを固定長に変換する
# 備考(Usage) :TRANS.TO_KOTEICHO [ファイル名]
# 作成日 :20xx/xx/xx
# 会社名 :Usp-lab
# 作成者 :xxx
8#///////////////////////////////////////////////////////////////////////////////
# 初期設定
#///////////////////////////////////////////////////////////////////////////////
#＜中略＞

#-------------------------------------------------------------------------------
# 変数の定義
#-------------------------------------------------------------------------------
home=~
tmp=/tmp/$$-$(basename $0)_$(date +%Y%m%d%H%M%S) # 一時ファイル

# 引数の確認
[ $# -ne 1 ] && exit 1

#///////////////////////////////////////////////////////////////////////////////
# 処理部
#///////////////////////////////////////////////////////////////////////////////

# 引数よりファイル名取得
filename=$1

# 固定長ファイルフォーマット
# 1:項目名 2:開始位置 3:終了位置 4:桁数 5:種別（C:コード/T:文字/N:数値）
# 商品コード 1 10 10 C
# 商品名 11 30 20 T
# 単価 31 40 10 N

# 数値データの前を0で埋める
maezero 3.10 $filename |
# 文字データの後ろをアンダーバーで埋める
awk '{$2=$2"____________________";print}' |
self 1 2.1.20 3 |
# データを固定長に連結
tr -d " " |
# アンダーバーを半角スペース変換
tr "_" " " |
# 文字コード変換（UTF-8→SJIS）
uconv -utos > $tmp-data

# 結果を標準出力
cat $tmp-data

#///////////////////////////////////////////////////////////////////////////////
# 終了
#///////////////////////////////////////////////////////////////////////////////
rm -rf ${tmp}-*
exit 0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

#!/bin/bash

# プログラム名 :固定長ファイル変換（フィールド型→固定長）

# 概要 :フィールド型のファイルを固定長に変換する

# 備考(Usage) :TRANS.TO_KOTEICHO [ファイル名]

# 作成日 :20xx/xx/xx

# 会社名 :Usp-lab

# 作成者 :xxx

8#///////////////////////////////////////////////////////////////////////////////

# 初期設定

#///////////////////////////////////////////////////////////////////////////////

#＜中略＞

#-------------------------------------------------------------------------------

# 変数の定義

#-------------------------------------------------------------------------------

home=~

tmp=/tmp/$$-$(basename $0)_$(date +%Y%m%d%H%M%S) # 一時ファイル

# 引数の確認

[ $# -ne 1 ] && exit 1

#///////////////////////////////////////////////////////////////////////////////

# 処理部

#///////////////////////////////////////////////////////////////////////////////

# 引数よりファイル名取得

filename=$1

# 固定長ファイルフォーマット

# 1:項目名 2:開始位置 3:終了位置 4:桁数 5:種別（C:コード/T:文字/N:数値）

# 商品コード 1 10 10 C

# 商品名 11 30 20 T

# 単価 31 40 10 N

# 数値データの前を0で埋める

maezero 3.10 $filename |

# 文字データの後ろをアンダーバーで埋める

awk '{$2=$2"____________________";print}' |

self 1 2.1.20 3 |

# データを固定長に連結

tr -d " " |

# アンダーバーを半角スペース変換

tr "_" " " |

# 文字コード変換（UTF-8→SJIS）

uconv -utos > $tmp-data

# 結果を標準出力

cat $tmp-data

#///////////////////////////////////////////////////////////////////////////////

# 終了

#///////////////////////////////////////////////////////////////////////////////

rm -rf ${tmp}-*

exit 0

#!/bin/bash
# プログラム名 :固定長ファイル変換（固定長→フィールド型）
# 概要 :固定長のファイルをフィールド型に変換する
# 備考(Usage) :TRANS.FROM_KOTEICHO [ファイル名]
# 作成日 :20xx/xx/xx
# 会社名 :Usp-lab
# 作成者 :xxx

#///////////////////////////////////////////////////////////////////////////////
# 初期設定
#///////////////////////////////////////////////////////////////////////////////
#＜中略＞

#-------------------------------------------------------------------------------
# 変数の定義
#-------------------------------------------------------------------------------
home=~
tmp=/tmp/$$-$(basename $0)_$(date +%Y%m%d%H%M%S) # 一時ファイル

# 引数の確認
[ $# -ne 1 ] && exit 1

#///////////////////////////////////////////////////////////////////////////////
# 処理部
#///////////////////////////////////////////////////////////////////////////////

# 引数よりファイル名取得
filename=$1

# 固定長ファイルフォーマット
# 1:項目名 2:開始位置 3:終了位置 4:桁数 5:種別（C:コード/T:文字/N:数値）
# 商品コード 1 10 10 C
# 商品名 11 30 20 T
# 単価 31 40 10 N

# 文字コード変換（SJIS→UTF-8）
uconv -stou $filename |
# 半角スペースをアンダーバーに変換
tr " " "_" |
# 固定長ファイルを分割
self 1.1.10 1.11.20 1.31.10 |
# アンダーバーを削除
unsco |
# 単価の前0を削除
1bai 3 > $tmp-data

# 結果を標準出力
cat $tmp-data

#///////////////////////////////////////////////////////////////////////////////
# 終了
#///////////////////////////////////////////////////////////////////////////////
rm -rf ${tmp}-*
exit 0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

#!/bin/bash

# プログラム名 :固定長ファイル変換（固定長→フィールド型）

# 概要 :固定長のファイルをフィールド型に変換する

# 備考(Usage) :TRANS.FROM_KOTEICHO [ファイル名]

# 作成日 :20xx/xx/xx

# 会社名 :Usp-lab

# 作成者 :xxx

#///////////////////////////////////////////////////////////////////////////////

# 初期設定

#///////////////////////////////////////////////////////////////////////////////

#＜中略＞

#-------------------------------------------------------------------------------

# 変数の定義

#-------------------------------------------------------------------------------

home=~

tmp=/tmp/$$-$(basename $0)_$(date +%Y%m%d%H%M%S) # 一時ファイル

# 引数の確認

[ $# -ne 1 ] && exit 1

#///////////////////////////////////////////////////////////////////////////////

# 処理部

#///////////////////////////////////////////////////////////////////////////////

# 引数よりファイル名取得

filename=$1

# 固定長ファイルフォーマット

# 1:項目名 2:開始位置 3:終了位置 4:桁数 5:種別（C:コード/T:文字/N:数値）

# 商品コード 1 10 10 C

# 商品名 11 30 20 T

# 単価 31 40 10 N

# 文字コード変換（SJIS→UTF-8）

uconv -stou $filename |

# 半角スペースをアンダーバーに変換

tr " " "_" |

# 固定長ファイルを分割

self 1.1.10 1.11.20 1.31.10 |

# アンダーバーを削除

unsco |

# 単価の前0を削除

1bai 3 > $tmp-data

# 結果を標準出力

cat $tmp-data

#///////////////////////////////////////////////////////////////////////////////

# 終了

#///////////////////////////////////////////////////////////////////////////////

rm -rf ${tmp}-*

exit 0

スズラボ通信　３５　（本誌vol.50掲載）

投稿日：2017.09.23　｜　カテゴリー：　コード

著者：すずきひろのぶ

今回はRaspberry Pi 3 ( 以下 RPi3 ) で湿温度計サーバを作ってみました。製作目標は次の通りです。
1. 湿温センサーから湿度と温度の値を取り込む。
2. その値をデータベースに記録する。
3. Web インタフェースで過去の情報や変化などにアクセスできるようにする。
IoT 的な例題としてはちょうどいいサイズの内容です。

記事本文掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

require 'rubygems'
require 'i2c'
require 'date'
require 'digest/crc16_modbus'
require 'sqlite3'
device = I2C.create("/dev/i2c-1")
address = 0x5c
loop do
  sleep(0.05)
  s=nil
  begin
    s = device.read(address, 8, "\x03\x00\x04")
  rescue
    next
  end
  func_code, ret_len, hum_h, hum_l, temp_h, temp_l, crc_l, crc_h = s.bytes.to_a
  crc16a=Digest::CRC16Modbus.checksum(s[0,6])
  crc16b=(crc_h * 256) + crc_l
  if crc16a != crc16b
    puts "CRC error"
    next
  end
  db = SQLite3::Database.new("humtemp.db")
  hum_orig = (hum_h *256 + hum_l)
  temp_orig = (temp_h *256 + temp_l)
  puts Time.now
  puts hum_orig/10.0
  puts temp_orig/10.0
  db.transaction do
    sql = "INSERT INTO humtemp(DTIME,HUM,TEMP)  VALUES(datetime('now'), ?, ?)"
    db.execute(sql, hum_orig, temp_orig)
  end
  db.close
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

require 'rubygems'

require 'i2c'

require 'date'

require 'digest/crc16_modbus'

require 'sqlite3'

device = I2C.create("/dev/i2c-1")

address = 0x5c

loop do

sleep(0.05)

s=nil

begin

s = device.read(address, 8, "\x03\x00\x04")

rescue

func_code, ret_len, hum_h, hum_l, temp_h, temp_l, crc_l, crc_h = s.bytes.to_a

crc16a=Digest::CRC16Modbus.checksum(s[0,6])

crc16b=(crc_h * 256) + crc_l

if crc16a != crc16b

puts "CRC error"

db = SQLite3::Database.new("humtemp.db")

hum_orig = (hum_h *256 + hum_l)

temp_orig = (temp_h *256 + temp_l)

puts Time.now

puts hum_orig/10.0

puts temp_orig/10.0

db.transaction do

sql = "INSERT INTO humtemp(DTIME,HUM,TEMP) VALUES(datetime('now'), ?, ?)"

db.execute(sql, hum_orig, temp_orig)

end

db.close

end

バーティカルバーの極意第四回 (vol.50掲載)

投稿日：2017.09.23　｜　カテゴリー：　コード

著者：中央大学　教授　飯尾淳

今回のテーマは、前回に引き続き、自然言語処理を応用したデータ分析です。サンプルデータの距離 | x | を利用してクラスタリングを行います。近い距離にあるデータを樹形図でまとめ、デンドログラムに表します。
さて、前回の記事では、インターネットのコラム記事をまとめてダウンロードし、各記事のファイル名を扱いやすい形式に変更するところまで説明しました。
今回は、そのデータから必要な部分を切り出してテキストファイルに変換、変換したデータを形態素解析で分析します。形態素解析の結果から単語を抽出し、出現頻度ベクトルを求めてデータ間の距離を計算します。最終的な成果物はその距離に基づいたデンドログラムです。そのデンドログラム上で最後にスパッとバーティカルバーを引くことで、データのクラスタリングが完成します。
はてさて、適切に分類することはできたでしょうか。

前回記事掲載コードもご参照ください（編集部）

記事本文掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

#!/usr/bin/ruby
# encoding: utf-8

wordTable = {}

label = ARGV[0]
print label.sub(/WRD\//, "")
.sub(/.dat/,"")
.sub(/^[0-9][0-9]_/, "").gsub(/_/, " ")

open("freq_5.csv").each {|word|
word.chomp!
wordTable[word] = 0
}

open(ARGV[0]).each {|line|
line.chomp!
if wordTable.key?(line) then
wordTable[line] = wordTable[line] + 1
end
}

wordTable.each {|key,val|
print ",#{val}"
}
print "\n"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

#!/usr/bin/ruby

# encoding: utf-8

wordTable = {}

label = ARGV[0]

print label.sub(/WRD\//, "")

.sub(/.dat/,"")

.sub(/^[0-9][0-9]_/, "").gsub(/_/, " ")

open("freq_5.csv").each {|word|

word.chomp!

wordTable[word] = 0

}

open(ARGV[0]).each {|line|

line.chomp!

if wordTable.key?(line) then

wordTable[line] = wordTable[line] + 1

end

}

wordTable.each {|key,val|

print ",#{val}"

}

print "\n"

x <- read.csv("all.csv", header=F, row.names=1)
d <- dist(x)
clst <- hclust(d, method="ward.D")
png("cluster.png", width=6000, height=3000)
par(ps=64, lwd=5)
plot (clst, main="", sub="", xlab="", ylab="", axes=F)
dev.off()

1

2

3

4

5

6

7

x <- read.csv("all.csv", header=F, row.names=1)

d <- dist(x)

clst <- hclust(d, method="ward.D")

png("cluster.png", width=6000, height=3000)

par(ps=64, lwd=5)

plot (clst, main="", sub="", xlab="", ylab="", axes=F)

dev.off()

第4回　リモートアクセス環境の構築（SSHとターミナルマルチプレクサー）

投稿日：2017.09.22　｜　カテゴリー：　記事

前回サーバーの初期設定までを終えたので、今回は普段使っているパソコンからUbuntu Serverを操作するためのリモートアクセス環境を構築します。リモートアクセスの通信には「SSH」（Secure Shell）を利用します。このSSHではクライアントとサーバー間で通信内容を暗号化できます。そのため、盗聴などを防ぐことが可能です（図1）。

図1　SSHによる暗号化通信

SSHサーバーを導入・起動する

本連載でインストールしたUbuntu Serverには、SSHサーバーが導入されていません。Ubuntu Serverをインストールしたパソコンの電源を投入してログインしたら、次のコマンドを実行します。

$ export LANG=C
$ sudo apt update
$ sudo apt install ssh

1

2

3

$ export LANG=C

$ sudo apt update

$ sudo apt install ssh

最初の二つは前回も実行しましたが、英語表示に切り替えるコマンドと、パッケージ情報を更新するコマンドです。最後がSSHサーバーを含む関連パッケージをインストールするコマンドになります。
インストール完了後に、SSHサーバーが自動で起動します。これでリモートからの操作が可能になり、少し使いづらかったUbuntu Serverの（端末）画面を直接操作せずに済みます。

40歳から始める、オレとRubyプログラミング（vol.50掲載）

投稿日：2017.09.20　｜　カテゴリー：　コード

著者：しょっさん

　梅雨も明けて、さぁ夏本番、と思ったら雨がしとしと続く2017年夏です。梅雨が戻ってきたかのようですね。夏場は暑いから外出は控えてきたものですが、今年は、雨で外に出られない涼しい夏を過ごしています。こんな時は、部屋に引きこもってプログラミングですね。体調崩さないよう、今回も頑張ってプログラムを学んでいきましょう。
記事本文掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

$ git clone -b ruby020 https://github.com/40ruby/reins.git

1	$ git clone -b ruby020 https://github.com/40ruby/reins.git

$ git clone -b ruby020 https://github.com/40ruby/reins_agent.git

1	$ git clone -b ruby020 https://github.com/40ruby/reins_agent.git

$ rubocop lib/reins/host_registry.rb
Inspecting 1 file
W

Offenses:

lib/reins/host_registry.rb:2:1: C: Add an empty line after magic comments.
require 'csv'
^
lib/reins/host_registry.rb:16:17: C: Operator = should be surrounded by a single space.
      @hosts    =  File.exists?(@filename) ? CSV.read(@filename) : []
                ^
（中略）
lib/reins/host_registry.rb:125:9: C: Redundant return detected.
        return addr
        ^^^^^^
lib/reins/host_registry.rb:127:14: C: Do not use :: for method calls.
        Reins::logger.warn("#{addr} が見つかりません.")
             ^^
lib/reins/host_registry.rb:128:9: C: Redundant return detected.
        return nil
        ^^^^^^

1 file inspected, 33 offenses detected

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

$ rubocop lib/reins/host_registry.rb

Inspecting 1 file

W

Offenses:

lib/reins/host_registry.rb:2:1: C: Add an empty line after magic comments.

require 'csv'

^

lib/reins/host_registry.rb:16:17: C: Operator = should be surrounded by a single space.

@hosts = File.exists?(@filename) ? CSV.read(@filename) : []

^

（中略）

lib/reins/host_registry.rb:125:9: C: Redundant return detected.

return addr

^^^^^^

lib/reins/host_registry.rb:127:14: C: Do not use :: for method calls.

Reins::logger.warn("#{addr} が見つかりません.")

^^

lib/reins/host_registry.rb:128:9: C: Redundant return detected.

return nil

^^^^^^

1 file inspected, 33 offenses detected

# 該当のディレクトリ以下のファイルは対象外
AllCops:
  Exclude:
    - bin/*
    - db/schema.rb
    - db/migrate/*
    - vendor/**/*

# "Missing top-level class documentation comment."を無効
Style/Documentation:
  Enabled: false

# "Use only ascii symbols in comment."を無効
Style/AsciiComments:
  Enabled: false

# "Prefer single-quoted strings when you don't need string interpolation or special symbols."を無効
Style/StringLiterals:
  Enabled: false

# "Line is too long"を無効
Metrics/LineLength:
  Enabled: false

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

# 該当のディレクトリ以下のファイルは対象外

AllCops:

Exclude:

- bin/*

- db/schema.rb

- db/migrate/*

- vendor/**/*

# "Missing top-level class documentation comment."を無効

Style/Documentation:

Enabled: false

# "Use only ascii symbols in comment."を無効

Style/AsciiComments:

Enabled: false

# "Prefer single-quoted strings when you don't need string interpolation or special symbols."を無効

Style/StringLiterals:

Enabled: false

# "Line is too long"を無効

Metrics/LineLength:

Enabled: false

module Reins
  VERSION = "0.2.0".freeze
end

1

2

3

module Reins

VERSION = "0.2.0".freeze

end

# coding: utf-8

# filename: dispatcher.rb
module Reins
  class Dispatch
    # 対象となるクライアントのIPアドレスを保持
    # == パラメータ
    # ip:: 対象となるクライアントのIPアドレス
    # == 返り値
    # 特になし
    def initialize(ip, key)
      @ip_address = ip
      @keycode    = key
    end

    # コマンドを受け取って、対象の機能へ振り分ける
    # == パラメータ
    # comm:: クライアントからの要求コマンド
    # value:: コマンドの実行に必要な引数
    # == 返り値
    # exception:: 失敗した場合
    # exception以外:: コマンドの実行結果
    def command(comm, value)
      Reins.logger.debug("#{comm}(#{value}) : 指定のコマンドへディスパッチします")
      case comm
      when /^add/
        Reins.regist_host.create(@ip_address, @key)
      when /^list/
        Reins.regist_host.read_hosts
      when /^delete/
        Reins.regist_host.delete(@ip_address)
      end
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

# coding: utf-8

# filename: dispatcher.rb

module Reins

class Dispatch

# 対象となるクライアントのIPアドレスを保持

# == パラメータ

# ip:: 対象となるクライアントのIPアドレス

# == 返り値

# 特になし

def initialize(ip, key)

@ip_address = ip

@keycode = key

end

# コマンドを受け取って、対象の機能へ振り分ける

# == パラメータ

# comm:: クライアントからの要求コマンド

# value:: コマンドの実行に必要な引数

# == 返り値

# exception:: 失敗した場合

# exception以外:: コマンドの実行結果

def command(comm, value)

Reins.logger.debug("#{comm}(#{value}) : 指定のコマンドへディスパッチします")

case comm

when /^add/

Reins.regist_host.create(@ip_address, @key)

when /^list/

Reins.regist_host.read_hosts

when /^delete/

Reins.regist_host.delete(@ip_address)

end

    end

    # メモリ上のアドレスリストを、ファイルへ保管する
    # == パラメータ
    # filename:: 保管先ファイル名。指定がない場合は、初期化時に採用したファイル名
    def store(filename = @filename)
      Reins.logger.debug("#{filename} : ホスト一覧を保存します")
      CSV.open(filename, "w") do |csv|
        @hosts.each do |addr|
          Reins.logger.debug("保管中... ] #{addr}")
          csv << addr
        end
      end
    end

    # 登録可能かどうかを検査する
    # == パラメータ
    # ipaddr:: 検査するIPアドレス
    # == 返り値
    # IPアドレス:: 登録可能な場合 IPアドレスを返す
    # false:: 登録不可
    def varid_ip?(ipaddr)
      addr = IPAddr.new(ipaddr).native.to_s
      read_hosts.include?(addr) ? false : addr
    rescue => e
      Reins.logger.error("#{e}: #{ipaddr} は登録可能なIPアドレスではありません.")
      false
    end

    # アドレスを新規に登録する。既に登録済みのものであれば登録しない。
    # == パラメータ
    # ipaddr:: 登録するIPアドレス
    # key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ
    # == 返り値
    # true::  登録できた
    # false:: 既に同じアドレスまたはIPアドレスではないため、登録せず
    def create(ipaddr, key)
      if (addr = varid_ip?(ipaddr))
        @hosts << [addr, key, Time.now.getlocal]
        Reins.logger.info("#{addr} を追加しました")
        store
        true
      else
        false
      end
    end

    # 登録済みホスト一覧を、IPアドレスをKey、接続KeyをValueとするハッシュで返す
    # == 返り値
    # hash: hash[ipアドレス] = key を一つの要素とする
    def read_hostkeys
      @hosts.each.map { |addr, key| [addr, key] }.to_h
    end

    # 登録済みホスト一覧を配列で返す
    # == 返り値
    # array: 登録済みのIPアドレス一覧
    def read_hosts
      read_hostkeys.keys
    end

    # 登録済みのアドレスを削除する
    # == パラメータ
    # addr: 削除対象のアドレス
    # == 返り値
    # string:: 削除された要素
    # nil::    削除すべき要素が見つからなかったとき
    def delete(addr)
      if (i = read_hosts.index(addr))
        @hosts.delete_at(i)
        Reins.logger.info("#{addr} を削除しました.")
        store
        addr
      else
        Reins.logger.warn("#{addr} が見つかりません.")
        nil
      end
    end

    # まだアドレスが登録されていないかどうか
    # == 返り値
    # true::  アドレス未登録
    # false:: 1つ以上のアドレスが登録済み
    def empty?
      @hosts.empty?
    end
  end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

end

# メモリ上のアドレスリストを、ファイルへ保管する

# == パラメータ

# filename:: 保管先ファイル名。指定がない場合は、初期化時に採用したファイル名

def store(filename = @filename)

Reins.logger.debug("#{filename} : ホスト一覧を保存します")

CSV.open(filename, "w") do |csv|

@hosts.each do |addr|

Reins.logger.debug("保管中... ] #{addr}")

csv << addr

end

# 登録可能かどうかを検査する

# == パラメータ

# ipaddr:: 検査するIPアドレス

# == 返り値

# IPアドレス:: 登録可能な場合 IPアドレスを返す

# false:: 登録不可

def varid_ip?(ipaddr)

addr = IPAddr.new(ipaddr).native.to_s

read_hosts.include?(addr) ? false : addr

rescue => e

Reins.logger.error("#{e}: #{ipaddr} は登録可能なIPアドレスではありません.")

false

end

# アドレスを新規に登録する。既に登録済みのものであれば登録しない。

# == パラメータ

# ipaddr:: 登録するIPアドレス

# key:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ

# == 返り値

# true:: 登録できた

# false:: 既に同じアドレスまたはIPアドレスではないため、登録せず

def create(ipaddr, key)

if (addr = varid_ip?(ipaddr))

@hosts << [addr, key, Time.now.getlocal]

Reins.logger.info("#{addr} を追加しました")

store

true

else

false

end

# 登録済みホスト一覧を、IPアドレスをKey、接続KeyをValueとするハッシュで返す

# == 返り値

# hash: hash[ipアドレス] = key を一つの要素とする

def read_hostkeys

@hosts.each.map { |addr, key| [addr, key] }.to_h

end

# 登録済みホスト一覧を配列で返す

# == 返り値

# array: 登録済みのIPアドレス一覧

def read_hosts

read_hostkeys.keys

end

# 登録済みのアドレスを削除する

# == パラメータ

# addr: 削除対象のアドレス

# == 返り値

# string:: 削除された要素

# nil:: 削除すべき要素が見つからなかったとき

def delete(addr)

if (i = read_hosts.index(addr))

@hosts.delete_at(i)

Reins.logger.info("#{addr} を削除しました.")

store

addr

else

Reins.logger.warn("#{addr} が見つかりません.")

nil

end

# まだアドレスが登録されていないかどうか

# == 返り値

# true:: アドレス未登録

# false:: 1つ以上のアドレスが登録済み

def empty?

@hosts.empty?

end

# coding: utf-8

# filename: lib/reins.rb

require "reins/version"
require "reins/dispatcher"
require "reins/auth_service"
require "reins/host_registry"
require "reins/task_control"
require "reins/config"

require "socket"
require "ipaddr"

module Reins
  class << self
    # 指定されたポートでサーバを起動する
    # == パラメータ
    # port:: 割り当てるポート番号
    # == 返り値
    # Exception:: サーバが起動できなかった場合、例外を発生させ起動させない
    # TCPSocket:: 正常に起動した場合、Socket オブジェクトを返す
    def run_server(port)
      Reins.logger.info("Reins #{VERSION} を #{port} で起動します")
      TCPServer.new(port)
    rescue => e
      Reins.logger.error("Reins が起動できませんでした: #{e}")
      puts(e.to_s)
      exit
    end

    # 起動されているサーバを停止する
    # == パラメータ
    # server:: 起動中のサーバの Socket
    # == 返り値
    # 特になし
    def exit_server(server)
      Reins.logger.info("Reins #{VERSION} を終了します")
      Reins.regist_host.store
      server.close
      exit
    end
  end

  class Clients
    attr_reader :command
    def initialize(client)
      @keycode, @command, @options = client.gets.chomp.split
      @addr = IPAddr.new(client.peeraddr[3]).native.to_s
      Reins.logger.debug("addr = #{@addr}, keycode = #{@keycode}, command = #{@command}, options = #{@options}")
    end

    # 認証処理を行う
    # == パラメータ
    # 特になし
    # == 返り値
    # key:: 認証が成功した場合は接続用の認証キーを返す
    # false:: 認証が失敗した時は "false" 文字列を返す
    def run_auth
      Reins.logger.debug("#{@addr} : 認証を行います")
      if (key = Reins.auth_service.authenticate_key(@keycode, @addr))
        if key == true
          Reins.regist_host.read_hostkeys[@addr]
        else
          Reins.regist_host.create(@addr, key) ? key : "false"
        end
      else
        "false"
      end
    end

    # サーバで実行されるコマンドを受け渡す
    # == パラメータ
    # 特になし
    # == 返り値
    # false:: 実行できなければ "false" 文字列を返す
    # false以外:: 実行された結果を、改行を含む文字列で返す
    def run_command
      if Reins.auth_service.varid?(@keycode) == @addr
        Reins::Dispatch.new(@addr, @keycode).command(@command, @options)
      else
        "false"
      end
    end
  end

  def start
    server = run_server(Reins.port)

    loop do
      begin
        Thread.start(server.accept) do |c|
          client = Reins::Clients.new(c)
          c.puts client.command == 'auth' ? client.run_auth : client.run_command
          c.close
        end
      rescue Interrupt
        exit_server(server)
      end
    end
  end

  module_function :start
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

# coding: utf-8

# filename: lib/reins.rb

require "reins/version"

require "reins/dispatcher"

require "reins/auth_service"

require "reins/host_registry"

require "reins/task_control"

require "reins/config"

require "socket"

require "ipaddr"

module Reins

class << self

# 指定されたポートでサーバを起動する

# == パラメータ

# port:: 割り当てるポート番号

# == 返り値

# Exception:: サーバが起動できなかった場合、例外を発生させ起動させない

# TCPSocket:: 正常に起動した場合、Socket オブジェクトを返す

def run_server(port)

Reins.logger.info("Reins #{VERSION} を #{port} で起動します")

TCPServer.new(port)

rescue => e

Reins.logger.error("Reins が起動できませんでした: #{e}")

puts(e.to_s)

exit

end

# 起動されているサーバを停止する

# == パラメータ

# server:: 起動中のサーバの Socket

# == 返り値

# 特になし

def exit_server(server)

Reins.logger.info("Reins #{VERSION} を終了します")

Reins.regist_host.store

server.close

exit

end

class Clients

attr_reader :command

def initialize(client)

@keycode, @command, @options = client.gets.chomp.split

@addr = IPAddr.new(client.peeraddr[3]).native.to_s

Reins.logger.debug("addr = #{@addr}, keycode = #{@keycode}, command = #{@command}, options = #{@options}")

end

# 認証処理を行う

# == パラメータ

# 特になし

# == 返り値

# key:: 認証が成功した場合は接続用の認証キーを返す

# false:: 認証が失敗した時は "false" 文字列を返す

def run_auth

Reins.logger.debug("#{@addr} : 認証を行います")

if (key = Reins.auth_service.authenticate_key(@keycode, @addr))

if key == true

Reins.regist_host.read_hostkeys[@addr]

else

Reins.regist_host.create(@addr, key) ? key : "false"

end

else

"false"

end

# サーバで実行されるコマンドを受け渡す

# == パラメータ

# 特になし

# == 返り値

# false:: 実行できなければ "false" 文字列を返す

# false以外:: 実行された結果を、改行を含む文字列で返す

def run_command

if Reins.auth_service.varid?(@keycode) == @addr

Reins::Dispatch.new(@addr, @keycode).command(@command, @options)

else

"false"

end

def start

server = run_server(Reins.port)

loop do

begin

Thread.start(server.accept) do |c|

client = Reins::Clients.new(c)

c.puts client.command == 'auth' ? client.run_auth : client.run_command

c.close

end

rescue Interrupt

exit_server(server)

end

module_function :start

end

# coding: utf-8

# filename: config.rb
require 'logger'

module ReinsAgent
  class << self
    attr_accessor :logger, :client_key, :client_port, :server_host, :server_port

    def configure
      yield self
    end
  end
end

ReinsAgent.configure do |config|
  config.logger      = Logger.new(ENV['REINS_AGENT_LOGGER'] || "/tmp/reins_agent.log")
  config.client_key  = ENV['REINS_AGENT_KEY']  || "40ruby"
  config.client_port = ENV['REINS_AGENT_PORT'] || 24_368
  config.server_host = ENV['REINS_SERVER_HOST'] || "127.0.0.1"
  config.server_port = ENV['REINS_PORT'] || 16_383
end

ReinsAgent.logger.level = ENV['REINS_AGENT_LOGLEVEL'] ? eval("Logger::#{ENV['REINS_AGENT_LOGLEVEL']}") : Logger::WARN

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

# coding: utf-8

# filename: config.rb

require 'logger'

module ReinsAgent

class << self

attr_accessor :logger, :client_key, :client_port, :server_host, :server_port

def configure

yield self

end

ReinsAgent.configure do |config|

config.logger = Logger.new(ENV['REINS_AGENT_LOGGER'] || "/tmp/reins_agent.log")

config.client_key = ENV['REINS_AGENT_KEY'] || "40ruby"

config.client_port = ENV['REINS_AGENT_PORT'] || 24_368

config.server_host = ENV['REINS_SERVER_HOST'] || "127.0.0.1"

config.server_port = ENV['REINS_PORT'] || 16_383

end

ReinsAgent.logger.level = ENV['REINS_AGENT_LOGLEVEL'] ? eval("Logger::#{ENV['REINS_AGENT_LOGLEVEL']}") : Logger::WARN

# coding: utf-8

# filename: reins_agent.rb
require "reins_agent/config"
require "reins_agent/version"

require "ipaddr"
require "socket"

module ReinsAgent
  class << self
    def run_agent(port)
      ReinsAgent.logger.info("Reins Agent #{VERSION} を #{port} で起動します")
      throw unless (@cert_key = ReinsAgent.exec("#{ReinsAgent.client_key} auth").chomp)
      ReinsAgent.logger.debug("認証キー : #{@cert_key}")
      @agent = TCPServer.new(ReinsAgent.client_port)
    rescue => e
      ReinsAgent.logger.fatal("Reins Agent が起動できませんでした: #{e}")
      exit
    end

    def define_value(r)
      @addr = IPAddr.new(r.peeraddr[3]).native.to_s
      @keycode, @command, @options = r.gets.chomp.split
      ReinsAgent.logger.debug("addr = #{@addr}, keycode = #{@keycode}, command = #{@command}, options = #{@options}")
    end

    def exit_agent(agent)
      ReinsAgent.logger.info("Reins Agent #{VERSION} を終了します")
      ReinsAgent.exec("#{@cert_key} delete")
      agent.close
      exit
    end
    # サーバへコマンドを送信し、その返り値を取得する
    # == パラメータ
    # command:: サーバへ送信するコマンド+オプションを指定
    # == 返り値
    # response:: サーバからの返り値(改行付き/複数行)
    def exec(command)
      s = TCPSocket.open(ReinsAgent.server_host, ReinsAgent.server_port)
      s.puts command
      response = s.read
      s.close if s
      response
    end
  end

  def start
    agent = run_agent(ReinsAgent.client_port)

    puts ReinsAgent.exec("#{@cert_key} list")

    loop do
      begin
        Thread.start(agent.accept) do |r|
          define_value(r)
          if @cert_key == @keycode
            r.puts("OK")
          end
          r.close
        end
      rescue Interrupt
        exit_agent(agent)
      end
    end
  end

  module_function :start
end

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

# coding: utf-8

# filename: reins_agent.rb

require "reins_agent/config"

require "reins_agent/version"

require "ipaddr"

require "socket"

module ReinsAgent

class << self

def run_agent(port)

ReinsAgent.logger.info("Reins Agent #{VERSION} を #{port} で起動します")

throw unless (@cert_key = ReinsAgent.exec("#{ReinsAgent.client_key} auth").chomp)

ReinsAgent.logger.debug("認証キー : #{@cert_key}")

@agent = TCPServer.new(ReinsAgent.client_port)

rescue => e

ReinsAgent.logger.fatal("Reins Agent が起動できませんでした: #{e}")

exit

end

def define_value(r)

@addr = IPAddr.new(r.peeraddr[3]).native.to_s

@keycode, @command, @options = r.gets.chomp.split

ReinsAgent.logger.debug("addr = #{@addr}, keycode = #{@keycode}, command = #{@command}, options = #{@options}")

end

def exit_agent(agent)

ReinsAgent.logger.info("Reins Agent #{VERSION} を終了します")

ReinsAgent.exec("#{@cert_key} delete")

agent.close

exit

end

# サーバへコマンドを送信し、その返り値を取得する

# == パラメータ

# command:: サーバへ送信するコマンド+オプションを指定

# == 返り値

# response:: サーバからの返り値(改行付き/複数行)

def exec(command)

s = TCPSocket.open(ReinsAgent.server_host, ReinsAgent.server_port)

s.puts command

response = s.read

s.close if s

response

end

def start

agent = run_agent(ReinsAgent.client_port)

puts ReinsAgent.exec("#{@cert_key} list")

loop do

begin

Thread.start(agent.accept) do |r|

define_value(r)

if @cert_key == @keycode

r.puts("OK")

end

r.close

end

rescue Interrupt

exit_agent(agent)

end

module_function :start

end

$ ruby -Ilib bin/reins_agent
127.0.0.1

1 2	$ ruby -Ilib bin/reins_agent 127.0.0.1

I, [2017-MM-DDThh:mm:ss.498901 #1701]  INFO -- : Reins 0.2.0 を 16383 で起動します
D, [2017-MM-DDThh:mm:ss.648611 #1701] DEBUG -- : addr = 127.0.0.1, keycode = 40ruby, command = auth, options =
D, [2017-MM-DDThh:mm:ss.648704 #1701] DEBUG -- : 127.0.0.1 : 認証を行います
I, [2017-MM-DDThh:mm:ss.649729 #1701]  INFO -- : 127.0.0.1 : 認証が成功しました
I, [2017-MM-DDThh:mm:ss.651070 #1701]  INFO -- : 127.0.0.1 を追加しました
D, [2017-MM-DDThh:mm:ss.651132 #1701] DEBUG -- : ./40ruby.csv : ホスト一覧を保存します
D, [2017-MM-DDThh:mm:ss.651967 #1701] DEBUG -- : 保管中... > ["127.0.0.1", "ed8a4bfe4fed89005d25ae33179ea441c4933a8f841ab8c6154490f5ca34a18978fe8d91d490096a0589edbd0bcd394358a7efb65aa87e48e683a1e7847e6d3f", 2017-MM-DD hh:mm:ss +0900]
D, [2017-MM-DDThh:mm:ss.654361 #1701] DEBUG -- : addr = 127.0.0.1, keycode = ed8a4bfe4fed89005d25ae33179ea441c4933a8f841ab8c6154490f5ca34a18978fe8d91d490096a0589edbd0bcd394358a7efb65aa87e48e683a1e7847e6d3f, command = list, options =
D, [2017-MM-DDThh:mm:ss.654452 #1701] DEBUG -- : list() : 指定のコマンドへディスパッチします
D, [2017-MM-DDThh:mm:35.315032 #1701] DEBUG -- : addr = 127.0.0.1, keycode = ed8a4bfe4fed89005d25ae33179ea441c4933a8f841ab8c6154490f5ca34a18978fe8d91d490096a0589edbd0bcd394358a7efb65aa87e48e683a1e7847e6d3f, command = delete, options =
D, [2017-MM-DDThh:mm:ss.315186 #1701] DEBUG -- : delete() : 指定のコマンドへディスパッチします
I, [2017-MM-DDThh:mm:ss.315280 #1701]  INFO -- : 127.0.0.1 を削除しました.
D, [2017-MM-DDThh:mm:ss.315324 #1701] DEBUG -- : ./40ruby.csv : ホスト一覧を保存します

1

2

3

4

5

6

7

8

9

10

11

12

13

I, [2017-MM-DDThh:mm:ss.498901 #1701] INFO -- : Reins 0.2.0 を 16383 で起動します

D, [2017-MM-DDThh:mm:ss.648611 #1701] DEBUG -- : addr = 127.0.0.1, keycode = 40ruby, command = auth, options =

D, [2017-MM-DDThh:mm:ss.648704 #1701] DEBUG -- : 127.0.0.1 : 認証を行います

I, [2017-MM-DDThh:mm:ss.649729 #1701] INFO -- : 127.0.0.1 : 認証が成功しました

I, [2017-MM-DDThh:mm:ss.651070 #1701] INFO -- : 127.0.0.1 を追加しました

D, [2017-MM-DDThh:mm:ss.651132 #1701] DEBUG -- : ./40ruby.csv : ホスト一覧を保存します

D, [2017-MM-DDThh:mm:ss.651967 #1701] DEBUG -- : 保管中... > ["127.0.0.1", "ed8a4bfe4fed89005d25ae33179ea441c4933a8f841ab8c6154490f5ca34a18978fe8d91d490096a0589edbd0bcd394358a7efb65aa87e48e683a1e7847e6d3f", 2017-MM-DD hh:mm:ss +0900]

D, [2017-MM-DDThh:mm:ss.654361 #1701] DEBUG -- : addr = 127.0.0.1, keycode = ed8a4bfe4fed89005d25ae33179ea441c4933a8f841ab8c6154490f5ca34a18978fe8d91d490096a0589edbd0bcd394358a7efb65aa87e48e683a1e7847e6d3f, command = list, options =

D, [2017-MM-DDThh:mm:ss.654452 #1701] DEBUG -- : list() : 指定のコマンドへディスパッチします

D, [2017-MM-DDThh:mm:35.315032 #1701] DEBUG -- : addr = 127.0.0.1, keycode = ed8a4bfe4fed89005d25ae33179ea441c4933a8f841ab8c6154490f5ca34a18978fe8d91d490096a0589edbd0bcd394358a7efb65aa87e48e683a1e7847e6d3f, command = delete, options =

D, [2017-MM-DDThh:mm:ss.315186 #1701] DEBUG -- : delete() : 指定のコマンドへディスパッチします

I, [2017-MM-DDThh:mm:ss.315280 #1701] INFO -- : 127.0.0.1 を削除しました.

D, [2017-MM-DDThh:mm:ss.315324 #1701] DEBUG -- : ./40ruby.csv : ホスト一覧を保存します

漢のUNIX　テストフレームワームKyua その2（Vol.50掲載）

投稿日：2017.09.20　｜　カテゴリー：　コード

著者：後藤大地

　前回はコマンド開発においてテストフレームワークを使うことの重要性を説明するとともに、そうした目的で利用できるフレームワークとして「Kyua」（https://github.com/jmmv/kyua）を紹介した。Kyuaは、特にコマンドの動作チェックに適したフレームワークなので、この連載で取り上げるには最適なものの一つといえる。
　こうしたテストフレームワークを活用してコマンドを開発していくには、最初に開発用の場所をちゃんと用意しておく方がよい。あとからフレームワークを導入しようとしても中途半端なものになったり、面倒くさくなって使わないままになったりするからだ。コーディングの初期段階からKyauを利用できる状況にしておくことで、シームレスにテストフレームワークを利用しながら開発を進めることができる。
　今回はそうしたテストフレームワークを活用した開発を実現できるように、どのようにディレクトリやファイルを配置し、初期段階からテストを取り込んだ開発をどのように実施していくのかを説明する。

記事本文掲載のシェルスクリプトマガジンvol.50は以下リンク先でご購入できます。

% echo 1 2 3 | ./bin/sum
1 2 3 6
%

1

2

3

4

% echo 1 2 3 | ./bin/sum

1 2 3 6

%

% tree -F ore
ore/
├── bin/
├── Makefile
├── Makefile.inc
├── mk/
│   └── ore.mk
├── src/
│   ├── bin/
│   │   ├─ Makefile
│   │   ├─ Makefile.inc
│   │   └─ sum/
│   │      ├── Makefile
│   │      ├── Makefile.inc
│   │      └── sum.c
│   ├── Makefile
│   └── Makefile.inc
└── tests/
    ├── bin/
    │   ├── Kyuafile
    │   ├── Makefile
    │   ├── Makefile.inc
    │   └── sum/
    │       ├── Kyuafile
    │       ├── Makefile
    │       ├── Makefile.inc
    │       └── test.atf-sh*
    ├── Kyuafile
    ├── Makefile
    └── Makefile.inc
8 directories, 20 files
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

% tree -F ore

ore/

├── bin/

├── Makefile

├── Makefile.inc

├── mk/

│ └── ore.mk

├── src/

│ ├── bin/

│ │ ├─ Makefile

│ │ ├─ Makefile.inc

│ │ └─ sum/

│ │ ├── Makefile

│ │ ├── Makefile.inc

│ │ └── sum.c

│ ├── Makefile

│ └── Makefile.inc

└── tests/

├── bin/

│ ├── Kyuafile

│ ├── Makefile

│ ├── Makefile.inc

│ └── sum/

│ ├── Kyuafile

│ ├── Makefile

│ ├── Makefile.inc

│ └── test.atf-sh*

├── Kyuafile

├── Makefile

└── Makefile.inc

8 directories, 20 files

%

syntax(2)
local directory = fs.dirname(current_kyuafile())
for file in fs.files(directory) do
    if file == "." or file == ".." then
        -- Skip these special entries.
    else
        local kyuafile_relative = fs.join(file,"Kyuafile")
        localkyuafile_absolute=fs.join(directory, kyuafile_relative)
        if fs.exists(kyuafile_absolute) then
           include(kyuafile_relative)
        end
    end
end

1

2

3

4

5

6

7

8

9

10

11

12

13

syntax(2)

local directory = fs.dirname(current_kyuafile())

for file in fs.files(directory) do

if file == "." or file == ".." then

-- Skip these special entries.

else

local kyuafile_relative = fs.join(file,"Kyuafile")

localkyuafile_absolute=fs.join(directory, kyuafile_relative)

if fs.exists(kyuafile_absolute) then

include(kyuafile_relative)

end

syntax(2)

test_suite("ore")

atf_test_program{name="test.atf-sh", }

1

2

3

4

5

syntax(2)

test_suite("ore")

atf_test_program{name="test.atf-sh", }

% cd tests
% kyua test
bin/sum/test.atf-sh:normal  ->  passed  [0.008s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests.20170813-023317-838743
Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests.20170813-023317-838743.db

1/1 passed (0 failed)
% cd bin
% kyua test
sum/test.atf-sh:normal  ->  passed  [0.011s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin.20170813-023320-333630
Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin.20170813-023320-333630.db

1/1 passed (0 failed)
% cd sum
% kyua test
test.atf-sh:normal  ->  passed  [0.009s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin_sum.20170813-023323-220477
Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin_sum.20170813-023323-220477.db

1/1 passed (0 failed)
%

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

% cd tests

% kyua test

bin/sum/test.atf-sh:normal -> passed [0.008s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests.20170813-023317-838743

Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests.20170813-023317-838743.db

1/1 passed (0 failed)

% cd bin

% kyua test

sum/test.atf-sh:normal -> passed [0.011s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin.20170813-023320-333630

Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin.20170813-023320-333630.db

1/1 passed (0 failed)

% cd sum

% kyua test

test.atf-sh:normal -> passed [0.009s]

Results file id is Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin_sum.20170813-023323-220477

Results saved to /Users/daichi/.kyua/store/results.Users_daichi_Documents_shellmagazine_201710_stuffs_ore1_tests_bin_sum.20170813-023323-220477.db

1/1 passed (0 failed)

%

ore/
├── Makefile
├── Makefile.inc
├── mk/
│   └── ore.mk
├── src/
│   ├── bin/
│   │   ├── Makefile
│   │   ├── Makefile.inc
│   │   └── sum/
│   │       ├── Makefile
│   │       └── Makefile.inc
│   ├── Makefile
│   └── Makefile.inc
└── tests/
    ├── bin/
    │   ├── Makefile
    │   ├── Makefile.inc
    │   └── sum/
    │       ├── Makefile
    │       └── Makefile.inc
    ├── Makefile
    └── Makefile.inc

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

ore/

├── Makefile

├── Makefile.inc

├── mk/

│ └── ore.mk

├── src/

│ ├── bin/

│ │ ├── Makefile

│ │ ├── Makefile.inc

│ │ └── sum/

│ │ ├── Makefile

│ │ └── Makefile.inc

│ ├── Makefile

│ └── Makefile.inc

└── tests/

├── bin/

│ ├── Makefile

│ ├── Makefile.inc

│ └── sum/

│ ├── Makefile

│ └── Makefile.inc

├── Makefile

└── Makefile.inc

.include "Makefile.inc"

1	.include "Makefile.inc"

.include "../Makefile.inc"

1	.include "../Makefile.inc"

.include "mk/ore.mk"

1	.include "mk/ore.mk"

ore/
├── Makefile
├── Makefile.inc
├── mk/
│   └── ore.mk
├── src/
│   ├── bin/
│   │   ├── Makefile
│   │   ├── Makefile.inc
│   │   └── sum/
│   │       ├── Makefile
│   │       └── Makefile.inc
│   ├── Makefile
│   └── Makefile.inc
└── tests/
    ├── bin/
    │   ├── Makefile
    │   ├── Makefile.inc
    │   └── sum/
    │       ├── Makefile
    │       └── Makefile.inc
    ├── Makefile
    └── Makefile.inc

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

ore/

├── Makefile

├── Makefile.inc

├── mk/

│ └── ore.mk

├── src/

│ ├── bin/

│ │ ├── Makefile

│ │ ├── Makefile.inc

│ │ └── sum/

│ │ ├── Makefile

│ │ └── Makefile.inc

│ ├── Makefile

│ └── Makefile.inc

└── tests/

├── bin/

│ ├── Makefile

│ ├── Makefile.inc

│ └── sum/

│ ├── Makefile

│ └── Makefile.inc

├── Makefile

└── Makefile.inc

# コマンド設定
CC?=            cc
CHMOD?=         chmod
ENV?=           env
FIND?=          find
GREP?=          grep
KYUA?=          kyua
LS?=            ls
MAKE?=          make
RM?=            rm
SED?=           sed

# ディレクトリ設定
.if !defined(TOPDIR)
. if exists(${.CURDIR}/mk/ore.mk)
TOPDIR=         ${.CURDIR}
. elif exists(${.CURDIR}/../mk/ore.mk)
TOPDIR=         ${.CURDIR:C,/[^/]*$,,}
. elif exists(${.CURDIR}/../../mk/ore.mk)
TOPDIR=         ${.CURDIR:C,/[^/]*/[^/]*$,,}
. elif exists(${.CURDIR}/../../../mk/ore.mk)
TOPDIR=         ${.CURDIR:C,/[^/]*/[^/]*/[^/]*$,,}
. endif
.endif

WORKPLACE=      ${.CURDIR:S,${TOPDIR},,:C,^$,/,}
DIRNAME=        ${WORKPLACE:C,${WORKPLACE:C,[^/]*$,,},,}

BINDIR?=        ${TOPDIR}/bin
SRCDIR?=        ${TOPDIR}/src
TESTDIR?=       ${TOPDIR}/tests

# パーミッション設定
BINPERM?=       555

# コンパイルオプション
CFLAGS?=        -I. -O2 -pipe

# 対応ターゲット
#                       TARGET  build   clean   test
# ore/                          OK      OK      OK
#       bin/                    -       -       -
#       mk/                     -       -       -
#       src/                    OK      OK      OK
#               bin/            OK      OK      OK
#                       */      OK      OK      OK
#       tests/                  OK      OK      OK
#               bin/            OK      OK      OK
#                       */      OK      OK      OK

# ビルド・テスト処理
# /
.if ${WORKPLACE} == "/"
build:
        cd ${SRCDIR}; ${MAKE} $@
clean:
        cd ${SRCDIR}; ${MAKE} $@
test:
        cd ${TESTDIR}; ${MAKE} $@

# /src
.elif ${WORKPLACE} == "/src"
build:
        cd ${SRCDIR}/bin; ${MAKE} $@
clean:
        cd ${SRCDIR}/bin; ${MAKE} $@
test:
        cd ${TESTDIR}; ${MAKE} $@

# /src/bin
.elif ${WORKPLACE} == "/src/bin"
TARGETDIRS!=    ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'
build:
        ${MAKE} build-recursive
clean:
        ${MAKE} clean-recursive
test:
        cd ${TESTDIR}/bin; ${MAKE} $@

# /src/bin/*
.elif ${WORKPLACE:C,/[^/]*$,,} == "/src/bin"
OBJS!=          ${LS} | ${GREP} '[.]c$$' 2> /dev/null | ${SED} 's/.c$$/.o/g'
CLEANFILES?=    ${DIRNAME} ${BINDIR}/${DIRNAME} ${OBJS} ${DIRNAME}.core
build: ${DIRNAME}
${DIRNAME}: ${OBJS}
        ${RM} -f ${BINDIR}/${DIRNAME}
        ${CC} ${CFLAGS} -o ${BINDIR}/${DIRNAME} ${OBJS}
        ${CHMOD} ${BINPERM} ${BINDIR}/${DIRNAME}
.c.o:
        ${CC} ${CFLAGS} -c $< -o $@
clean:
        ${RM} -f ${CLEANFILES}
test: build
        cd ${TESTDIR}/${WORKPLACE:C,^/src/,,}; ${MAKE} $@

# /tests
.elif ${WORKPLACE} == "/tests"
TARGETDIRS!=    ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'
test:
        ${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@
build:
        cd ${SRCDIR}; ${MAKE} $@
clean:
        cd ${SRCDIR}; ${MAKE} $@

# /tests/bin
.elif ${WORKPLACE} == "/tests/bin"
TARGETDIRS!=    ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'
test:
        ${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@
build:
        cd ${SRCDIR}/bin; ${MAKE} $@
clean:
        cd ${SRCDIR}/bin; ${MAKE} $@

# /tests/bin/*
.elif ${WORKPLACE:C,/[^/]*$,,} == "/tests/bin"
test:
        ${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@
build:
        cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@
clean:
        cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@
.endif

build-recursive:
.for dir in ${TARGETDIRS}
        cd ${dir}; ${MAKE} build
.endfor

clean-recursive:
.for dir in ${TARGETDIRS}
        cd ${dir}; ${MAKE} clean
.endfor

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

# コマンド設定

CC?= cc

CHMOD?= chmod

ENV?= env

FIND?= find

GREP?= grep

KYUA?= kyua

LS?= ls

MAKE?= make

RM?= rm

SED?= sed

# ディレクトリ設定

.if !defined(TOPDIR)

. if exists(${.CURDIR}/mk/ore.mk)

TOPDIR= ${.CURDIR}

. elif exists(${.CURDIR}/../mk/ore.mk)

TOPDIR= ${.CURDIR:C,/[^/]*$,,}

. elif exists(${.CURDIR}/../../mk/ore.mk)

TOPDIR= ${.CURDIR:C,/[^/]*/[^/]*$,,}

. elif exists(${.CURDIR}/../../../mk/ore.mk)

TOPDIR= ${.CURDIR:C,/[^/]*/[^/]*/[^/]*$,,}

. endif

.endif

WORKPLACE= ${.CURDIR:S,${TOPDIR},,:C,^$,/,}

DIRNAME= ${WORKPLACE:C,${WORKPLACE:C,[^/]*$,,},,}

BINDIR?= ${TOPDIR}/bin

SRCDIR?= ${TOPDIR}/src

TESTDIR?= ${TOPDIR}/tests

# パーミッション設定

BINPERM?= 555

# コンパイルオプション

CFLAGS?= -I. -O2 -pipe

# 対応ターゲット

# TARGET build clean test

# ore/ OK OK OK

# bin/ - - -

# mk/ - - -

# src/ OK OK OK

# bin/ OK OK OK

# */ OK OK OK

# tests/ OK OK OK

# bin/ OK OK OK

# */ OK OK OK

# ビルド・テスト処理

# /

.if ${WORKPLACE} == "/"

build:

cd ${SRCDIR}; ${MAKE} $@

clean:

cd ${SRCDIR}; ${MAKE} $@

test:

cd ${TESTDIR}; ${MAKE} $@

# /src

.elif ${WORKPLACE} == "/src"

build:

cd ${SRCDIR}/bin; ${MAKE} $@

clean:

cd ${SRCDIR}/bin; ${MAKE} $@

test:

cd ${TESTDIR}; ${MAKE} $@

# /src/bin

.elif ${WORKPLACE} == "/src/bin"

TARGETDIRS!= ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'

build:

${MAKE} build-recursive

clean:

${MAKE} clean-recursive

test:

cd ${TESTDIR}/bin; ${MAKE} $@

# /src/bin/*

.elif ${WORKPLACE:C,/[^/]*$,,} == "/src/bin"

OBJS!= ${LS} | ${GREP} '[.]c$$' 2> /dev/null | ${SED} 's/.c$$/.o/g'

CLEANFILES?= ${DIRNAME} ${BINDIR}/${DIRNAME} ${OBJS} ${DIRNAME}.core

build: ${DIRNAME}

${DIRNAME}: ${OBJS}

${RM} -f ${BINDIR}/${DIRNAME}

${CC} ${CFLAGS} -o ${BINDIR}/${DIRNAME} ${OBJS}

${CHMOD} ${BINPERM} ${BINDIR}/${DIRNAME}

.c.o:

${CC} ${CFLAGS} -c $< -o $@

clean:

${RM} -f ${CLEANFILES}

test: build

cd ${TESTDIR}/${WORKPLACE:C,^/src/,,}; ${MAKE} $@

# /tests

.elif ${WORKPLACE} == "/tests"

TARGETDIRS!= ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'

test:

${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@

build:

cd ${SRCDIR}; ${MAKE} $@

clean:

cd ${SRCDIR}; ${MAKE} $@

# /tests/bin

.elif ${WORKPLACE} == "/tests/bin"

TARGETDIRS!= ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'

test:

${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@

build:

cd ${SRCDIR}/bin; ${MAKE} $@

clean:

cd ${SRCDIR}/bin; ${MAKE} $@

# /tests/bin/*

.elif ${WORKPLACE:C,/[^/]*$,,} == "/tests/bin"

test:

${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@

build:

cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@

clean:

cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@

.endif

build-recursive:

.for dir in ${TARGETDIRS}

cd ${dir}; ${MAKE} build

.endfor

clean-recursive:

.for dir in ${TARGETDIRS}

cd ${dir}; ${MAKE} clean

.endfor

# コマンド設定
CC?=            cc
CHMOD?=         chmod
ENV?=           env
FIND?=          find
GREP?=          grep
KYUA?=          kyua
LS?=            ls
MAKE?=          make
RM?=            rm
SED?=           sed

1

2

3

4

5

6

7

8

9

10

11

# コマンド設定

CC?= cc

CHMOD?= chmod

ENV?= env

FIND?= find

GREP?= grep

KYUA?= kyua

LS?= ls

MAKE?= make

RM?= rm

SED?= sed

# ディレクトリ設定
.if !defined(TOPDIR)
. if exists(${.CURDIR}/mk/ore.mk)
TOPDIR=         ${.CURDIR}
. elif exists(${.CURDIR}/../mk/ore.mk)
TOPDIR=         ${.CURDIR:C,/[^/]*$,,}
. elif exists(${.CURDIR}/../../mk/ore.mk)
TOPDIR=         ${.CURDIR:C,/[^/]*/[^/]*$,,}
. elif exists(${.CURDIR}/../../../mk/ore.mk)
TOPDIR=         ${.CURDIR:C,/[^/]*/[^/]*/[^/]*$,,}
. endif
.endif

1

2

3

4

5

6

7

8

9

10

11

12

# ディレクトリ設定

.if !defined(TOPDIR)

. if exists(${.CURDIR}/mk/ore.mk)

TOPDIR= ${.CURDIR}

. elif exists(${.CURDIR}/../mk/ore.mk)

TOPDIR= ${.CURDIR:C,/[^/]*$,,}

. elif exists(${.CURDIR}/../../mk/ore.mk)

TOPDIR= ${.CURDIR:C,/[^/]*/[^/]*$,,}

. elif exists(${.CURDIR}/../../../mk/ore.mk)

TOPDIR= ${.CURDIR:C,/[^/]*/[^/]*/[^/]*$,,}

. endif

.endif

WORKPLACE=      ${.CURDIR:S,${TOPDIR},,:C,^$,/,}
DIRNAME=        ${WORKPLACE:C,${WORKPLACE:C,[^/]*$,,},,}

BINDIR?=        ${TOPDIR}/bin
SRCDIR?=        ${TOPDIR}/src
TESTDIR?=       ${TOPDIR}/test

1

2

3

4

5

6

WORKPLACE= ${.CURDIR:S,${TOPDIR},,:C,^$,/,}

DIRNAME= ${WORKPLACE:C,${WORKPLACE:C,[^/]*$,,},,}

BINDIR?= ${TOPDIR}/bin

SRCDIR?= ${TOPDIR}/src

TESTDIR?= ${TOPDIR}/test

# コンパイルオプション
CFLAGS?=        -I. -O2 -pipe

1 2	# コンパイルオプション CFLAGS?= -I. -O2 -pipe

# /src
.elif ${WORKPLACE} == "/src"
build:
        cd ${SRCDIR}/bin; ${MAKE} $@
clean:
        cd ${SRCDIR}/bin; ${MAKE} $@
test:
        cd ${TESTDIR}; ${MAKE} $@

1

2

3

4

5

6

7

8

# /src

.elif ${WORKPLACE} == "/src"

build:

cd ${SRCDIR}/bin; ${MAKE} $@

clean:

cd ${SRCDIR}/bin; ${MAKE} $@

test:

cd ${TESTDIR}; ${MAKE} $@

# /src/bin
.elif ${WORKPLACE} == "/src/bin"
TARGETDIRS!=    ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'
build:
        ${MAKE} build-recursive
clean:
        ${MAKE} clean-recursive
test:
        cd ${TESTDIR}/bin; ${MAKE} $@

1

2

3

4

5

6

7

8

9

# /src/bin

.elif ${WORKPLACE} == "/src/bin"

TARGETDIRS!= ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'

build:

${MAKE} build-recursive

clean:

${MAKE} clean-recursive

test:

cd ${TESTDIR}/bin; ${MAKE} $@

build-recursive:
.for dir in ${TARGETDIRS}
        cd ${dir}; ${MAKE} build
.endfor

clean-recursive:
.for dir in ${TARGETDIRS}
        cd ${dir}; ${MAKE} clean
.endfor

1

2

3

4

5

6

7

8

9

build-recursive:

.for dir in ${TARGETDIRS}

cd ${dir}; ${MAKE} build

.endfor

clean-recursive:

.for dir in ${TARGETDIRS}

cd ${dir}; ${MAKE} clean

.endfor

# /src/bin/*
.elif ${WORKPLACE:C,/[^/]*$,,} == "/src/bin"
OBJS!=          ${LS} | ${GREP} '[.]c$$' 2> /dev/null | ${SED} 's/.c$$/.o/g'
CLEANFILES?=    ${DIRNAME} ${BINDIR}/${DIRNAME} ${OBJS} ${DIRNAME}.core
build: ${DIRNAME}
${DIRNAME}: ${OBJS}
        ${RM} -f ${BINDIR}/${DIRNAME}
        ${CC} ${CFLAGS} -o ${BINDIR}/${DIRNAME} ${OBJS}
        ${CHMOD} ${BINPERM} ${BINDIR}/${DIRNAME}
.c.o:
        ${CC} ${CFLAGS} -c $< -o $@
clean:
        ${RM} -f ${CLEANFILES}
test: build
        cd ${TESTDIR}/${WORKPLACE:C,^/src/,,}; ${MAKE} $@

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

# /src/bin/*

.elif ${WORKPLACE:C,/[^/]*$,,} == "/src/bin"

OBJS!= ${LS} | ${GREP} '[.]c$$' 2> /dev/null | ${SED} 's/.c$$/.o/g'

CLEANFILES?= ${DIRNAME} ${BINDIR}/${DIRNAME} ${OBJS} ${DIRNAME}.core

build: ${DIRNAME}

${DIRNAME}: ${OBJS}

${RM} -f ${BINDIR}/${DIRNAME}

${CC} ${CFLAGS} -o ${BINDIR}/${DIRNAME} ${OBJS}

${CHMOD} ${BINPERM} ${BINDIR}/${DIRNAME}

.c.o:

${CC} ${CFLAGS} -c $< -o $@

clean:

${RM} -f ${CLEANFILES}

test: build

cd ${TESTDIR}/${WORKPLACE:C,^/src/,,}; ${MAKE} $@

# /tests
.elif ${WORKPLACE} == "/tests"
TARGETDIRS!=    ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'
test:
        ${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@
build:
        cd ${SRCDIR}; ${MAKE} $@
clean:
        cd ${SRCDIR}; ${MAKE} $@

1

2

3

4

5

6

7

8

9

# /tests

.elif ${WORKPLACE} == "/tests"

TARGETDIRS!= ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'

test:

${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@

build:

cd ${SRCDIR}; ${MAKE} $@

clean:

cd ${SRCDIR}; ${MAKE} $@

# /tests/bin
.elif ${WORKPLACE} == "/tests/bin"
TARGETDIRS!=    ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'
test:
        ${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@
build:
        cd ${SRCDIR}/bin; ${MAKE} $@
clean:
        cd ${SRCDIR}/bin; ${MAKE} $@

1

2

3

4

5

6

7

8

9

# /tests/bin

.elif ${WORKPLACE} == "/tests/bin"

TARGETDIRS!= ${FIND} . -type d -maxdepth 1 | ${SED} 's,^[.][/]*,,'

test:

${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@

build:

cd ${SRCDIR}/bin; ${MAKE} $@

clean:

cd ${SRCDIR}/bin; ${MAKE} $@

# /tests/bin/*
.elif ${WORKPLACE:C,/[^/]*$,,} == "/tests/bin"
test:
        ${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@
build:
        cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@
clean:
        cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@
.endif

1

2

3

4

5

6

7

8

9

# /tests/bin/*

.elif ${WORKPLACE:C,/[^/]*$,,} == "/tests/bin"

test:

${ENV} PATH=${BINDIR}:${PATH} ${KYUA} $@

build:

cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@

clean:

cd ${SRCDIR}/${WORKPLACE:C,^/tests/,,}; ${MAKE} $@

.endif

第3回　Ubuntuの導入（アップデートと初期設定）

投稿日：2017.09.15　｜　カテゴリー：　記事

パソコンの電源を投入して、前回インストールしたUbuntu Serverを起動します。インストール時に設定したユーザー名とパスワードを入力してログインします（図1）。ログインできたら、Ubuntu Serverのアップデートと初期設定を実施しましょう。

図1　ログインした画面

日本語の文字化けを直す

図1のログインした画面を見てみると、「◆」になっている箇所があります。これは日本語が正しく表示されていないのが原因です。次のコマンドを実行して、一時的に英語表示に変更します。一時的にした理由は、次回説明するリモートアクセス環境なら日本語を正しく表示できるからです。

$ export LANG=C

1	$ export LANG=C

上のコマンドでは「LANG」という言語の環境変数に、デフォルトのロケール（言語や地域を表すもの）である「C」を代入しています。デフォルトのロケールは英語圏なので英語表示に切り替わります。「export」はコマンドで、プロンプトから実行するすべてのコマンドに対してこの環境変数を適用します。

Part2 リモートアクセス環境の構築

Part3 ファイル共有/ブログサーバーの構築

記事本文掲載のシェルスクリプトマガジンvol.54は以下リンク先でご購入できます。

ルートファイルシステムを拡張する

追加ディスクのデバイスファイル名を確認する

柔軟なストレージ管理ができるLVM

訂正情報

参考リンク

登録:

一覧:

翻訳サイトを駆使した英文

Paulさんによる訂正後の英文

翻訳サイトを駆使した英文

Paulさんによる訂正後の英文

アクティブとパッシブ

ソースコードの入手先

レシピ２ ルービックキューブを作る。

問題

解答

準備 Tukubaiを知り、そして始める。

シェルスクリプトで開発するのはなぜか

イタリアで生まれたマイコンボードArduinoで鉄道模型を動かしてみる

データベースとテーブル

2種類のインターネット公開方法

DMZとは

ポートフォワーディングとは

Webアプリケーションについて

ホストベース認証を利用する

SFTPやSCPでファイルを送受信する

Elixir製のWebアプリケーションフレームワーク Phoenixを触ってみる 後編

蔵書の新規登録

ジャンルの作成

SSHサーバーを導入・起動する

日本語の文字化けを直す

Part2　リモートアクセス環境の構築

レシピ２　ルービックキューブを作る。

準備　Tukubaiを知り、そして始める。

Elixir製のWebアプリケーションフレームワーク Phoenixを触ってみる後編