第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

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

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

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

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

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

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

defmodule Bookcollection.BookView do

use Bookcollection.Web, :view

end

defmodule Bookcollection.GenreView do
use Bookcollection.Web, :view
end

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

#!/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

#!/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

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

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"

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

バーティカルバーの極意第四回 (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"

#!/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()

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

$ 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

$ rubocop lib/reins/host_registry.rb

Inspecting 1 file

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

# 該当のディレクトリ以下のファイルは対象外

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

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

# 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

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

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

# 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

# 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 : ホスト一覧を保存します

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
%

% 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
%

% 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

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", }

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)
%

% 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

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

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

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

# コマンド設定

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

# ディレクトリ設定

.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

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} $@

# /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} == "/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

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} $@

# /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

.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} == "/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

# /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」はコマンドで、プロンプトから実行するすべてのコマンドに対してこの環境変数を適用します。

もしインターネットの1秒が1年だったら　WEB掲載記事まとめ

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

もしインターネットの1秒が1年だったら第１回（vol.47掲載）

もしインターネットの1秒が1年だったら第２回（vol.48掲載）

もしインターネットの1秒が1年だったら第３回（vol.49掲載）

オリジナル版掲載サイト（外部リンク）

もしインターネットの１秒が１年だったら第3回（vol.49掲載）

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

written by hakatashi・Mine02C4

編注：本記事は「SunPro 2016 技術書典」で発表された記事に説明・イラストを追加し、シェルマガvol.49に掲載したものです。
以下リンク先で、オリジナル版の全文が公開されています。
https://sunpro.io/techbookfest/

インターネットが日本中のあらゆる人間に行き渡るようになってから、すでに10年単位の時間が経過しています。今日においてインターネットを支えるネットワーク技術が重要であることは言うまでもありませんが、実際にネットワークでどのタイミングで何が起こり、どれくらいの時間が費やされるのかということを身を持って体感している人は、たとえネットワークに精通している人でも少ないのではないでしょうか？この記事では、1 秒というわずかな時間を1年にまで拡大し、ネットワーク上で何が起こっているかを人間スケールでざっくりと解説していきます。

はじめに

こんにちは。博多市(@hakatashi) です。前回、前々回に引き続き、2016年の技術書典にて発表した「インターネットの1 秒がもし1 年だったら」という記事を、シェルスクリプトマガジン向けに再構成してお届けします。この記事は、インターネット通信においてクライアントがサーバーとコミュニケーションする様子を、1秒を1年というスケールに引き伸ばし、クライアントとサーバーをそれぞれ「クライアントちゃん」と「サーバーちゃん」として、人間スケールに置き換えて順に見ていこうという企画です。
前回までの記事では、長くて面倒なTLSハンドシェイクの手続きを終え、サーバーちゃんとクライアントちゃんの間で暗号通信を行うための準備が完了しました。これで本題となる通信の内容を送るための用意は終了し、いよいよインターネットを通した2人の文通が始まります。クライアントちゃんにとっては100日以上も待ち続けた念願のやり取りです。果たして2人は無事に文通を行い、そして年内に終了することができるのでしょうか。引き続きお楽しみください。

サーバーちゃん　　クライアントちゃん

HTTPリクエストとレスポンス

4月19日午前9時26分　HTTPリクエスト送信

1ヶ月半に渡るやりとりによって、サーバーちゃんとクライアントちゃんとの間で暗号通信を行う準備が整いました。もはや2 人の世界を妨げるものは何もありません。これで少々神経過敏なクライアントちゃんも安心してサーバーちゃんに質問を投げかけることができます。
HTTPは、原則としてクライアントがサーバーに対してリクエストを投げて、サーバーがそれに対する応答を返すという、先程までのTCPハンドシェイクやTLSと比べてシンプルな仕組みで動作します。ネットワークの中でもかなり高レイヤーなプロトコルなので、リクエストの内容やヘッダーはプレーンテキストで表現され、人間が見てそのまま理解しやすいようになっています。
今回はクライアントアプリケーションとしてcURLを用いたので、HTTPバージョン1.1のシンプルなGETリクエストでパケットを送信しました。
クライアントちゃんは勇気を振り絞って、年が明けてからずっと聞きたかったことを質問しました。その内容はヘッダも含めて4行、文字数に直すと99バイトですが、TLSで暗号化することによって130バイト、イーサネットフレーム全体では184バイトと、実際に転送される情報としては倍近くになりました。ハガキは裏面しか使えませんからね。

