11月 « 2017 « shell-mag

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

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

# 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

#!/usr/bin/ruby
require 'cgi'
cgi = CGI.new
cgi.out(type: 'text/html',
        charset: 'UTF-8') do
  "

#!/usr/bin/ruby

require 'cgi'

cgi = CGI.new

cgi.out(type: 'text/html',

charset: 'UTF-8') do

hello again

  "
end

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  "

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

\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

# 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

# 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

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

以下は本誌に公開されていないお楽しみコードです。どうぞご利用ください。

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

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>

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

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

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

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

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

##################################################

# データ取得

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

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

##################################################

# データ取得

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 秒待つ
}

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;
  }
}

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

@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

@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

@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

@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

@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

@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);
}

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

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

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

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

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

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

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

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

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

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

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

#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    ファイルを指定。指定がない場合には標準入力を使用
%

% ./../../../bin/sum -h

名前

sum - 列の値を加算して最後の列に合計値を出力

書式

sum [-h] [file ...]

オプション

-h 使い方表示

file ファイルを指定。指定がない場合には標準入力を使用

% ./../../../bin/sum -v
sum: illegal option -- v
名前
        sum - 列の値を加算して最後の列に合計値を出力

書式
        sum [-h] [file ...]

オプション
        -h      使い方表示
        file    ファイルを指定。指定がない場合には標準入力を使用
%

% ./../../../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"

--- 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    ファイルを指定。指定がない場合には標準入力を使用
%

% ./../../../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
 }

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
%

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

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

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

#!/bin/bash

function hanoi () {

if [ $1 == 1 ]; then

echo 1

else

h=`hanoi $(($1 - 1))`

echo $((2 * $h + 1))

}

if [ x” $1” == x ]; then

echo 'usage: ./hanoi.sh #_of_disks'

exit

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;

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

}

if [ x"$1" == x ]; then

echo 'usage: ./hanoi_move.sh #_of_disks'

exit

# 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

#!/bin/bash

#GPIO6を出力に設定

if [ ! -e /sys/class/gpio/gpio6 ]; then

echo 6 > /sys/class/gpio/export

echo out > /sys/class/gpio/gpio6/direction

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

#!/bin/bash

##GPIO23を入力に設定

if [ ! -e /sys/class/gpio/gpio23 ]; then

echo 23 > /sys/class/gpio/export

echo in > /sys/class/gpio/gpio23/direction

SWICTH=1

##ボタンが押されたらWebブラウザーを起動

while [ $SWICTH = "1" ]

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

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

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}

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番ポートのみ）

ポートフォワーディングでは、サーバー自体はルーターが守りますから、セキュリティ対策はアクセスを許可しているサーバーソフトに対してだけで構いません。

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

-->