4月28日午前9時27分　HTTPリクエスト受信

クライアントちゃんから暗号化された秘密の手紙が届きました。サーバーちゃん側から見ても、最初にSYNパケットを受け取ってから2ヶ月という時間が経過しています。その間、Webサーバーとしての諸々の雑務をこなしながら、クライアントちゃんからの手紙を待ち続けていました。HTTPリクエストを受け取ったサーバーは、その内容を元にリクエストの解釈を行い、文脈に応じて何らかの適切な応答を返します。今回の測定ではデフォルトのApacheへのリクエストだったので、GETリクエストはシンプルにファイルの内容を取得するという処理となります。　手紙の内容を見て、さっそくサーバーちゃんは部屋の中(=ファイルシステム) から目的のデータを探し始めました。サーバーちゃんはファイルサーバーなので、探しものはお手のものです。

「アレでもない、コレでもない。どこいったの？！」

第2回　Ubuntuの導入（Ubuntu Serverのインストール）

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

まず、サーバーに利用するパソコンを用意します。Linuxサーバーを試すだけなら、高機能なものは必要ありません。メモリーが1Gバイト、ハードディスクドライブ（HDD）などの内蔵ストレージが100Gバイト程度搭載していればよいでしょう。なお、内蔵ストレージの中身が消えてしまっても構わないパソコンにしてください。
前回DVD-RやUSBメモリーで作成したインストールメディアを、用意したパソコンに挿入する前に、パソコンのファームウエアでDVD-Rの場合は光学ドライブから、USBメモリーの場合はUSBデバイスから優先的に起動するように設定しておきます。

Ubuntu Serverのインストール

パソコンにインストールメディアを挿入し、ネットワークケーブルを接続してインターネットにつなげられる状態にしたら、パソコンの電源を投入します。パソコンのファームウエアがBIOSとUEFIでは起動画面が異なります。BIOSの場合は、図1の言語選択画面になります。カーソルキーと［Enter］キーを使って「日本語」を選んでください。

図1　言語選択画面（BIOSの場合）

図2の画面で「Ubuntu Serverをインストール」を選択してインストーラーを起動します。

図2　インストーラーを起動する（BIOSの場合）

ITエンジニアのためのマーケティング入門　WEB掲載記事まとめ

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

ITエンジニアのためのマーケティング入門第13回

ITエンジニアのためのマーケティング入門第14回

ITエンジニアのためのマーケティング入門第16回

ITエンジニアのためのマーケティング入門第17回

ITエンジニアのためのマーケティング入門第18回

ITエンジニアのためのマーケティング入門第21回

ITエンジニアのためのマーケティング入門第22回

ITエンジニアのためのマーケティング入門第24回

ITエンジニアのためのマーケティング入門第25回

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

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

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

4 バーティカルバーの極意/飯尾淳　コード掲載
8 もしインターネットの１秒が１年だったら/hakatashi・Mine02C4　本文掲載
16 UNIXネイティブの電子工作塾 e-Badge篇/大野浩之
22 逆に、Tukubaiコマンドをシェルスクリプトで実装してみる/今泉光之　本文掲載
28 中小企業診断士が解説する、超実践的な会話術! 円滑コミュニケーションが世界を救う！/濱口誠一
30 中小企業手作りIT化奮戦記/菅雄一
36 アジャイル開発 Let’s Practice!/熊野憲辰
40 法林浩之のFIGHTING TALKS/法林浩之
42 それプロのエバンジェリストから愛をこめて/山本美穂
46 縁の木、育てよう/白羽玲子
50 スズラボ通信/すずきひろのぶ
53 姐のBENTO
54 ITエンジニアのためのマーケティング入門/水間丈博
57 lookup ～見上げる～/桑原滝弥
52 人間とコンピュータの可能性/大岩元
60 技術者哲学ピリカのつくりかた　本文掲載
66 ユニケージ開発手法コードレビュー/岡田健　コード掲載
74 香川大学SLPからお届け！/石井怜央（香川大学SLP）　コード掲載
78 漢のUNIX/後藤大地　コード掲載
92 40歳から始める、オレとRubyプログラミング/しょっさん　コード掲載
100 Tech数独
102 ソースとコード/シェル魔人

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

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

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

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

4 スズラボ通信/すずきひろのぶ
8 法林浩之のFIGHTING TALKS/法林浩之
10 UNIXネイティブの電子工作塾 e-Badge篇/大野浩之　コード掲載
17 ITエンジニアのためのマーケティング入門/水間丈博　本文掲載
20 逆に、Tukubaiコマンドをシェルスクリプトで実装してみる/今泉光之　本文掲載
28 アジャイル開発 Let’s Practice!/熊野憲辰
32 ユニケージ開発手法コードレビュー/新美勇一　コード掲載
42 姐のBENTO
44 それプロのエバンジェリストから愛をこめて/山本美穂
48 中小企業診断士が解説する、超実践的な会話術! 円滑コミュニケーションが世界を救う！/濱口誠一
50 漢のUNIX/後藤大地　コード掲載
58 香川大学SLPからお届け！/石井怜央（香川大学SLP）
62 40歳から始める、オレとRubyプログラミング/しょっさん　コード掲載
72 TechLION再録「エンジニアの生存戦略」
78 国際化と標準化/桑原滝弥・イケヤシロウ
80 もしインターネットの１秒が１年だったら/hakatashi・Mine02C4　本文掲載
88 バーティカルバーの極意/飯尾淳　コード掲載
94 中小企業手作りIT化奮戦記/菅雄一
100 人間とコンピュータの可能性/大岩元
102 Tech数独/gori.sh
104 ユニケージの目指すところ/シェル魔人

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

第1回　Ubuntuの導入（インストールメディアの作成）

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

Linuxには「ディストリビューション」と呼ばれる複数の種類があります。ディストリビューションによって操作方法が少し異なりますので、Linuxサーバーを構築する第一歩としてディストリビューションの選定から始めましょう。

サーバーに最適なディストリビューション

LinuxサーバーのOSとして利用するディストリビューションの場合、以下の四つを満足するものがよいでしょう。

これらのことから、Linuxでは人気が高いディストリビューション「Ubuntu」のサーバー版「Ubuntu Server」を選択します。このUbuntuは、インターネット上に存在するサーバーのOSとして多くのユーザーに利用されています。そのため、情報が豊富です。また、多くのアプリケーションが「パッケージ」と呼ばれる形式で用意されています。このパッケージなら導入も簡単です。
Ubuntuには、最初のリリースから5年間のサポートが付いた「LTS」（Long Term Support）というバージョンがあります。ここでいうサポートとは、主に不具合対処やセキュリティ対策用の更新ソフトウエアの提供のことです。2017年9月1日時点において、LTSの付いた最新Ubuntuのサーバー版は「Ubuntu Server 16.04.3 LTS」です。最初のリリースは2016年4月21日なので、2021年4月まで安心して使えます。
Ubuntu Serverは、サーバーOSとして動作させるために最低限必要なソフトだけを導入した状態でインストールできます。そのため、不要なアプリが導入されたり、必要のないサービスが動作していたりすることはほとんどありません。

shell-mag ブログの 2017年9月のアーカイブを表示しています。

-->

SFTPやSCPでファイルを送受信する

Elixir製のWebアプリケーションフレームワーク Phoenixを触ってみる 後編

蔵書の新規登録

ジャンルの作成

SSHサーバーを導入・起動する

日本語の文字化けを直す

はじめに

HTTPリクエストとレスポンス

4月19日 午前9時26分 HTTPリクエスト送信

4月28日 午前9時27分 HTTPリクエスト受信

Ubuntu Serverのインストール

サーバーに最適なディストリビューション

Elixir製のWebアプリケーションフレームワーク Phoenixを触ってみる後編

4月19日午前9時26分　HTTPリクエスト送信

4月28日午前9時27分　HTTPリクエスト受信