3月 « 2017 « shell-mag

ユニケージ開発手法　コードレビュー　vol.36（本誌vol.47掲載）

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

著者：USP研究所技術研究員　岡田健

　今回は、シェルスクリプトのデバッグを行いたい時、処理の途中or一部だけに限定して実行出来る uspTukubai のコマンド「run」を紹介します。

本記事掲載のシェルスクリプトマガジンvol.47は以下リンク先でご購入できます。
USP研究所通販サイトでは、個人用uspTukubaiのご購入も可能です。

#!/bin/bash -vx
#
# ITEMRANKING アイテムランキング表CUI出力
#
# usage: ./ITEMRANKING <集計開始日 yyyymmdd> <集計最終日 yyyymmdd> [表示件数]
#
# written by Ryuichi Ueda (xxxxxx@usp-lab.com)  Aug. 9, 2012

logfile=/home/usp/LOG/LOG.$(basename $0).$(date +%Y%m%d)
exec 2> $logfile

dir=/home/usp/KOJIN/okada/20170131_magazine_run/ITEMRANKING/
tmp=/tmp/$$

ERROR_EXIT(){
	echo エラー
	rm -f $tmp-*
	exit 1
}

day_from=20071203
day_to=20071209
rank_range=$1

[ "_$day_from" = "_" ]   && ERROR_EXIT
[ "_$day_to" = "_" ]     && ERROR_EXIT
[ "_$rank_range" = "_" ] && rank_range=50


############################################
# 売れ数の集計

#URE 1:店コード 2:商品コード 3:日付
#4:売れ数 5:売り上げ 6:値引き
cat $dir/POMPA/URE		|
#0001 0000007 20071201 117 8335 -145
#指定日以降のデータ
awk -v f=${day_from} '$3>=f'	|
#指定日以前のデータ
awk -v t=${day_to} '$3<=t'	|
self 2 4 5			|
#1:商品コード 2:売れ数 3:売り上げ高
sm2 1 1 2 3	> $tmp-ure
[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

################################################
#仕入れ数の合計

#SIRE 1:店コード 2:商品コード 3:日付 4:仕入れ数 5,6:他
cat $dir/POMPA/SIRE		|
awk -v f=${day_from} '$3>=f'	|
#指定日以前のデータ
awk -v t=${day_to} '$3<=t'	|
self 2 4			|
#1:商品コード 2:売れ数
sm2 1 1 2 2	> $tmp-sire
[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

################################################
#在庫数の合計

#ZAIKO.<日付> 1:店コード 2:商品コード 3:日付 4:在庫
cat $dir/POMPA/ZAIKO.${day_to}	|
self 2 4 			|
#1:商品コード 2:在庫数
sm2 1 1 2 2 > $tmp-zaiko
[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

################################################
#データの連結

hbar=--------------------------------------------------------------------------------------------------------------------------

days=$(mdate $day_to $day_from	| awk '{print $1+1}')

loopj num=1 $tmp-{ure,sire,zaiko}	|
#0000043 93584 40283328 164577 123523
#1:商品コード 2:売れ数 3:売り上げ 4:仕入れ数 5:在庫数
join1 key=1 $dir/POMPA/GENBAI -		|
#1:商品コード 2:原価 3:売価 4:売れ数 5:売り上げ 6:仕入れ数 7:在庫数
#0000048 331.2 480 93008 44697653 159336 117347
join1 key=1 $dir/POMPA/NAME -		|
#1:商品コード 2:商品名 3:原価 4:売価 5:売れ数 6:売り上げ 7:仕入れ数 8:在庫数
sort -k5,5nr				|
awk 'NR<='{rank_range}			|
juni					|
#1:順位 2:商品コード 3:商品名 4:原価 5:売価 6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数
awk '{print $0,$6/'$days'}'		|
#1:順位 2:商品コード 3:商品名 4:原価 5:売価 
#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数
awk '{print $0,$10!=0?$9/$10:"N/A"}'	|
#1:順位 2:商品コード 3:商品名 4:原価 5:売価 
#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数 11:在庫日数
awk '{print $0,$9*$5}'			|
#1:順位 2:商品コード 3:商品名 4:原価 5:売価 
#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数 
#11:在庫日数 12:在庫高
awk '{ara=$7-$4*$6;print $0,ara,ara*100/$7}'		|
#1:順位 2:商品コード 3:商品名 4:原価 5:売価 
#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数 
#11:在庫日数 12:在庫高 13:荒利 14:荒利率
self 1/6 8/11 7 12/14					|
#1:順位 2:商品コード 3:商品名 4:原価 5:売価 
#6:売れ数 7:仕入れ数 8:在庫数 9:平均売数 10:在庫日数
#11:売り上げ #12:在庫高 13:荒利 14:荒利率
awk '{for(i=11;i<=13;i++){$i=int($i/1000)};print}'	|
marume 4.1 9.0 10.1 14.1				|
comma 6 7 8 9 11 12 13					|
keta 2 7 -26 5 3 9 8 8 7 5 8 8 7 5			|
awk '{print;if(NR%5==0){print "'$hbar'"}}'	> $tmp-body
[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

##########################################################
# ヘッダを作る

echo $day_from $day_to		|
tarr				|
yobi -j 1			|
self 1.1.4 1.5.2 1.7 2		|
awk '{print $1"年"$2"月"$3"日（"$4"）"}'	> $tmp-days

kikan_from=$( head -n 1 $tmp-days)
kikan_to=$( tail -n 1 $tmp-days)


cat << FIN > $tmp-header
[アイテムランキング表]             出力   : $(date)
                                   ユーザ : $USER

集計期間： $kikan_from ～ $kikan_to
店舗範囲： 全店
商品範囲： 全商品
ランキング順： $days 日間売数合計順
表示範囲：上位 $rank_range アイテム

順                                                                                  在庫                               荒利
位 商品コード 商品名                  原価 売価   売数計 仕入数計 在庫数計 平均売数 日数 売上（千）在庫（千）荒利（千）率％
==========================================================================================================================
FIN

cat $tmp-header $tmp-body


rm -f $tmp-*
exit 0

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

#!/bin/bash -vx

# ITEMRANKING アイテムランキング表CUI出力

# usage: ./ITEMRANKING <集計開始日 yyyymmdd> <集計最終日 yyyymmdd> [表示件数]

# written by Ryuichi Ueda (xxxxxx@usp-lab.com) Aug. 9, 2012

logfile=/home/usp/LOG/LOG.$(basename $0).$(date +%Y%m%d)

exec 2> $logfile

dir=/home/usp/KOJIN/okada/20170131_magazine_run/ITEMRANKING/

tmp=/tmp/$$

ERROR_EXIT(){

echo エラー

rm -f $tmp-*

exit 1

}

day_from=20071203

day_to=20071209

rank_range=$1

[ "_$day_from" = "_" ] && ERROR_EXIT

[ "_$day_to" = "_" ] && ERROR_EXIT

[ "_$rank_range" = "_" ] && rank_range=50

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

# 売れ数の集計

#URE 1:店コード 2:商品コード 3:日付

#4:売れ数 5:売り上げ 6:値引き

cat $dir/POMPA/URE |

#0001 0000007 20071201 117 8335 -145

#指定日以降のデータ

awk -v f=${day_from} '$3>=f' |

#指定日以前のデータ

awk -v t=${day_to} '$3<=t' |

self 2 4 5 |

#1:商品コード 2:売れ数 3:売り上げ高

sm2 1 1 2 3 > $tmp-ure

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

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

#仕入れ数の合計

#SIRE 1:店コード 2:商品コード 3:日付 4:仕入れ数 5,6:他

cat $dir/POMPA/SIRE |

awk -v f=${day_from} '$3>=f' |

#指定日以前のデータ

awk -v t=${day_to} '$3<=t' |

self 2 4 |

#1:商品コード 2:売れ数

sm2 1 1 2 2 > $tmp-sire

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

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

#在庫数の合計

#ZAIKO.<日付> 1:店コード 2:商品コード 3:日付 4:在庫

cat $dir/POMPA/ZAIKO.${day_to} |

self 2 4 |

#1:商品コード 2:在庫数

sm2 1 1 2 2 > $tmp-zaiko

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

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

#データの連結

hbar=--------------------------------------------------------------------------------------------------------------------------

days=$(mdate $day_to $day_from | awk '{print $1+1}')

loopj num=1 $tmp-{ure,sire,zaiko} |

#0000043 93584 40283328 164577 123523

#1:商品コード 2:売れ数 3:売り上げ 4:仕入れ数 5:在庫数

join1 key=1 $dir/POMPA/GENBAI - |

#1:商品コード 2:原価 3:売価 4:売れ数 5:売り上げ 6:仕入れ数 7:在庫数

#0000048 331.2 480 93008 44697653 159336 117347

join1 key=1 $dir/POMPA/NAME - |

#1:商品コード 2:商品名 3:原価 4:売価 5:売れ数 6:売り上げ 7:仕入れ数 8:在庫数

sort -k5,5nr |

awk 'NR<='{rank_range} |

juni |

#1:順位 2:商品コード 3:商品名 4:原価 5:売価 6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数

awk '{print $0,$6/'$days'}' |

#1:順位 2:商品コード 3:商品名 4:原価 5:売価

#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数

awk '{print $0,$10!=0?$9/$10:"N/A"}' |

#1:順位 2:商品コード 3:商品名 4:原価 5:売価

#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数 11:在庫日数

awk '{print $0,$9*$5}' |

#1:順位 2:商品コード 3:商品名 4:原価 5:売価

#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数

#11:在庫日数 12:在庫高

awk '{ara=$7-$4*$6;print $0,ara,ara*100/$7}' |

#1:順位 2:商品コード 3:商品名 4:原価 5:売価

#6:売れ数 7:売り上げ 8:仕入れ数 9:在庫数 10:平均売数

#11:在庫日数 12:在庫高 13:荒利 14:荒利率

self 1/6 8/11 7 12/14 |

#1:順位 2:商品コード 3:商品名 4:原価 5:売価

#6:売れ数 7:仕入れ数 8:在庫数 9:平均売数 10:在庫日数

#11:売り上げ #12:在庫高 13:荒利 14:荒利率

awk '{for(i=11;i<=13;i++){$i=int($i/1000)};print}' |

marume 4.1 9.0 10.1 14.1 |

comma 6 7 8 9 11 12 13 |

keta 2 7 -26 5 3 9 8 8 7 5 8 8 7 5 |

awk '{print;if(NR%5==0){print "'$hbar'"}}' > $tmp-body

[ $(plus ${PIPESTATUS[@]}) -eq 0 ] || ERROR_EXIT

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

# ヘッダを作る

echo $day_from $day_to |

tarr |

yobi -j 1 |

self 1.1.4 1.5.2 1.7 2 |

awk '{print $1"年"$2"月"$3"日（"$4"）"}' > $tmp-days

kikan_from=$( head -n 1 $tmp-days)

kikan_to=$( tail -n 1 $tmp-days)

cat << FIN > $tmp-header

[アイテムランキング表] 出力 : $(date)

ユーザ : $USER

集計期間： $kikan_from ～ $kikan_to

店舗範囲：全店

商品範囲：全商品

ランキング順： $days 日間売数合計順

表示範囲：上位 $rank_range アイテム

順在庫荒利

位商品コード商品名原価売価売数計仕入数計在庫数計平均売数日数売上（千）在庫（千）荒利（千）率％

==========================================================================================================================

FIN

cat $tmp-header $tmp-body

rm -f $tmp-*

exit 0

[usp@demo1 SHELL.草稿]$ ./ITEMRANKING 10 2>/dev/null
[アイテムランキング表]             出力   : 2017年  2月  2日 木曜日 10:12:50 JST
                                   ユーザ : usp

集計期間： 2007年12月03日（月） ～ 2007年12月09日（日）
店舗範囲： 全店
商品範囲： 全商品
ランキング順： 7 日間売数合計順
表示範囲：上位 10 アイテム

順                                                在庫                               　　荒利
位 商品コード 商品名                  原価 売価   売数計 仕入数計 在庫数計 平均売数 日数 売上（千）在庫（千）荒利（千）率％
==========================================================================================================================
 1 0000361 牛細切れ                   512.4 610   290,087  510,778  299,129  41,441   7.2  177,089  182,468  28,448  16.1
 2 0000087 マンゴー                   617.7 870   267,497  422,354  212,295  38,214   5.6  232,846  184,696  67,613  29.0
 3 0000194 深谷葱                     705.0 940   256,844  464,458  276,025  36,692   7.5  241,569  259,463  60,494  25.0
 4 0000433 薄口醤油                   260.7 330   206,608  322,249  195,773  29,515   6.6   68,269   64,605  14,407  21.1
 5 0000234 鰻                         268.6 340   205,464  320,276  172,009  29,352   5.9   69,947   58,483  14,760  21.1
--------------------------------------------------------------------------------------------------------------------------
 6 0000254 メバル                     405.0 540   188,840  310,516  174,906  26,977   6.5  102,059   94,449  25,579  25.1
 7 0000291 アナゴ                     773.5 910   185,427  315,415  202,536  26,490   7.6  168,824  184,307  25,396  15.0
 8 0000584 絹豆腐                     604.8 840   182,628  314,490  190,176  26,090   7.3  153,493  159,747  43,040  28.0
 9 0000122 苺                         198.0 220   181,308  263,982  148,368  25,901   5.7   39,983   32,640   4,084  10.2
10 0000268 マアジ                     598.4 680   180,947  338,653  219,838  25,850   8.5  123,149  149,489  14,871  12.1
--------------------------------------------------------------------------------------------------------------------------

[usp@demo1 SHELL.草稿]$ ./ITEMRANKING 10 2>/dev/null

[アイテムランキング表] 出力 : 2017年 2月 2日木曜日 10:12:50 JST

ユーザ : usp

集計期間： 2007年12月03日（月）～ 2007年12月09日（日）

店舗範囲：全店

商品範囲：全商品

ランキング順： 7 日間売数合計順

表示範囲：上位 10 アイテム

順在庫　　荒利

位商品コード商品名原価売価売数計仕入数計在庫数計平均売数日数売上（千）在庫（千）荒利（千）率％

==========================================================================================================================

1 0000361 牛細切れ 512.4 610 290,087 510,778 299,129 41,441 7.2 177,089 182,468 28,448 16.1

2 0000087 マンゴー 617.7 870 267,497 422,354 212,295 38,214 5.6 232,846 184,696 67,613 29.0

3 0000194 深谷葱 705.0 940 256,844 464,458 276,025 36,692 7.5 241,569 259,463 60,494 25.0

4 0000433 薄口醤油 260.7 330 206,608 322,249 195,773 29,515 6.6 68,269 64,605 14,407 21.1

5 0000234 鰻 268.6 340 205,464 320,276 172,009 29,352 5.9 69,947 58,483 14,760 21.1

--------------------------------------------------------------------------------------------------------------------------

6 0000254 メバル 405.0 540 188,840 310,516 174,906 26,977 6.5 102,059 94,449 25,579 25.1

7 0000291 アナゴ 773.5 910 185,427 315,415 202,536 26,490 7.6 168,824 184,307 25,396 15.0

8 0000584 絹豆腐 604.8 840 182,628 314,490 190,176 26,090 7.3 153,493 159,747 43,040 28.0

9 0000122 苺 198.0 220 181,308 263,982 148,368 25,901 5.7 39,983 32,640 4,084 10.2

10 0000268 マアジ 598.4 680 180,947 338,653 219,838 25,850 8.5 123,149 149,489 14,871 12.1

--------------------------------------------------------------------------------------------------------------------------

$ run ./ITEMRANKING 1-27
（中略）
day_from=20071203
+ day_from=20071203
day_to=20071209
+ day_to=20071209
rank_range=$1
+ rank_range=

[ "_$rank_range" = "_" ] && rank_range=50
+ '[' _ = _ ']'
+ rank_range=50
exit 0
+ exit 0

$ run ./ITEMRANKING 1-27

（中略）

day_from=20071203

+ day_from=20071203

day_to=20071209

+ day_to=20071209

rank_range=$1

+ rank_range=

[ "_$rank_range" = "_" ] && rank_range=50

+ '[' _ = _ ']'

+ rank_range=50

exit 0

+ exit 0

$ run "./ITEMRANKING 10" 1-27
（中略）
day_from=20071203
+ day_from=20071203
day_to=20071209
+ day_to=20071209
rank_range=$1
+ rank_range=10

[ "_$rank_range" = "_" ] && rank_range=50
+ '[' _10 = _ ']'
exit 0
+ exit 0

$ run "./ITEMRANKING 10" 1-27

（中略）

day_from=20071203

+ day_from=20071203

day_to=20071209

+ day_to=20071209

rank_range=$1

+ rank_range=10

[ "_$rank_range" = "_" ] && rank_range=50

+ '[' _10 = _ ']'

exit 0

+ exit 0

$ run --log errlog "./ITEMRANKING" 1-35 | head -3 | keta
0001 0000007 20071201 117  8335 -145
0001 0000007 20071203 221 15470    0
0001 0000007 20071205  85  5950    0

$ run --log errlog "./ITEMRANKING" 1-35 | head -3 | keta

0001 0000007 20071201 117 8335 -145

0001 0000007 20071203 221 15470 0

0001 0000007 20071205 85 5950 0

$ run --log errlog "./ITEMRANKING" 1-38 | head -7 | keta
0001 0000007 20071203 221 15470     0
0001 0000007 20071205  85  5950     0
0001 0000007 20071206 293 20527   -17
0001 0000007 20071207 445 31150     0
0001 0000007 20071208 325 22750     0
0001 0000007 20071210 320 22400     0
0001 0000007 20071212 219 16517 -1187

$ run --log errlog "./ITEMRANKING" 1-38 | head -7 | keta

0001 0000007 20071203 221 15470 0

0001 0000007 20071205 85 5950 0

0001 0000007 20071206 293 20527 -17

0001 0000007 20071207 445 31150 0

0001 0000007 20071208 325 22750 0

0001 0000007 20071210 320 22400 0

0001 0000007 20071212 219 16517 -1187

$ run --log errlog "./ITEMRANKING" 1-40 | head -7 | keta
0001 0000007 20071203 221 15470   0
0001 0000007 20071205  85  5950   0
0001 0000007 20071206 293 20527 -17
0001 0000007 20071207 445 31150   0
0001 0000007 20071208 325 22750   0
0002 0000007 20071203 588 41160   0
0002 0000007 20071204 444 31080   0

$ run --log errlog "./ITEMRANKING" 1-40 | head -7 | keta

0001 0000007 20071203 221 15470 0

0001 0000007 20071205 85 5950 0

0001 0000007 20071206 293 20527 -17

0001 0000007 20071207 445 31150 0

0001 0000007 20071208 325 22750 0

0002 0000007 20071203 588 41160 0

0002 0000007 20071204 444 31080 0

$ mkdir /tmp/okada
$ run --var tmp=/tmp/okada/tmp "./ITEMRANKING" 1-43
（略）
tmp=/tmp/okada/tmp
+ tmp=/tmp/okada/tmp
（略）
sm2 1 1 2 3     > $tmp-ure
（略）
$ head -2 /tmp/okada/tmp-ure
0000007 101071 7114796
0000017 100305 17089138

$ mkdir /tmp/okada

$ run --var tmp=/tmp/okada/tmp "./ITEMRANKING" 1-43

（略）

tmp=/tmp/okada/tmp

+ tmp=/tmp/okada/tmp

（略）

sm2 1 1 2 3 > $tmp-ure

（略）

$ head -2 /tmp/okada/tmp-ure

0000007 101071 7114796

0000017 100305 17089138

$ run --log errlog --var tmp=/tmp/okada/tmp "./ITEMRANKING" 50-56
ls /tmp/okada
tmp-sire  tmp-ure
$ head -2 /tmp/okada/tmp-sire
0000007 161093
0000017 141954
$ run --log errlog --var tmp=/tmp/okada/tmp "./ITEMRANKING" 63-66
$ ls /tmp/okada
tmp-sire  tmp-ure  tmp-zaiko
$ head -2 /tmp/okada/tmp-zaiko
0000007 115314
0000017 101649

$ run --log errlog --var tmp=/tmp/okada/tmp "./ITEMRANKING" 50-56

ls /tmp/okada

tmp-sire tmp-ure

$ head -2 /tmp/okada/tmp-sire

0000007 161093

0000017 141954

$ run --log errlog --var tmp=/tmp/okada/tmp "./ITEMRANKING" 63-66

$ ls /tmp/okada

tmp-sire tmp-ure tmp-zaiko

$ head -2 /tmp/okada/tmp-zaiko

0000007 115314

0000017 101649

$ run --log errlog --var tmp=/tmp/okada/tmp "./ITEMRANKING" 76-76 | head -3 | keta
0000007 101071  7114796 161093 115314
0000017 100305 17089138 141954 101649
0000021  86718 18253232 140204 114968

$ run --log errlog --var tmp=/tmp/okada/tmp "./ITEMRANKING" 76-76 | head -3 | keta

0000007 101071 7114796 161093 115314

0000017 100305 17089138 141954 101649

0000021 86718 18253232 140204 114968

$ run
Usage   : run [option] "<対象SHELL 引数...>" [<開始行>-<終了行>]
Version : Wed Oct  7 23:51:15 JST 2015
Edition : 0

option一覧：
  --log <ファイル名>    ログ出力先を変える。
  --var <変数名>=<値>  変数代入値を差し替える。
  --stop upcnt           UPCNT出力を止める。
  --stop sem             SEMAPHORE生成を止める。
  --stop clean           関連の削除を止める（対象はSHELLとrunの両方）。
  --break <行数>        ブレークポイントを入れる。
  --debug                run自身のdebug情報を出力する

使い方例：
  run SCRIPT                      # SCRIPTをそのまま実行
  run "SCRIPT A B"                # SCRIPTに引数を与えて実行
  run SCRIPT 4-6                  # SCRIPTの4～6行目を実行
  run --log errlog SCRIPT 4-6     # 出力ログを"errlog"に保存
  run --var tmp=/tmp/okada/tmp SCRIPT 4-6
                                  # 変数tmpに/tmp/okada/tmpを代入
  run --var dir=/home/usp,tmp=/tmp/okada/tmp SCRIPT 4-6
                                  # 複数の変数に代入。
  run --stop upcnt SCRIPT 4-6     # UPCNTへ出力しないで実行。
  run --stop upcnt,sem SCRIPT 4-6 # UPCNTとセマフォ出力しないで実行。
  run --stop clean SCRIPT 4-6     # 末尾の rm -f -* を実行しない。
  run --break 15,19,20 SCRIPT     # 15,19,20行目にブレークポイントを入れる。

$ run

Usage : run [option] "<対象SHELL 引数...>" [<開始行>-<終了行>]

Version : Wed Oct 7 23:51:15 JST 2015

Edition : 0

option一覧：

--log <ファイル名> ログ出力先を変える。

--var <変数名>=<値> 変数代入値を差し替える。

--stop upcnt UPCNT出力を止める。

--stop sem SEMAPHORE生成を止める。

--stop clean 関連の削除を止める（対象はSHELLとrunの両方）。

--break <行数> ブレークポイントを入れる。

--debug run自身のdebug情報を出力する

使い方例：

run SCRIPT # SCRIPTをそのまま実行

run "SCRIPT A B" # SCRIPTに引数を与えて実行

run SCRIPT 4-6 # SCRIPTの4～6行目を実行

run --log errlog SCRIPT 4-6 # 出力ログを"errlog"に保存

run --var tmp=/tmp/okada/tmp SCRIPT 4-6

# 変数tmpに/tmp/okada/tmpを代入

run --var dir=/home/usp,tmp=/tmp/okada/tmp SCRIPT 4-6

# 複数の変数に代入。

run --stop upcnt SCRIPT 4-6 # UPCNTへ出力しないで実行。

run --stop upcnt,sem SCRIPT 4-6 # UPCNTとセマフォ出力しないで実行。

run --stop clean SCRIPT 4-6 # 末尾の rm -f -* を実行しない。

run --break 15,19,20 SCRIPT # 15,19,20行目にブレークポイントを入れる。

香川大学SLPからお届け！(vol.47掲載)

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

著者：石井怜央（香川大学SLP）

　前回は、OSC広島の前日に行われた学生LT大会の様子を紹介し、その中で僕が発表した、サークルで開発を行ったメール管理システムについて触れました。
　今回はその開発で使用した、Sinatraやmail gemについて紹介し、それらを組み合わせて簡単なWebアプリケーションを作成したいと思います。

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

$ gem install bundler

1	$ gem install bundler

$ bundle init

1	$ bundle init

require 'sinatra'
set :bind, '0.0.0.0'

get '/' do
  'Hello World'
end

require 'sinatra'

set :bind, '0.0.0.0'

get '/' do

'Hello World'

end

require 'sinatra'
set :bind, '0.0.0.0'

get '/' do
  @world = 'World'    # erbファイルに渡すインスタンス変数
  erb :hello    # hello.erbを呼び出す
end

require 'sinatra'

set :bind, '0.0.0.0'

get '/' do

@world = 'World' # erbファイルに渡すインスタンス変数

erb :hello # hello.erbを呼び出す

end

<!DOCTYPE html>
<html>
  <head>
    <meta charset="UTF-8">
    <title>Hello World</title>
  </head>
  <body>
    <p>Hello <%= @world %></p>
  </body>
</html>

<!DOCTYPE html>

<html>

<head>

<title>Hello World</title>

</head>

<body>

<p>Hello <%= @world %></p>

</body>

</html>

require 'sinatra'
require 'mail'
set :bind, '0.0.0.0'

get '/new' do
  erb :new_mail
end

post '/send' do
  mail_to = params[:mail_to]
  title = params[:title]
  sentence = params[:sentence]

  mail = Mail.new do
    from    '送信元メールアドレス'
    to      "#{mail_to}"
    subject "#{title}"
    body    "#{sentence}"
  end

  options = { :address              => "smtp.gmail.com",
              :port                 => 587,
              :domain               => "gmail.com",
              :user_name            => '送信元メールアドレス',
              :password             => "パスワード",
              :authentication       => :plain,
              :enable_starttls_auto => true  }


  mail.charset = 'utf-8'
  mail.delivery_method(:smtp, options)
  mail.deliver

  @mail_to = mail_to
  @title = title
  @sentence = sentence
  erb :sent

end

require 'sinatra'

require 'mail'

set :bind, '0.0.0.0'

get '/new' do

erb :new_mail

end

post '/send' do

mail_to = params[:mail_to]

title = params[:title]

sentence = params[:sentence]

mail = Mail.new do

from '送信元メールアドレス'

to "#{mail_to}"

subject "#{title}"

body "#{sentence}"

end

options = { :address => "smtp.gmail.com",

:port => 587,

:domain => "gmail.com",

:user_name => '送信元メールアドレス',

:password => "パスワード",

:authentication => :plain,

:enable_starttls_auto => true }

mail.charset = 'utf-8'

mail.delivery_method(:smtp, options)

mail.deliver

@mail_to = mail_to

@title = title

@sentence = sentence

erb :sent

end

<!DOCTYPE html>
<html>
  <head>
    <meta charset="UTF-8">
    <title>new mail</title>
  </head>
  <body>

    <form method="post" action="send">

          <h4>宛先</h4>
          <input type="text" name="mail_to">

        <h4>件名</h4>
        <input type="text" name="title">

        <h4>本文</h4>
        <textarea  rows="5" name="sentence"></textarea>

      <button type="submit">送信</button>

    </form>
  </body>
</html>

<!DOCTYPE html>

<html>

<head>

</head>

<body>

</form>

</body>

</html>

<!DOCTYPE html>
<html>
  <head>
    <meta charset="UTF-8">
    <title>sent</title>
  </head>

  <body>
    <h4>宛先</h4>
    <p><%=@mail_to%></p>

    <h4>件名</h4>
    <p><%=@title%></p>

    <h4>本文</h4>
    <p><%=@sentence.gsub("\n","<br>\n")%></p>

    <p>送信しました。</p>

  </body>
</html>

<!DOCTYPE html>

<html>

<head>

</head>

<body>

<p>送信しました。</p>

</body>

</html>

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

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

著者：しょっさん

　最近、自宅で二酸化炭素濃度をはかるようになりました。　予想していた以上に、家の中の空気が汚染されていることがわかって、衝撃を受けています。部屋が暖かいから眠くなるんだなー…なんて考えていましたが、暖かいんじゃなくて二酸化濃度が高いからという可能性が高いです。
　二酸化炭素濃度を下げるには、換気をすることが基本ですが、この濃度を下げてからというもの、家での活動がとてもスムーズになり眠くなることが減りました。
　なんでこんなことしてるのかって? もちろん、クリアーな頭の状態でプログラミングするため。さぁ今月も頑張っていきましょう!

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

$ bundle gem reins
Creating gem 'reins'...
Do you want to generate tests with your gem?
Type 'rspec' or 'minitest' to generate those test files now and in the future. rspec/minitest/(none): rspec
Do you want to license your code permissively under the MIT license?
This means that any other developer or company will be legally allowed to use your code for free as long as they admit you created it. You can read more about the MIT license at http://choosealicense.com/licenses/mit. y/(n):
Do you want to include a code of conduct in gems you generate?
Codes of conduct can increase contributions to your project by contributors who prefer collaborative, safe spaces. You can read more about the code of conduct at contributor-covenant.org. Having a codeof conduct means agreeing to the responsibility of enforcing it, so be sure that you are prepared todo that. Be sure that your email address is specified as a contact in the generated code of conduct so that people know who to contact in case of a violation. For suggestions about how to enforce codesof conduct, see http://bit.ly/coc-enforcement. y/(n):
      create  reins/Gemfile
      create  reins/.gitignore
      create  reins/lib/reins.rb
      create  reins/lib/reins/version.rb
      create  reins/reins.gemspec
      create  reins/Rakefile
      create  reins/README.md
      create  reins/bin/console
      create  reins/bin/setup
      create  reins/.travis.yml
      create  reins/.rspec
      create  reins/spec/spec_helper.rb
      create  reins/spec/reins_spec.rb
Initializing git repo in /xxxxxx/reins

$ bundle gem reins

Creating gem 'reins'...

Do you want to generate tests with your gem?

Type 'rspec' or 'minitest' to generate those test files now and in the future. rspec/minitest/(none): rspec

Do you want to license your code permissively under the MIT license?

This means that any other developer or company will be legally allowed to use your code for free as long as they admit you created it. You can read more about the MIT license at http://choosealicense.com/licenses/mit. y/(n):

Do you want to include a code of conduct in gems you generate?

Codes of conduct can increase contributions to your project by contributors who prefer collaborative, safe spaces. You can read more about the code of conduct at contributor-covenant.org. Having a codeof conduct means agreeing to the responsibility of enforcing it, so be sure that you are prepared todo that. Be sure that your email address is specified as a contact in the generated code of conduct so that people know who to contact in case of a violation. For suggestions about how to enforce codesof conduct, see http://bit.ly/coc-enforcement. y/(n):

create reins/Gemfile

create reins/.gitignore

create reins/lib/reins.rb

create reins/lib/reins/version.rb

create reins/reins.gemspec

create reins/Rakefile

create reins/README.md

create reins/bin/console

create reins/bin/setup

create reins/.travis.yml

create reins/.rspec

create reins/spec/spec_helper.rb

create reins/spec/reins_spec.rb

Initializing git repo in /xxxxxx/reins

├── Gemfile
├── Gemfile.lock
├── LICENSE
├── README.md
├── Rakefile
├── lib
│ ├── reins
│ │ ├── auth_service.rb
│ │ ├── config.rb
│ │ ├── host_registry.rb
│ │ ├── receiver.rb
│ │ ├── task_control.rb
│ │ └── version.rb
│ └── reins.rb
├── reins.gemspec
└── spec
　 ├── reins_spec.rb
　 └── spec_helper.rb

├── Gemfile

├── Gemfile.lock

├── LICENSE

├── README.md

├── Rakefile

├── lib

│ ├── reins

│ │ ├── auth_service.rb

│ │ ├── config.rb

│ │ ├── host_registry.rb

│ │ ├── receiver.rb

│ │ ├── task_control.rb

│ │ └── version.rb

│ └── reins.rb

├── reins.gemspec

└── spec

　 ├── reins_spec.rb

　 └── spec_helper.rb

# coding: utf-8
require "spec_helper"
require "socket"

RSpec.describe Reins do
  describe "定数/変数の設定" do
    it "Reins::VERSION の指定" do
      expect(Reins::VERSION).not_to be nil
    end
    it "logger の指定" do
      expect(Reins::logger).not_to be nil
    end
    it "data managerのインスタンス化" do
      expect(Reins::auth_service).not_to be nil
    end
    it "authenticatorのインスタンス化" do
      expect(Reins::regist_host).not_to be nil
    end
  end

  # AuthService classのテスト
  describe "AuthService" do
    describe "#authenticate_key" do
      let(:sha512) { "106a6484291b9778c224731501d2deeb71f2b83558a0e9784fe33646f56182f69de448e92fe83fd4e57d629987f9d0dd79bf1cbca4e83b996e272ba44faa6adb" }
      let(:normal) { Reins::AuthService.new }
      let(:other)  { Reins::AuthService.new(sha512) }

      context "正常に認証された場合" do
        it { expect(normal.authenticate_key('DEMO', '192.168.0.10')).not_to eq(false) }
        it { expect(other.authenticate_key('40ruby', '192.168.0.10')).not_to eq(false) }
      end

      context "異なる認証キーで呼び出された場合" do
        it { expect(normal.authenticate_key('TEST', '192.168.0.10')).to eq(false) }
        it { expect(other.authenticate_key('DEMO', '192.168.0.10')).to eq(false) }
      end
    end

    describe "#is_varid" do
      let(:auth) { Reins::AuthService.new }
      let(:key)  { auth.authenticate_key('DEMO', '192.168.0.10') }

      context "登録済みのコードの場合" do
        it "接続認証キーで、当のIPアドレスが返る" do
          allow(auth).to receive(:is_varid).and_return('192.168.0.10')
          expect(auth.is_varid(key)).to eq('192.168.0.10')
        end
      end
      context "未登録コードの場合" do
        it "nil" do
          expect(auth.is_varid(key)).to eq(nil)
        end
      end
    end
  end

  # HostRegistry Classのテスト
  describe 'HostRegistry' do
    let(:regist_test)    { Reins::HostRegistry.new("test_db.csv") }
    let(:test_key)       { "TestKey" }
    let(:localhost)       { '127.0.0.1' }
    let(:correct_hosts)   { ['192.168.0.10','1.0.0.1','239.255.255.254'] }
    let(:incorrect_hosts) { ['100','[100,100]','1:0:0:1','1/0/0/1','0.0.0.1','1.0.0.0','0.0.0.0','240.0.0.1','240.255.255.254','0.256.0.1','0.0.256.1','239.255.255.255','-1.0.0.0','0.-1.0.0','0.0.-1.0','0.0.0.-1'] }

    before do
      allow(regist_test).to receive(:store).and_return(true)
    end

    describe '#create' do
      subject {regist_test.create(localhost, test_key) }
      it '同じIPを追加すると false' do
        regist_test.create(localhost, test_key)
        is_expected.to eq(false)
      end
    end

    describe '#read_hosts' do
      subject {regist_test.read_hosts }
      context '正常に登録されている場合' do
        it '未登録時に呼び出すと、空の配列' do
          is_expected.to eq([])
        end
        it 'localhost を1つ登録すると、[127.0.0.1]' do
          regist_test.create(localhost, test_key)
          is_expected.to eq([localhost])
        end
        it '複数のアドレスを登録した場合は、複数のアドレス' do
          correct_hosts.each   { |host|regist_test.create(host, test_key) }
          is_expected.to match_array(correct_hosts)
        end
      end
      context '不正なIPアドレスの場合' do
        it '有効範囲外のIPアドレスを登録しても登録されず、空の配列' do
          incorrect_hosts.each { |host|regist_test.create(host, test_key) }
          is_expected.to match_array([])
        end
      end
    end

    describe '#read_hostkeys' do
      it '登録しなければ、空' do
        expect(regist_test.hosts).to eq([])
        expect(regist_test.read_hostkeys).to eq({})
        expect(regist_test.read_hostkeys.size).to eq(0)
      end
      it 'ハッシュ化された接続キーの一覧' do
        correct_hosts.each   { |host|regist_test.create(host, test_key) }
        expect(regist_test.read_hostkeys.size).to eq(3)
      end
    end

    describe '#update' do
      before {regist_test.create(localhost, test_key) }
      context '正常に更新できる場合' do
        it '有効なIPアドレスへ変更すると host が変更' do
          before_host = localhost
          correct_hosts.each do |host|
            expect {regist_test.update(before_host, host) }.to change {regist_test.read_hosts }.from([before_host]).to([host])
            before_host  = host
          end
        end
      end
      context '更新できない場合' do
        it '有効範囲外のIPアドレスへ変更すると false' do
          incorrect_hosts.each do |host|
            expect(regist_test.update(localhost, host)).to eq(false)
          end
        end
        it '未登録のIPアドレスを指定すると false' do
          expect(regist_test.update('192.168.0.1','172.16.0.1')).to eq(false)
        end
        it 'すでに存在するIPアドレスへ変更すると false' do
          expect(regist_test.update('192.168.0.1',localhost)).to eq(false)
        end
      end
    end

describe '#delete' do
      before {regist_test.create("192.168.0.1", test_key)}
      subject {regist_test.delete(localhost) }
      context '正常に削除できる場合' do
        it '登録済みのアドレスを削除すると、そのアドレス' do
          regist_test.create(localhost, test_key)
          is_expected.to eq(localhost)
        end
      end
      context '削除できない場合' do
        it '削除対象がなければ nil' do
          is_expected.to eq(nil)
        end
      end
    end
  end

  # TaskControl class のテスト
  describe 'TaskControl' do
    before { @server = TCPServer.new(24368) }
    after  { @server.close }
    let(:tasks) { Reins::TaskControl.new }

    describe '#connect' do
      context 'クライアントへ接続できる場合' do
        subject { tasks.connect }
        it 'モックを使って正常接続のコール' do
          allow(tasks).to receive(:connect).and_return(true)
          is_expected.to eq(true)
        end
      end

      context 'クライアントへ接続できない場合' do
        it '接続先が存在しないと Standard Error' do
          # TODO: 実際は Raise ではなく、成否を True/False でもらうこととする
          expect{ Reins::TaskControl.new('localhost', 65000) }.to raise_error 'Not Connect'
        end
        it 'クライアントが停止していたら false' do
          allow(tasks).to receive(:connect).and_return(false)
          expect(tasks.connect).to eq(false)
        end
      end
    end

    describe '#disconnect' do
      context '正常に切断できた場合' do
        subject { tasks.disconnect }
        it 'こちらから、クライアントとの接続を切断して、成功すると nil' do
          is_expected.to eq(nil)
        end
      end
    end
  end

end

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

# coding: utf-8

require "spec_helper"

require "socket"

RSpec.describe Reins do

describe "定数/変数の設定" do

it "Reins::VERSION の指定" do

expect(Reins::VERSION).not_to be nil

end

it "logger の指定" do

expect(Reins::logger).not_to be nil

end

it "data managerのインスタンス化" do

expect(Reins::auth_service).not_to be nil

end

it "authenticatorのインスタンス化" do

expect(Reins::regist_host).not_to be nil

end

# AuthService classのテスト

describe "AuthService" do

describe "#authenticate_key" do

let(:sha512) { "106a6484291b9778c224731501d2deeb71f2b83558a0e9784fe33646f56182f69de448e92fe83fd4e57d629987f9d0dd79bf1cbca4e83b996e272ba44faa6adb" }

let(:normal) { Reins::AuthService.new }

let(:other) { Reins::AuthService.new(sha512) }

context "正常に認証された場合" do

it { expect(normal.authenticate_key('DEMO', '192.168.0.10')).not_to eq(false) }

it { expect(other.authenticate_key('40ruby', '192.168.0.10')).not_to eq(false) }

end

context "異なる認証キーで呼び出された場合" do

it { expect(normal.authenticate_key('TEST', '192.168.0.10')).to eq(false) }

it { expect(other.authenticate_key('DEMO', '192.168.0.10')).to eq(false) }

end

describe "#is_varid" do

let(:auth) { Reins::AuthService.new }

let(:key) { auth.authenticate_key('DEMO', '192.168.0.10') }

context "登録済みのコードの場合" do

it "接続認証キーで、当のIPアドレスが返る" do

allow(auth).to receive(:is_varid).and_return('192.168.0.10')

expect(auth.is_varid(key)).to eq('192.168.0.10')

end

context "未登録コードの場合" do

it "nil" do

expect(auth.is_varid(key)).to eq(nil)

end

# HostRegistry Classのテスト

describe 'HostRegistry' do

let(:regist_test) { Reins::HostRegistry.new("test_db.csv") }

let(:test_key) { "TestKey" }

let(:localhost) { '127.0.0.1' }

let(:correct_hosts) { ['192.168.0.10','1.0.0.1','239.255.255.254'] }

let(:incorrect_hosts) { ['100','[100,100]','1:0:0:1','1/0/0/1','0.0.0.1','1.0.0.0','0.0.0.0','240.0.0.1','240.255.255.254','0.256.0.1','0.0.256.1','239.255.255.255','-1.0.0.0','0.-1.0.0','0.0.-1.0','0.0.0.-1'] }

before do

allow(regist_test).to receive(:store).and_return(true)

end

describe '#create' do

subject {regist_test.create(localhost, test_key) }

it '同じIPを追加すると false' do

regist_test.create(localhost, test_key)

is_expected.to eq(false)

end

describe '#read_hosts' do

subject {regist_test.read_hosts }

context '正常に登録されている場合' do

it '未登録時に呼び出すと、空の配列' do

is_expected.to eq([])

end

it 'localhost を1つ登録すると、[127.0.0.1]' do

regist_test.create(localhost, test_key)

is_expected.to eq([localhost])

end

it '複数のアドレスを登録した場合は、複数のアドレス' do

correct_hosts.each { |host|regist_test.create(host, test_key) }

is_expected.to match_array(correct_hosts)

end

context '不正なIPアドレスの場合' do

it '有効範囲外のIPアドレスを登録しても登録されず、空の配列' do

incorrect_hosts.each { |host|regist_test.create(host, test_key) }

is_expected.to match_array([])

end

describe '#read_hostkeys' do

it '登録しなければ、空' do

expect(regist_test.hosts).to eq([])

expect(regist_test.read_hostkeys).to eq({})

expect(regist_test.read_hostkeys.size).to eq(0)

end

it 'ハッシュ化された接続キーの一覧' do

correct_hosts.each { |host|regist_test.create(host, test_key) }

expect(regist_test.read_hostkeys.size).to eq(3)

end

describe '#update' do

before {regist_test.create(localhost, test_key) }

context '正常に更新できる場合' do

it '有効なIPアドレスへ変更すると host が変更' do

before_host = localhost

correct_hosts.each do |host|

expect {regist_test.update(before_host, host) }.to change {regist_test.read_hosts }.from([before_host]).to([host])

before_host = host

end

context '更新できない場合' do

it '有効範囲外のIPアドレスへ変更すると false' do

incorrect_hosts.each do |host|

expect(regist_test.update(localhost, host)).to eq(false)

end

it '未登録のIPアドレスを指定すると false' do

expect(regist_test.update('192.168.0.1','172.16.0.1')).to eq(false)

end

it 'すでに存在するIPアドレスへ変更すると false' do

expect(regist_test.update('192.168.0.1',localhost)).to eq(false)

end

describe '#delete' do

before {regist_test.create("192.168.0.1", test_key)}

subject {regist_test.delete(localhost) }

context '正常に削除できる場合' do

it '登録済みのアドレスを削除すると、そのアドレス' do

regist_test.create(localhost, test_key)

is_expected.to eq(localhost)

end

context '削除できない場合' do

it '削除対象がなければ nil' do

is_expected.to eq(nil)

end

# TaskControl class のテスト

describe 'TaskControl' do

before { @server = TCPServer.new(24368) }

after { @server.close }

let(:tasks) { Reins::TaskControl.new }

describe '#connect' do

context 'クライアントへ接続できる場合' do

subject { tasks.connect }

it 'モックを使って正常接続のコール' do

allow(tasks).to receive(:connect).and_return(true)

is_expected.to eq(true)

end

context 'クライアントへ接続できない場合' do

it '接続先が存在しないと Standard Error' do

# TODO: 実際は Raise ではなく、成否を True/False でもらうこととする

expect{ Reins::TaskControl.new('localhost', 65000) }.to raise_error 'Not Connect'

end

it 'クライアントが停止していたら false' do

allow(tasks).to receive(:connect).and_return(false)

expect(tasks.connect).to eq(false)

end

describe '#disconnect' do

context '正常に切断できた場合' do

subject { tasks.disconnect }

it 'こちらから、クライアントとの接続を切断して、成功すると nil' do

is_expected.to eq(nil)

end

# filename: reins.rb
require "reins/version"
require "reins/auth_service"
require "reins/host_registry"
require "reins/task_control"
require "reins/config"

module Reins
  def start
  end

  module_function :start
end

# filename: reins.rb

require "reins/version"

require "reins/auth_service"

require "reins/host_registry"

require "reins/task_control"

require "reins/config"

module Reins

def start

end

module_function :start

end

module Reins
  VERSION = "0.1.7"
end

module Reins

VERSION = "0.1.7"

end

# coding: utf-8
require 'logger'

module Reins
  class << self
    attr_accessor :logger, :auth_service, :regist_host

    def configure
      yield self
    end
  end
end

Reins.configure do |config|
  config.logger       = Logger.new(ENV['REINS_LOGGER'] || "/tmp/reins.log")
  config.auth_service = Reins::AuthService.new(ENV['REINS_KEY'] || "106a6484291b9778c224731501d2deeb71f2b83558a0e9784fe33646f56182f69de448e92fe83fd4e57d629987f9d0dd79bf1cbca4e83b996e272ba44faa6adb")
  config.regist_host  = Reins::HostRegistry.new(ENV['REINS_DATABASE'] || "./40ruby.csv")
end

Reins::logger.level = ENV['REINS_LOGLEVEL'] ? eval("Logger::#{ENV['REINS_LOGLEVEL']}") : Logger::WARN

# coding: utf-8

require 'logger'

module Reins

class << self

attr_accessor :logger, :auth_service, :regist_host

def configure

yield self

end

Reins.configure do |config|

config.logger = Logger.new(ENV['REINS_LOGGER'] || "/tmp/reins.log")

config.auth_service = Reins::AuthService.new(ENV['REINS_KEY'] || "106a6484291b9778c224731501d2deeb71f2b83558a0e9784fe33646f56182f69de448e92fe83fd4e57d629987f9d0dd79bf1cbca4e83b996e272ba44faa6adb")

config.regist_host = Reins::HostRegistry.new(ENV['REINS_DATABASE'] || "./40ruby.csv")

end

Reins::logger.level = ENV['REINS_LOGLEVEL'] ? eval("Logger::#{ENV['REINS_LOGLEVEL']}") : Logger::WARN

# coding: utf-8
# filename: auth_service.rb
# require "digest/md5"
require "digest/sha2"

module Reins
  class AuthService 
    # サーバの認証キーを定義する
    # == パラメータ
    # secret_key:: SHA512 でハッシュ化されたキーを指定する
    # == 返り値
    # nil
    def initialize(secret_key = 'ac58c2bedf7c1d4e35136f2ca4f81acdece03fa9e90aeefa0d363488649c7f52d7064285923f814592d53c419f5c4db59ee1a867b4852d18e0fac6efd5874072')
      @secret_key = secret_key
      nil
    end

    # クライアント認証を行う
    # 接続元が要求してきたキーが、サーバ側で設定されているハッシュ値と比較する
    # == パラメータ
    # key:: ハッシュ化される前のキー
    # ip:: 接続元のIPアドレス
    # == 返り値
    # 認証:: ハッシュ化されたクライアント固有識別の接続専用キー
    # 否認:: false
    def authenticate_key(key, ip)
      unless @secret_key == Digest::SHA512.hexdigest(key)
        Reins::logger.fatal("#{ip} : 認証が失敗しました")
        return false
      end

      Digest::SHA512.hexdigest("#{ip}:#{Random.new_seed}")
    end

    # クライアントの識別を行う
    # 要求されたクライアント固有の識別キーが登録されているものか判断する
    # == パラメータ
    # key:: クライアント固有の識別キー
    # == 返り値
    # 識別された場合:: 登録されているIPアドレス
    # 否認された場合:: nil
    def is_varid(keycode)
      Reins::regist_host.read_hostkeys.key(keycode)
    end
  end
end

# coding: utf-8

# filename: auth_service.rb

# require "digest/md5"

require "digest/sha2"

module Reins

class AuthService

# サーバの認証キーを定義する

# == パラメータ

# secret_key:: SHA512 でハッシュ化されたキーを指定する

# == 返り値

# nil

def initialize(secret_key = 'ac58c2bedf7c1d4e35136f2ca4f81acdece03fa9e90aeefa0d363488649c7f52d7064285923f814592d53c419f5c4db59ee1a867b4852d18e0fac6efd5874072')

@secret_key = secret_key

nil

end

# クライアント認証を行う

# 接続元が要求してきたキーが、サーバ側で設定されているハッシュ値と比較する

# == パラメータ

# key:: ハッシュ化される前のキー

# ip:: 接続元のIPアドレス

# == 返り値

# 認証:: ハッシュ化されたクライアント固有識別の接続専用キー

# 否認:: false

def authenticate_key(key, ip)

unless @secret_key == Digest::SHA512.hexdigest(key)

Reins::logger.fatal("#{ip} : 認証が失敗しました")

return false

end

Digest::SHA512.hexdigest("#{ip}:#{Random.new_seed}")

end

# クライアントの識別を行う

# 要求されたクライアント固有の識別キーが登録されているものか判断する

# == パラメータ

# key:: クライアント固有の識別キー

# == 返り値

# 識別された場合:: 登録されているIPアドレス

# 否認された場合:: nil

def is_varid(keycode)

Reins::regist_host.read_hostkeys.key(keycode)

end

リスト6-a、6-bは本来ひとつのコードですが、本Webサイトの文法に抵触するため分割して掲載します。

# coding: utf-8
# filename: host_registry.rb
require 'csv'

module Reins
  class HostRegistry
    attr_reader :hosts

    # データベースの読込・初期化
    # ファイルが存在していれば内容を読込、なければファイルを新規に作成
    # == パラメータ
    # filename:: 読込・または保管先のファイル名
    # == 返り値
    # 特になし。但し、@hosts インスタンス変数へ、データベースの内容を保持
    def initialize(filename)
      @filename = filename
      @hosts    =  File.exists?(@filename) ? CSV.read(@filename) : []
    end

    # IPアドレスのチェック
    # IPアドレスとおぼしき文字列を検査し、IPアドレスっぽいかどうかを調査
    # == パラメータ
    # ip:: チェックしたいIPアドレス文字列
    # == 返り値
    # true:: IPアドレスと思われる場合
    # false:: IPアドレスではないと思われる場合

    def check_ip(ip)
      # 引数は文字列のみを受け付けることとする
      return false unless ip.is_a?(String)

      # 正規表現で、各数値を入手
      /^([0-9]*)\.([0-9]*)\.([0-9]*)\.([0-9]*)$/ =~ ip

      return false unless (1..239).cover?($1.to_i)
      return false unless (0..255).cover?($2.to_i)
      return false unless (0..255).cover?($3.to_i)
      return false unless (1..254).cover?($4.to_i)

      return true
    end

    # メモリ上のアドレスリストを、ファイルへ保管する
    # == パラメータ
    # filename:: 保管先ファイル名。指定がない場合は、初期化時に採用したファイル名
    def store(filename = @filename)
      CSV.open(filename, "w") do |csv|
        @hosts.each do |addr|
          csv << addr
        end
      end
    end
    # アドレスを新規に登録する。既に登録済みのものであれば登録しない。
    # == パラメータ
    # keyaddr:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ
    # == 返り値
    # true::  登録できた
    # false:: 既に同じアドレスまたはIPアドレスではないため、登録せず
    def create(addr, key)
      if check_ip(addr) then
        unless read_hosts.include?(addr) then
          @hosts << [addr, key, Time.now]
          Reins::logger.info("#{addr} を追加しました")
          store
          return true
        else
          Reins::logger.error("#{addr} は既に登録されています.")
        end
      else
        Reins::logger.error("#{addr} は登録可能なIPアドレスではありません.")
      end
      false
    end

# coding: utf-8

# filename: host_registry.rb

require 'csv'

module Reins

class HostRegistry

attr_reader :hosts

# データベースの読込・初期化

# ファイルが存在していれば内容を読込、なければファイルを新規に作成

# == パラメータ

# filename:: 読込・または保管先のファイル名

# == 返り値

# 特になし。但し、@hosts インスタンス変数へ、データベースの内容を保持

def initialize(filename)

@filename = filename

@hosts = File.exists?(@filename) ? CSV.read(@filename) : []

end

# IPアドレスのチェック

# IPアドレスとおぼしき文字列を検査し、IPアドレスっぽいかどうかを調査

# == パラメータ

# ip:: チェックしたいIPアドレス文字列

# == 返り値

# true:: IPアドレスと思われる場合

# false:: IPアドレスではないと思われる場合

def check_ip(ip)

# 引数は文字列のみを受け付けることとする

return false unless ip.is_a?(String)

# 正規表現で、各数値を入手

/^([0-9]*)\.([0-9]*)\.([0-9]*)\.([0-9]*)$/ =~ ip

return false unless (1..239).cover?($1.to_i)

return false unless (0..255).cover?($2.to_i)

return false unless (0..255).cover?($3.to_i)

return false unless (1..254).cover?($4.to_i)

return true

end

# メモリ上のアドレスリストを、ファイルへ保管する

# == パラメータ

# filename:: 保管先ファイル名。指定がない場合は、初期化時に採用したファイル名

def store(filename = @filename)

CSV.open(filename, "w") do |csv|

@hosts.each do |addr|

csv << addr

end

# アドレスを新規に登録する。既に登録済みのものであれば登録しない。

# == パラメータ

# keyaddr:: 登録する IPアドレスをキーにした、接続用Keyをもつハッシュデータ

# == 返り値

# true:: 登録できた

# false:: 既に同じアドレスまたはIPアドレスではないため、登録せず

def create(addr, key)

if check_ip(addr) then

unless read_hosts.include?(addr) then

@hosts << [addr, key, Time.now]

Reins::logger.info("#{addr} を追加しました")

store

return true

else

Reins::logger.error("#{addr} は既に登録されています.")

end

else

Reins::logger.error("#{addr} は登録可能なIPアドレスではありません.")

end

false

end

    # 登録済みホスト一覧を、IPアドレスをKey、接続KeyをValueとするハッシュで返す
    # == 返り値
    # hash: hash[ipアドレス] = key を一つの要素とする
    def read_hostkeys
      @hosts.each.map { |addr, key| [addr, key] }.to_h
    end

    # 登録済みホスト一覧を配列で返す
    # == 返り値
    # array: 登録済みのホスト一覧
    def read_hosts
      read_hostkeys.keys
    end

    # 登録済みのアドレスを、他のアドレスへ変更する
    # ただし、変更後のアドレスが既に登録されている場合や、登録済みアドレスが見つからない場合はエラーを返す
    # == パラメータ
    # before:: 既に登録済みのアドレス
    # after::  変更後のアドレス
    def update(before, after)
      if read_hosts.include?(after) || !check_ip(after)
        Reins::logger.error("#{after} は既に登録済みか、有効なIPアドレスではありません.")
        return false
      elsif i = read_hosts.index(before)
        @hosts[i][0] = after
        Reins::logger.info("#{before} から #{after} へ変更しました.")
        return true
      else
        Reins::logger.error("変更元の #{before} が見つかりません.")
        return false
      end
    end

    # 登録済みのアドレスを削除する
    # == パラメータ
    # addr: 削除対象のアドレス
    # == 返り値
    # string:: 削除された要素
    # nil::    削除すべき要素が見つからなかったとき
    def delete(addr)
      if i = read_hosts.index(addr)
        @hosts.delete(i)
        Reins::logger.info("#{addr} を削除しました.")
        store
        return addr
      else
        Reins::logger.warn("#{addr} が見つかりません.")
        return nil
      end
    end

    # まだアドレスが登録されていないかどうか
    # == 返り値
    # true::  アドレス未登録
    # false:: 1つ以上のアドレスが登録済み
    def empty?
      @hosts.empty?
    end
  end
end

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

# 登録済みホスト一覧を、IPアドレスをKey、接続KeyをValueとするハッシュで返す

# == 返り値

# hash: hash[ipアドレス] = key を一つの要素とする

def read_hostkeys

@hosts.each.map { |addr, key| [addr, key] }.to_h

end

# 登録済みホスト一覧を配列で返す

# == 返り値

# array: 登録済みのホスト一覧

def read_hosts

read_hostkeys.keys

end

# 登録済みのアドレスを、他のアドレスへ変更する

# ただし、変更後のアドレスが既に登録されている場合や、登録済みアドレスが見つからない場合はエラーを返す

# == パラメータ

# before:: 既に登録済みのアドレス

# after:: 変更後のアドレス

def update(before, after)

if read_hosts.include?(after) || !check_ip(after)

Reins::logger.error("#{after} は既に登録済みか、有効なIPアドレスではありません.")

return false

elsif i = read_hosts.index(before)

@hosts[i][0] = after

Reins::logger.info("#{before} から #{after} へ変更しました.")

return true

else

Reins::logger.error("変更元の #{before} が見つかりません.")

return false

end

# 登録済みのアドレスを削除する

# == パラメータ

# addr: 削除対象のアドレス

# == 返り値

# string:: 削除された要素

# nil:: 削除すべき要素が見つからなかったとき

def delete(addr)

if i = read_hosts.index(addr)

@hosts.delete(i)

Reins::logger.info("#{addr} を削除しました.")

store

return addr

else

Reins::logger.warn("#{addr} が見つかりません.")

return nil

end

# まだアドレスが登録されていないかどうか

# == 返り値

# true:: アドレス未登録

# false:: 1つ以上のアドレスが登録済み

def empty?

@hosts.empty?

end

# encoding: utf-8
# filename: task_control.rb

module Reins
  class TaskControl
    # クライアントとの接続
    # == パラメータ
    # hostname:: 接続先クライアントのホスト名、またはIPアドレス
    # port:: 接続先クライアントのTCPポート番号。通常は 24368
    # == 返り値
    # 接続された通信用のソケットオブジェクト
    def initialize(hostname = '127.0.0.1', port = 24368)
      begin
        @s = TCPSocket.open(hostname, port)
      rescue => e
        notify(e)
      end
    end

    # クライアントとの死活確認
    # == パラメータ
    # 特になし
    # == 返り値
    # true:: 生存確認
    # false:: クライアントが停止、またはネットワーク上に問題あり
    def connect
      begin
        true
      rescue => e
        notify(e)
      end
    end

    # エラーが発生した場合に一時的に飛ばされてくるメソッド
    def notify(error)
      raise(StandardError, 'Not Connect')
    end

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

# encoding: utf-8

# filename: task_control.rb

module Reins

class TaskControl

# クライアントとの接続

# == パラメータ

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

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

# == 返り値

# 接続された通信用のソケットオブジェクト

def initialize(hostname = '127.0.0.1', port = 24368)

begin

@s = TCPSocket.open(hostname, port)

rescue => e

notify(e)

end

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

# == パラメータ

# 特になし

# == 返り値

# true:: 生存確認

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

def connect

begin

true

rescue => e

notify(e)

end

# エラーが発生した場合に一時的に飛ばされてくるメソッド

def notify(error)

raise(StandardError, 'Not Connect')

end

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

# == パラメータ

# 特になし

# == 返り値

# nil:: 正常に切断

def disconnect

@s.close

end

$ bundle exec rake spec
/Users/sho/.rbenv/versions/2.4.0/bin/ruby -I/Users/sho/Documents/working/ruby/40ruby/reins/vendor/bundle/ruby/2.4.0/gems/rspec-core-3.5.4/lib:/Users/sho/Documents/working/ruby/40ruby/reins/vendor/bundle/ruby/2.4.0/gems/rspec-support-3.5.0/lib /Users/sho/Documents/working/ruby/40ruby/reins/vendor/bundle/ruby/2.4.0/gems/rspec-core-3.5.4/exe/rspec --pattern spec/\*\*\{,/\*/\*\*\}/\*_spec.rb

Reins
  定数/変数の設定
    Reins::VERSION の指定
    logger の指定
    data manager のインスタンス化
    authenticatorのインスタンス化
  AuthService
    #authenticate_key
      正常に認証された場合
        should not eq false
        should not eq false
      異なる認証キーで呼び出された場合
        should eq false
        should eq false
    #is_varid
      登録済みのコードの場合
        接続認証キーで、該当のIPアドレスが返る
      未登録コードの場合
        nil
  HostRegistry
    #create
      同じIPを追加すると false
    #read_hosts
      正常に登録されている場合
        未登録時に呼び出すと、空の配列
        localhost を1つ登録すると、[127.0.0.1]
        複数のアドレスを登録した場合は、複数のアドレス
      不正なIPアドレスの場合
        有効範囲外のIPアドレスを登録しても登録されず、空の配列
    #read_hostkeys
      登録しなければ、空
      ハッシュ化された接続キーの一覧
    #update
      正常に更新できる場合
        有効なIPアドレスへ変更すると host が変更
      更新できない場合
        有効範囲外のIPアドレスへ変更すると false
        未登録のIPアドレスを指定すると false
        すでに存在するIPアドレスへ変更すると false
    #delete
      正常に削除できる場合
        登録済みのアドレスを削除すると、そのアドレス
      削除できない場合
        削除対象がなければ nil
  TaskControl
    #connect
      クライアントへ接続できる場合
        モックを使って正常接続のコール
      クライアントへ接続できない場合
        接続先が存在しないと Standard Error
        クライアントが停止していたら false
    #disconnect
      正常に切断できた場合
        こちらから、クライアントとの接続を切断して、成功すると nil

Finished in 0.04302 seconds (files took 0.37678 seconds to load)
27 examples, 0 failures

$ bundle exec rake spec

/Users/sho/.rbenv/versions/2.4.0/bin/ruby -I/Users/sho/Documents/working/ruby/40ruby/reins/vendor/bundle/ruby/2.4.0/gems/rspec-core-3.5.4/lib:/Users/sho/Documents/working/ruby/40ruby/reins/vendor/bundle/ruby/2.4.0/gems/rspec-support-3.5.0/lib /Users/sho/Documents/working/ruby/40ruby/reins/vendor/bundle/ruby/2.4.0/gems/rspec-core-3.5.4/exe/rspec --pattern spec/\*\*\{,/\*/\*\*\}/\*_spec.rb

Reins

定数/変数の設定

Reins::VERSION の指定

logger の指定

data manager のインスタンス化

authenticatorのインスタンス化

AuthService

#authenticate_key

正常に認証された場合

should not eq false

異なる認証キーで呼び出された場合

should eq false

#is_varid

登録済みのコードの場合

接続認証キーで、該当のIPアドレスが返る

未登録コードの場合

nil

HostRegistry

#create

同じIPを追加すると false

#read_hosts

正常に登録されている場合

未登録時に呼び出すと、空の配列

localhost を1つ登録すると、[127.0.0.1]

複数のアドレスを登録した場合は、複数のアドレス

不正なIPアドレスの場合

有効範囲外のIPアドレスを登録しても登録されず、空の配列

#read_hostkeys

登録しなければ、空

ハッシュ化された接続キーの一覧

#update

正常に更新できる場合

有効なIPアドレスへ変更すると host が変更

更新できない場合

有効範囲外のIPアドレスへ変更すると false

未登録のIPアドレスを指定すると false

すでに存在するIPアドレスへ変更すると false

#delete

正常に削除できる場合

登録済みのアドレスを削除すると、そのアドレス

削除できない場合

削除対象がなければ nil

TaskControl

#connect

クライアントへ接続できる場合

モックを使って正常接続のコール

クライアントへ接続できない場合

接続先が存在しないと Standard Error

クライアントが停止していたら false

#disconnect

正常に切断できた場合

こちらから、クライアントとの接続を切断して、成功すると nil

Finished in 0.04302 seconds (files took 0.37678 seconds to load)

27 examples, 0 failures

バーティカルバーの極意第一回 (vol.47掲載)

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

著者：中央大学　教授　飯尾淳

　この連載では、バーティカルバー、あるいは、縦棒で表される記号（｜）や縦棒そのものを中心として、話題を展開しようと試みます。毎回、どんなバーティカルバーが現れるか、楽しみにしていてください。…といいつつ、第1回めの今回は、皆さんおなじみ、Unixにおけるパイプ（｜）を扱います。ベタでどうもすみません。

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

無料無線公衆LANスポットのCSVファイル URL
http://www.data.go.jp/data/dataset/mlit_20160325_0037

$ lv -Ou8 jta_free_wifi.csv > jta_free_wifi_u8.csv

1	$ lv -Ou8 jta_free_wifi.csv > jta_free_wifi_u8.csv

$ cut -f 8 -d , jta_free_wifi_u8.csv

1	$ cut -f 8 -d , jta_free_wifi_u8.csv

$ R -q -e 'x<-read.csv("jta_free_wifi_u8.csv",header=T); \ 
> write.csv(x$都道府県, file="prefecture.csv", quote=F, row.names=F)' 
$ cat prefecture.csv | grep '[都道府県]' > prefecture.dat

$ R -q -e 'x<-read.csv("jta_free_wifi_u8.csv",header=T); \

> write.csv(x$都道府県, file="prefecture.csv", quote=F, row.names=F)'

$ cat prefecture.csv | grep '[都道府県]' > prefecture.dat

$ cat prefecture.dat | sort | uniq -c | sort -nr
6242 大阪府
4081 東京都
4068 愛知県
3490 福岡県
3288 静岡県...

$ cat prefecture.dat | sort | uniq -c | sort -nr

6242 大阪府

4081 東京都

4068 愛知県

3490 福岡県

3288 静岡県...

逆に、Tukubaiコマンドをシェルスクリプトで実装してみる　前編 (vol.47掲載)

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

著者：今泉光之 (Twitter: @bsdhack)

1　usp Tukubai とは?

usp Tukubai はユニバーサル・シェル・プログラミング研究所が開発・提供している一連のコマンド群で、商用製品として様々な分野の数多くのプロダクトとして利用されているソフトウェア製品です。
usp Tukubai はコマンド群として提供されており、通常の UNIX コマンドの様に複数のコマンドを繋ぎ合わせて使うことでシステムを構築することができます。
usp Tukubai で提供されるコマンドを使いこなすと、端末だけで集計処理ができたり、ファイルだけでDBを組んだり、ウェブシステムを組んだりと、シェルあるいはシェルスクリプトでできることが飛躍的に増えます。
特に製品版として開発されている usp Tukubaiはソースコードのレベルからチューニングされているので、非常に高速に動作するので大規模なエンタープライズシステムでの使用にも十分に対応できる性能となっています。

2 　ユニケージ開発手法とは?

ユニケージ開発手法はユニバーサル・シェル・プログラミング研究所によって開発された、短期間低コストで企業システムを構築するための開発手法です。
小さなコマンドを組み合わせて問題を解決することを目的とした開発手法やコマンドに関する研究開発に取り組んでいるユニバーサル・シェル・プログラミング研究所が、そうした研究開発の成果をまとめた開発手法がユニケージ開発手法です。
本稿で扱う usp Tukubai はユニケージ開発手法を実践するための手段として開発されたコマンド群です。
ユニケージ開発手法に基づいて usp Tukubai コマンドを利用することで、数十行のプログラムでアプリケーションを記述できたり、データベースを使わずにテキストファイルのみでデータ処理が可能となります。実際にユニケージ開発手法に基づくシステム開発は小売業を中心に基幹業務システム、情報分析システム、データバッチ処理、高速検索システム、勘定系システムなど様々な分野で活用されていて、特にシステムの内製化を進める企業において採用されています。

3　Personal Tukubai とは

usp Tukubaiを試用目的で利用できるようにしたバージョンで、商用利用はできません。
Windows、Linux、OS Xでそれぞれ動作するので usp Tukubai による業務システムの開発を実際に体験できます。
期間限定のライセンスで、ダウンロードした月から 6ヶ月後の月末まで使用可能となっているので、十分に usp Tukubai の機能を調べることができると思います。

4 Open usp Tukubai とは

usp Tukubai コマンドのうち、利用頻度の高いコマンドを厳選して Python により実装しなおし、MIT ライセンスの下でオープンソースソフトウェアとして提供されているのが Open usp Tukubaiです。
製品版の usp Tukubai と比較すると一部実装されていないコマンドがあったり、性能にある程度の差は出てしまいますが、それでも usp Tukubai の便利な機能を知るためには十分に有用だと思います。
本稿では、Open usp Tukubai についての解説となります。

Tukubai 各コマンドの機能の紹介と簡単な解説

1　Open usp Tukubai のインストール方法

Open usp Tukubai は Python により実装されているので Python が動作する環境であればインストール可能です。
公式の配布サイトからソースを取得して展開し make install するだけで Open usp Tukubai は利用可能となります。
OS X 11.6 (OS X El Capitan) では以下のコマンドでインストールできます。
$ curl ‘https://uec.usp-lab.com/TUKUBAI/DOWNLOAD/open-usp-tukubai-2014061402.tar.bz2’ -o open-usp-tukubai-2014061402.tar.bz2 $ tar zf open-usp-tukubai-2014061402.tar.bz2 $ cd open-usp-tukubai-2014061402 $ sudo make install

2　Open usp Tukubai コマンドの解説

ここでは Open usp Tukubai のコマンドを解説します。
ただし以下のように Open usp Tukubai だけでも 55 コマンドも提供されており、その全てを解説するのは無理なので、
特に有用で興味深いコマンドを厳選して紹介します。

$ ls -1 /opt/local/tukubai/bin | wc -l
55

1 2	$ ls -1 /opt/local/tukubai/bin \| wc -l 55

また、シェルスクリプトマガジンに掲載の記事なので、シェルスクリプトで Open usp Tukubai コマンドを実装してみたいと思います。今回は、calclock、comma、getlast、ketaの４つのコマンドを紹介し、シェルスクリプトでの再現を試みます。
但し今回は紙面と時間の都合で一部の機能やオプションなど実装できていない部分も多いです。
また、動作の把握とメイン処理の実装のみに絞ったので、エラー処理などはまったく実施していません。
そのために実際の業務などには殆ど利用できない実験的なスクリプトとなっています。

calclock

1　calclock とは

オンラインコマンドマニュアルはこちら

入力データ(ファイルや標準入力)の指定されたフィールドのデータを Epoch *1からの秒数に変換してフィールドの隣に出力します。
ファイル名に – が指定された場合は一般的な UNIX の流儀にのっとり標準入力を入力として利用します。
入力データは年月日(yyyymmdd形式)、時間(HHMMSS形式)、年月日時間(yyyymmddHHMMSS)を自動で検出します。
例えば以下の様なフォーマットのシステムへの接続ログから接続時間を取得する処理などを簡単に作ることができます。

*1 Epoch とは UNIX で一般的に利用されている時刻表現で、協定世界時(UTC)での1970年1月1日午前0時0分0秒の時刻からの形式的な経過秒数です。

$ cat << EOF | calclock 3 5 - | awk '{print ($6-$3)/60}'
001 foo 20170123093255 192.168.0.1 20170123104932 ………
002 bar 20170123094528 10.8.2.132 20170123162827 ………
002 baz 20170123100224 172.16.8.47 20170123144911 ………
EOF
194.617
1138.32
744.783

$ cat << EOF | calclock 3 5 - | awk '{print ($6-$3)/60}'

001 foo 20170123093255 192.168.0.1 20170123104932 ………

002 bar 20170123094528 10.8.2.132 20170123162827 ………

002 baz 20170123100224 172.16.8.47 20170123144911 ………

EOF

194.617

1138.32

744.783

calclock 唯一のオプションは -r で、これを指定すると入力データは Epoch からの秒数として解釈され出力は年月日時間(yyyymmddHHMMSS)となります。

2　calclockを作ってみよう

#!/bin/sh
# 以降の処理で set を利用して位置パラメタを変更するので引数を fields に退避
fields="$*"

while read line
do
	# 引数で指定されたフィールド毎に処理
	for i in ${fields}
	do
		# 入力された行を位置パラメータにセット
		set -- ${line}
		# 入力されたフィールドのサイズから date(1) の書式を取得
		case $(eval echo '${#'${i}'}') in
		        6 ) format="%H%M%S";;
		        8 ) format="%Y%m%d";;
		        14) format="%Y%m%d%H%M%S";;
		esac
		# date(1) で Epoch からの秒を取得して変数 vX にセット
		eval "v${i}=$(date -j -f "${format}" $(echo $(eval echo '${'${i}'}'))  '+%s')"
	done
	# 行出力処理
	i=1
	while [ ${i} -le $# ]
	do
		# 入力データを出力
		printf "%s " $(eval echo '${'${i}'}')
		# フィールドに対して秒数がある場合は出力
		v=$(eval echo '{v'${i}'}')
		test -n "${v}" && printf "%s " ${v}
		i=$((i + 1))
	done
	echo
done

#!/bin/sh

# 以降の処理で set を利用して位置パラメタを変更するので引数を fields に退避

fields="$*"

while read line

# 引数で指定されたフィールド毎に処理

for i in ${fields}

# 入力された行を位置パラメータにセット

set -- ${line}

# 入力されたフィールドのサイズから date(1) の書式を取得

case $(eval echo '${#'${i}'}') in

6 ) format="%H%M%S";;

8 ) format="%Y%m%d";;

14) format="%Y%m%d%H%M%S";;

esac

# date(1) で Epoch からの秒を取得して変数 vX にセット

eval "v${i}=$(date -j -f "${format}" $(echo $(eval echo '${'${i}'}')) '+%s')"

done

# 行出力処理

i=1

while [ ${i} -le $# ]

# 入力データを出力

printf "%s " $(eval echo '${'${i}'}')

# フィールドに対して秒数がある場合は出力

v=$(eval echo '{v'${i}'}')

test -n "${v}" && printf "%s " ${v}

i=$((i + 1))

done

echo

done

シェル組み込みのコマンドと date(1) を駆使して、何とか似た機能は実現できました。
引数で指定されたフィールドを変数 fields に格納しておき、read(1) で入力した行データ毎に fields に格納されたフィールドから date(1) で秒数を取得し、取得できた秒を変数 v数字 (数字はフィールド番号) に格納しています。指定された全フィールドの処理が終わると、入力データと取得した秒数を出力します。入力データの指定されたフィールド形式などのチェックしていないので、入力データに不正な値があると正しく動作しません。また、今回は -r オプションに関して実装しておらず、入力データも標準入力のみとなっています。

comma

1　comma とは

オンラインコマンドマニュアルはこちら

入力データ(ファイルや標準入力)の指定されたフィールドのデータを「カンマ区切り」にします。帳票データなどの最終的な出力に適用すると、金額などの可読性が向上します。
指定したフィールドに数字以外のデータが入力された場合はエラーとなります。

$ echo "12345 67890" | comma 1 2 
12,345 67,890

1 2	$ echo "12345 67890" \| comma 1 2 12,345 67,890

+hオプションはヘッダ行をスキップするための指定で、指定された行(デフォルトは1行)をヘッダ行としてスキップします。

$ cat << EOF | comma +h 1 2
入金 出金
123456 654321
987654 567890 
EOF
入金 出金
123,456 654,321
987,654 567,890

$ cat << EOF | comma +h 1 2

入金出金

123456 654321

987654 567890

EOF

入金出金

123,456 654,321

987,654 567,890

d オプションは引数で指定した文字列をカンマ区切りにします。

$ comma -d 1234567
1,234,567

1 2	$ comma -d 1234567 1,234,567

-4 オプションは 4 桁区切りにします。

$ comma -d4 123456789
1,2345,6789

1 2	$ comma -d4 123456789 1,2345,6789

2　commaを作ってみよう

#!/bin/sh
# 区切り数を取得
if [ "$1" = "-4" ]
then
	digit=4
	shift
else
	digit=3
fi

# 以降の処理で set を利用して位置パラメタを変更するので引数を fields に退避
fields="$*"

comma(){
	# 区切り桁数を取得
	awk -v "digit=${digit}" '
		{
			 l = length;
			 i = 1
			 s = ""
			 # 文字列を最後から処理
			 while(l > digit){
			         s = "," substr($0, l-digit*i+1, digit) s
			         l -= digit 
			 }
			 if(l)
			         s = substr($0, 0, l) s
			 print s
	}'
}

while read line
do
	for i in ${fields}
	do
		set -- ${line}
		eval "v${i}=$(echo $(eval echo '${'${i}'}') | comma)"
	done
	i=1
	while [ ${i} -le $# ]
	do
		v=$(eval echo '{v'${i}'}')
		if [ -n "${v}" ]
		then
			printf "%s " {v}
		else
			printf "%s " $(eval echo '${'${i}'}')
		fi
		i=$((i + 1))
	done
	echo
done

#!/bin/sh

# 区切り数を取得

if [ "$1" = "-4" ]

then

digit=4

shift

else

digit=3

# 以降の処理で set を利用して位置パラメタを変更するので引数を fields に退避

fields="$*"

comma(){

# 区切り桁数を取得

awk -v "digit=${digit}" '

{

l = length;

i = 1

s = ""

# 文字列を最後から処理

while(l > digit){

s = "," substr($0, l-digit*i+1, digit) s

l -= digit

}

if(l)

s = substr($0, 0, l) s

print s

}

while read line

for i in ${fields}

set -- ${line}

eval "v${i}=$(echo $(eval echo '${'${i}'}') | comma)"

done

i=1

while [ ${i} -le $# ]

v=$(eval echo '{v'${i}'}')

if [ -n "${v}" ]

then

printf "%s " {v}

else

printf "%s " $(eval echo '${'${i}'}')

i=$((i + 1))

done

echo

done

メインのロジックは awk(1) を利用することで何とか実装できました。
awk(1) の substr 関数を利用して文字列の後ろから指定された桁数で文字列を切り出し、切り出した文字列の先頭に , を付けることでカンマ区切りを実現しています。
今回は -d オプションに関して実装しておらず、入力データも標準入力のみとなっています。また Open usp Tukubai の comma では桁区切りするフィールドのデータをチェックしていて、データが数字以外の場合はエラーメッセージを出力していますが、こちらのスクリプトではその様なエラー処理をしていません。
ちなみに 3 桁区切りだけでよければ printf(1) の %’ を利用することでも殆どの場合実現可能ですが、printf(1) の %’ は現時点では非標準なので全ての環境で利用できる保証はなく、また、区切りを 4桁にする機能は対応していないので、独自に実装する必要があります。

getlast

1 　getlastとは

オンラインコマンドマニュアルはこちら

入力データ(ファイルや標準出力)の指定されたフィールドの値が最後に出現した行を出力します。

$ cat << EOF | getlast 1 2 -
0000007 セロリ 20060201 117
0000007 セロリ 20060203 221
0000017 練馬大根 20060201 31
0000017 練馬大根 20060203 514
0000021 温州みかん 20060201 90
0000021 温州みかん 20060203 573
EOF
0000007 セロリ 20060203 221
0000017 練馬大根 20060203 514
0000021 温州みかん 20060203 573

$ cat << EOF | getlast 1 2 -

0000007 セロリ 20060201 117

0000007 セロリ 20060203 221

0000017 練馬大根 20060201 31

0000017 練馬大根 20060203 514

0000021 温州みかん 20060201 90

0000021 温州みかん 20060203 573

EOF

0000007 セロリ 20060203 221

0000017 練馬大根 20060203 514

0000021 温州みかん 20060203 573

同一のフィールドを指定することで単一のキーフィールドの指定も可能です。
以下の例だと第1フィールドの値のみで抽出しています。

$ cat << EOF | getlast 1 1 -
0000007 セロリ1 20060201 117
0000007 セロリ2 20060203 221
0000017 練馬大根1 20060201 31
0000017 練馬大根2 20060203 514
0000021 温州みかん2 20060201 90
0000021 温州みかん1 20060203 573
0000025 プリンスメロン1 20060201 129
0000025 プリンスメロン1 20060203 391
EOF
0000007 セロリ2 20060203 221
0000017 練馬大根2 20060203 514
0000021 温州みかん1 20060203 573
0000025 プリンスメロン1 20060203 391

$ cat << EOF | getlast 1 1 -

0000007 セロリ1 20060201 117

0000007 セロリ2 20060203 221

0000017 練馬大根1 20060201 31

0000017 練馬大根2 20060203 514

0000021 温州みかん2 20060201 90

0000021 温州みかん1 20060203 573

0000025 プリンスメロン1 20060201 129

0000025 プリンスメロン1 20060203 391

EOF

0000007 セロリ2 20060203 221

0000017 練馬大根2 20060203 514

0000021 温州みかん1 20060203 573

0000025 プリンスメロン1 20060203 391

+ng オプションは同じ値を持つ最後の行以外を出力します。

2　getlastを作ってみよう

#!/bin/sh
awk -v "f1=$1" -v "f2=$2" '{
	# 指定されたフィールドの値をキーとしたハッシュに格納
	# 出力順を保持するために行データに行番号を追加
	data[$f1,$f2] = NR "\t" $0
}
END{
	for(i in data)
		print data[i]
}' |
# 行番号でソートし行番号を削除
sort -k 1 | cut -f 2-

#!/bin/sh

awk -v "f1=$1" -v "f2=$2" '{

# 指定されたフィールドの値をキーとしたハッシュに格納

# 出力順を保持するために行データに行番号を追加

data[$f1,$f2] = NR "\t" $0

}

END{

for(i in data)

print data[i]

}' |

# 行番号でソートし行番号を削除

sort -k 1 | cut -f 2-

メインのロジックは awk(1) のハッシュ (連想配列) を利用することで実装しました。
指定されたフィールドの値をそのまま連結してハッシュのキーとして利用することで、最新の行内容がハッシュに格納されます。
awk(1) の仕様としてハッシュの順番はランダムになりますので、
順番を維持するためにハッシュに格納する行データに行番号を付与して、出力したデータを sort(1) を利用して行番号でソートして正しい順番に並べ替えた後で、cut(1) で追加した行番号を削除して出力しています。
メインのロジックは awk(1) の機能をそのまま利用することで実現できたので、今回実装したコマンドの中では一番短く単純なスクリプトになっています。
+ng オプションは実装していません。

keta

1　keta とは

オンラインコマンドマニュアルはこちら

入力データ(ファイルや標準出力)の指定されたフィールドの桁数を揃えて、右詰で出力します。
表示するための最大幅は自動で計算されます。

$ cat << EOF | keta -
01 埼玉県 01 さいたま市 91 59 20 76 54
01 埼玉県 02 川越市 46 39 8 5 21
02 東京都 04 新宿区 30 50 71 36 30
02 東京都 06 港区 58 71 20 10 6
04 神奈川県 13 横浜市 92 56 83 96 75
EOF
01   埼玉県 01 さいたま市 91 59 20 76 54
01   埼玉県 02     川越市 46 39  8  5 21
02   東京都 04     新宿区 30 50 71 36 30
02   東京都 06       港区 58 71 20 10  6
04 神奈川県 13     横浜市 92 56 83 96 75

$ cat << EOF | keta -

01 埼玉県 01 さいたま市 91 59 20 76 54

01 埼玉県 02 川越市 46 39 8 5 21

02 東京都 04 新宿区 30 50 71 36 30

02 東京都 06 港区 58 71 20 10 6

04 神奈川県 13 横浜市 92 56 83 96 75

EOF

01 埼玉県 01 さいたま市 91 59 20 76 54

01 埼玉県 02 川越市 46 39 8 5 21

02 東京都 04 新宿区 30 50 71 36 30

02 東京都 06 港区 58 71 20 10 6

04 神奈川県 13 横浜市 92 56 83 96 75

— オプションは左詰で出力されます。

$ cat << EOF | keta -- -
01 埼玉県 01 さいたま市 91 59 20 76 54
01 埼玉県 02 川越市 46 39 8 5 21
02 東京都 04 新宿区 30 50 71 36 30
02 東京都 06 港区 58 71 20 10 6
04 神奈川県 13 横浜市 92 56 83 96 75
EOF
01 埼玉県   01 さいたま市 91 59 20 76 54
01 埼玉県   02 川越市     46 39 8  5  21
02 東京都   04 新宿区     30 50 71 36 30
02 東京都   06 港区       58 71 20 10 6 
04 神奈川県 13 横浜市     92 56 83 96 75

$ cat << EOF | keta -- -

01 埼玉県 01 さいたま市 91 59 20 76 54

01 埼玉県 02 川越市 46 39 8 5 21

02 東京都 04 新宿区 30 50 71 36 30

02 東京都 06 港区 58 71 20 10 6

04 神奈川県 13 横浜市 92 56 83 96 75

EOF

01 埼玉県 01 さいたま市 91 59 20 76 54

01 埼玉県 02 川越市 46 39 8 5 21

02 東京都 04 新宿区 30 50 71 36 30

02 東京都 06 港区 58 71 20 10 6

04 神奈川県 13 横浜市 92 56 83 96 75

フィールド毎に出力する桁数を数字で指定することができ、指定する数字に – を付けることで左詰を指定することもできます。
出力する桁数は半角文字の表示幅を 1 としているので全角文字の場合は 1 文字を 2 とする必要があります。

2　 ketaを作ってみよう

#!/bin/sh
awk '{
	# 入力データの最大値を取得しつつフィールド毎の値を data 配列に格納
	for(i=1; i<=NF; i++){
		if(max[i] < length($i))
			max[i] = length($i)
		data[NR,i] = $i
	}
}
END{
	for(i=1; i<=NR; i++){
		for(j=1; j<=NF; j++){
			# printf の * を利用して出力幅を指定
			printf("%*s ", max[j], data[i,j])
		}
		printf("\n")
	}
}'

#!/bin/sh

awk '{

# 入力データの最大値を取得しつつフィールド毎の値を data 配列に格納

for(i=1; i<=NF; i++){

if(max[i] < length($i))

max[i] = length($i)

data[NR,i] = $i

}

END{

for(i=1; i<=NR; i++){

for(j=1; j<=NF; j++){

# printf の * を利用して出力幅を指定

printf("%*s ", max[j], data[i,j])

}

printf("\n")

}

基本的な機能は全て awk(1) の組み込み関数で実装しました。
入力データは行番号とフィールド番号をキーとしたハッシュ dataに格納し、同時にフィールドの文字列長の最大値を別のハッシュ max に格納しています。
出力は、 awk(1) に組み込みの printf の %*s 指示子を利用することで出力幅を指定しています。

マルチバイトの文字列には対応していないので、入力データにマルチバイト文字があると正しく出力できません。
非英語圏でマルチバイト文字が正しく扱えないことは致命的ですので、業務には利用できません。

UTF-8 では、マルチバイト文字は多くの場合 3 バイトかそれ以上のバイト数を必要としていますが、OS X 標準の awk(1) の lengthコマンドは文字列のバイト数を取得しますので、例えば length(“あ”) は 3 となります。
Linux で標準的に利用されている GNU awk の場合はマルチバイト文字に対応していますので、マルチバイト文字を含む文字列の長さは正しい文字数を取得することができ、length(“あ”) は 1 となります。
しかしマルチバイト文字は 2 バイト相当の表示幅となりますので、どちらの場合でもマルチバイト文字を含む文字列の長さと表示幅は合致しません。
そのためにマルチバイト文字を含む文字列を表示する幅を正しく制御するのは非常に困難となります。

-v オプションは実装していません。

5/25発売のシェルマガvol.48では、さらなるTukubaiコマンドに挑みます
Web版シェルマガにも公開しますので、どうぞお楽しみに！

本記事掲載のシェルスクリプトマガジンvol.47は以下リンク先でご購入できます。
USP研究所通販サイトでは、個人用uspTukubaiのご購入も可能です。

漢のUNIX　静的ライブラリをつくってみよう　(vol.47掲載)

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

著者：後藤大地

　前回の記事では、実装を複数の.c ファイルに分けて作成し、それらをコンパイルして.o ファイルに変更し、その.o ファイルを組み合わせてバイナリファイルを生成することを説明した。
　.o ファイルはバイナリファイルのパーツのようになっており、これらを組み上げることで実装に動作するバイナリファイルを作ることができる。

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

% ls /usr/lib | grep '\.a$' | head
lib80211.a
lib80211_p.a
libBlocksRuntime.a
libBlocksRuntime_p.a
libalias.a
libalias_cuseeme.a
libalias_cuseeme_p.a
libalias_dummy.a
libalias_dummy_p.a
libalias_ftp.a
% cp /usr/lib/libalias.a ./
% file libalias.a
libalias.a: current ar archive
% ar -xv libalias.a
x - alias_proxy.o
x - alias_db.o
x - alias.o
x - alias_mod.o
x - alias_util.o
% tree
.
|-- alias.o
|-- alias_db.o
|-- alias_mod.o
|-- alias_proxy.o
|-- alias_util.o
`-- libalias.a

0 directories, 6 files
%

% ls /usr/lib | grep '\.a$' | head

lib80211.a

lib80211_p.a

libBlocksRuntime.a

libBlocksRuntime_p.a

libalias.a

libalias_cuseeme.a

libalias_cuseeme_p.a

libalias_dummy.a

libalias_dummy_p.a

libalias_ftp.a

% cp /usr/lib/libalias.a ./

% file libalias.a

libalias.a: current ar archive

% ar -xv libalias.a

x - alias_proxy.o

x - alias_db.o

x - alias.o

x - alias_mod.o

x - alias_util.o

% tree

|-- alias.o

|-- alias_db.o

|-- alias_mod.o

|-- alias_proxy.o

|-- alias_util.o

`-- libalias.a

0 directories, 6 files

% locate alias_mod.c
/usr/src/sys/netinet/libalias/alias_mod.c
% locate alias_util.c
/usr/src/sys/netinet/libalias/alias_util.c
% locate alias_db.c
/usr/src/sys/netinet/libalias/alias_db.c
% locate alias_proxy.c
/usr/src/sys/netinet/libalias/alias_proxy.c
% locate alias.c | grep netinet/libalias
/usr/src/sys/netinet/libalias/alias.c
%

% locate alias_mod.c

/usr/src/sys/netinet/libalias/alias_mod.c

% locate alias_util.c

/usr/src/sys/netinet/libalias/alias_util.c

% locate alias_db.c

/usr/src/sys/netinet/libalias/alias_db.c

% locate alias_proxy.c

/usr/src/sys/netinet/libalias/alias_proxy.c

% locate alias.c | grep netinet/libalias

/usr/src/sys/netinet/libalias/alias.c

% tree
.
|-- include
|   `-- ore.h
|-- lib
`-- libore
    |-- Makefile
    |-- indent.c
    |-- ore.c
    |-- setmsg.c
    |-- usage.c
    `-- version.c

3 directories, 7 files
%

% tree

|-- include

| `-- ore.h

|-- lib

`-- libore

|-- Makefile

|-- indent.c

|-- ore.c

|-- setmsg.c

|-- usage.c

`-- version.c

3 directories, 7 files

% cd libore
% make
cc -I. -I./../include/ -O2 -pipe -c indent.c -o indent.o
cc -I. -I./../include/ -O2 -pipe -c ore.c -o ore.o
cc -I. -I./../include/ -O2 -pipe -c setmsg.c -o setmsg.o
cc -I. -I./../include/ -O2 -pipe -c usage.c -o usage.o
cc -I. -I./../include/ -O2 -pipe -c version.c -o version.o
ar -crv ./../lib/libore.a indent.o ore.o setmsg.o usage.o version.o
a - indent.o
a - ore.o
a - setmsg.o
a - usage.o
a - version.o
% cd ..

% cd libore

% make

cc -I. -I./../include/ -O2 -pipe -c indent.c -o indent.o

cc -I. -I./../include/ -O2 -pipe -c ore.c -o ore.o

cc -I. -I./../include/ -O2 -pipe -c setmsg.c -o setmsg.o

cc -I. -I./../include/ -O2 -pipe -c usage.c -o usage.o

cc -I. -I./../include/ -O2 -pipe -c version.c -o version.o

ar -crv ./../lib/libore.a indent.o ore.o setmsg.o usage.o version.o

a - indent.o

a - ore.o

a - setmsg.o

a - usage.o

a - version.o

% cd ..

% tree
.
|-- include
|   `-- ore.h
|-- lib
|   `-- libore.a
`-- libore
    |-- Makefile
    |-- indent.c
    |-- indent.o
    |-- ore.c
    |-- ore.o
    |-- setmsg.c
    |-- setmsg.o
    |-- usage.c
    |-- usage.o
    |-- version.c
    `-- version.o

3 directories, 13 files
%

% tree

|-- include

| `-- ore.h

|-- lib

| `-- libore.a

`-- libore

|-- Makefile

|-- indent.c

|-- indent.o

|-- ore.c

|-- ore.o

|-- setmsg.c

|-- setmsg.o

|-- usage.c

|-- usage.o

|-- version.c

`-- version.o

3 directories, 13 files

% readelf -c libore.a
Index of archive libore.a: (14 entries)
Binary libore.a(indent.o) contains:
        _usage_msg
        _version_msg
        indent
Binary libore.a(ore.o) contains:
        _usage_msg
        _version_msg
Binary libore.a(setmsg.o) contains:
        _usage_msg
        _version_msg
        setmsg
Binary libore.a(usage.o) contains:
        _usage_msg
        _version_msg
        usage
Binary libore.a(version.o) contains:
        _usage_msg
        _version_msg
        version
%

% readelf -c libore.a

Index of archive libore.a: (14 entries)

Binary libore.a(indent.o) contains:

_usage_msg

_version_msg

indent

Binary libore.a(ore.o) contains:

_usage_msg

_version_msg

Binary libore.a(setmsg.o) contains:

_usage_msg

_version_msg

setmsg

Binary libore.a(usage.o) contains:

_usage_msg

_version_msg

usage

Binary libore.a(version.o) contains:

_usage_msg

_version_msg

version

% ar -xv libore.a
x - indent.o
x - ore.o
x - setmsg.o
x - usage.o
x - version.o
% ls
indent.o  libore.a  ore.o     setmsg.o  usage.o   v
ersion.o
%

% ar -xv libore.a

x - indent.o

x - ore.o

x - setmsg.o

x - usage.o

x - version.o

% ls

indent.o libore.a ore.o setmsg.o usage.o v

ersion.o

#include "ore.h"

1	#include "ore.h"

#include <stdio.h>

#include "ore.h"

void
version(void)
{
        fprintf(USAGE_OUT, ES_BOLD("バージョン:") " %s\n", 
                _version_msg);
}

#include <stdio.h>

#include "ore.h"

void

version(void)

{

fprintf(USAGE_OUT, ES_BOLD("バージョン:") " %s\n",

_version_msg);

}

#include <stdio.h>

#include "ore.h"

void
usage(void)
{
        fprintf(USAGE_OUT, ES_BOLD("使い方:") "\n%s\n", 
                indent(_usage_msg));
}

#include <stdio.h>

#include "ore.h"

void

usage(void)

{

fprintf(USAGE_OUT, ES_BOLD("使い方:") "\n%s\n",

indent(_usage_msg));

}

#include "ore.h"

char *
indent(char *t)
{
        static char buf[BUFFER_SIZE];
        char *p;

        int i = 0;
        p = t;
        buf[i++] = '\t';
        for (; i < BUFFER_SIZE - 1; i++, p++) {
                buf[i] = *p;
                if ('\n' == *p)
                        buf[++i] = '\t';
                if ('\0' == *p)
                        break;
        }
        if ('\0' != buf[i])
                buf[i] = '\0';

        return buf;
}

#include "ore.h"

char *

indent(char *t)

{

static char buf[BUFFER_SIZE];

char *p;

int i = 0;

p = t;

buf[i++] = '\t';

for (; i < BUFFER_SIZE - 1; i++, p++) {

buf[i] = *p;

if ('\n' == *p)

buf[++i] = '\t';

if ('\0' == *p)

break;

}

if ('\0' != buf[i])

buf[i] = '\0';

return buf;

}

#include <stdlib.h>
#include <string.h>

#include "ore.h"

int
setmsg(char *key, char *value)
{
        if (0 == strcmp("usage", key)) {
                _usage_msg = calloc(1, BUFFER_SIZE * sizeof(char));
                strncpy(_usage_msg, value, BUFFER_SIZE);
                _usage_msg[BUFFER_SIZE - 1] = '\0';
        }
        else if (0 == strcmp("version", key)) {
                _version_msg = calloc(1, BUFFER_SIZE * sizeof(char));
                strncpy(_version_msg, value, BUFFER_SIZE);
                _version_msg[BUFFER_SIZE - 1] = '\0';
        }
        else
                return (-1);

        return 0;
}

#include <stdlib.h>

#include <string.h>

#include "ore.h"

int

setmsg(char *key, char *value)

{

if (0 == strcmp("usage", key)) {

_usage_msg = calloc(1, BUFFER_SIZE * sizeof(char));

strncpy(_usage_msg, value, BUFFER_SIZE);

_usage_msg[BUFFER_SIZE - 1] = '\0';

}

else if (0 == strcmp("version", key)) {

_version_msg = calloc(1, BUFFER_SIZE * sizeof(char));

strncpy(_version_msg, value, BUFFER_SIZE);

_version_msg[BUFFER_SIZE - 1] = '\0';

}

else

return (-1);

return 0;

}

#ifndef _ORE_H_
#define _ORE_H_

#define BUFFER_SIZE     4096
#define USAGE_OUT       stderr
#define VERSION_OUT     stdout

#define ESC_SEQ_NORM    "\x1b[0m"
#define ESC_SEQ_BOLD    "\x1b[1m"
#define ESC_SEQ_GRAY    "\x1b[2m"
#define ESC_SEQ_UBAR    "\x1b[4m"

#define ES_BOLD(X)      ESC_SEQ_BOLD X ESC_SEQ_NORM
#define ES_LIGHT(X)     ESC_SEQ_GRAY X ESC_SEQ_NORM
#define ES_UBAR(X)      ESC_SEQ_UBAR X ESC_SEQ_NORM

char *_usage_msg;
char *_version_msg;

char *indent(char *);
int setmsg(char *, char *);
void usage(void);
void version(void);

#endif

#ifndef _ORE_H_

#define _ORE_H_

#define BUFFER_SIZE 4096

#define USAGE_OUT stderr

#define VERSION_OUT stdout

#define ESC_SEQ_NORM "\x1b[0m"

#define ESC_SEQ_BOLD "\x1b[1m"

#define ESC_SEQ_GRAY "\x1b[2m"

#define ESC_SEQ_UBAR "\x1b[4m"

#define ES_BOLD(X) ESC_SEQ_BOLD X ESC_SEQ_NORM

#define ES_LIGHT(X) ESC_SEQ_GRAY X ESC_SEQ_NORM

#define ES_UBAR(X) ESC_SEQ_UBAR X ESC_SEQ_NORM

char *_usage_msg;

char *_version_msg;

char *indent(char *);

int setmsg(char *, char *);

void usage(void);

void version(void);

#endif

CFLAGS=         -I. -I./../include/ -O2 -pipe 

LIBA=           ./../lib/libore.a
OBJS!=          ls | grep '[.]c$$' 2> /dev/null | sed 's/.c$$/.o/g'

.SUFFIXES:      .o .c

.c.o:
        cc ${CFLAGS} -c $< -o $@

all: ${OBJS}
        ar -crv ${LIBA} ${OBJS}

clean:
        rm -f ${LIBA} ${OBJS}

CFLAGS= -I. -I./../include/ -O2 -pipe

LIBA= ./../lib/libore.a

OBJS!= ls | grep '[.]c$$' 2> /dev/null | sed 's/.c$$/.o/g'

.SUFFIXES: .o .c

.c.o:

cc ${CFLAGS} -c $< -o $@

all: ${OBJS}

ar -crv ${LIBA} ${OBJS}

clean:

rm -f ${LIBA} ${OBJS}

% tree
.
|-- bin
|-- include
|   `-- ore.h
|-- lib
|-- libore
|   |-- Makefile
|   |-- indent.c
|   |-- ore.c
|   |-- setmsg.c
|   |-- usage.c
|   `-- version.c
`-- src
    `-- bin
        `-- oreapp
            |-- Makefile
            `-- oreapp.c

7 directories, 9 files
%

% tree

|-- bin

|-- include

| `-- ore.h

|-- lib

|-- libore

| |-- Makefile

| |-- indent.c

| |-- ore.c

| |-- setmsg.c

| |-- usage.c

| `-- version.c

`-- src

`-- bin

`-- oreapp

|-- Makefile

`-- oreapp.c

7 directories, 9 files

% tree
.
|-- bin
|   `-- oreapp
|-- include
|   `-- ore.h
|-- lib
|   `-- libore.a
|-- libore
|   |-- Makefile
|   |-- indent.c
|   |-- indent.o
|   |-- ore.c
|   |-- ore.o
|   |-- setmsg.c
|   |-- setmsg.o
|   |-- usage.c
|   |-- usage.o
|   |-- version.c
|   `-- version.o
`-- src
    `-- bin
        `-- oreapp
            |-- Makefile
            |-- oreapp.c
            `-- oreapp.o

7 directories, 17 files
%

% tree

|-- bin

| `-- oreapp

|-- include

| `-- ore.h

|-- lib

| `-- libore.a

|-- libore

| |-- Makefile

| |-- indent.c

| |-- indent.o

| |-- ore.c

| |-- ore.o

| |-- setmsg.c

| |-- setmsg.o

| |-- usage.c

| |-- usage.o

| |-- version.c

| `-- version.o

`-- src

`-- bin

`-- oreapp

|-- Makefile

|-- oreapp.c

`-- oreapp.o

7 directories, 17 files

#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <sysexits.h>

#include "ore.h"

int
main(int argc, char *argv[])
{
        setmsg("usage", "oreapp [-v] [-h] string...");
        setmsg("version", "1.0");

        int ch;
        while ((ch = getopt(argc, argv, "hv")) != -1) {
                switch (ch) {
                case 'v':
                        version();
                        exit(EX_USAGE);
                        break;
                case '?':
                case 'h':
                        usage();
                        exit(EX_USAGE);
                        break;
                default:
                        usage();
                        exit(EX_USAGE);
                        break;
                }
        }
        argc -= optind;
        argv += optind;

        for (int i = 0; i < argc; i++)  
                printf("%06d %s\n", 1+i, argv[i]);

        return(EX_OK);
}

#include <unistd.h>

#include <stdlib.h>

#include <stdio.h>

#include <sysexits.h>

#include "ore.h"

int

main(int argc, char *argv[])

{

setmsg("usage", "oreapp [-v] [-h] string...");

setmsg("version", "1.0");

int ch;

while ((ch = getopt(argc, argv, "hv")) != -1) {

switch (ch) {

case 'v':

version();

exit(EX_USAGE);

break;

case '?':

case 'h':

usage();

exit(EX_USAGE);

break;

default:

usage();

exit(EX_USAGE);

break;

}

argc -= optind;

argv += optind;

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

printf("%06d %s\n", 1+i, argv[i]);

return(EX_OK);

}

BIN=            ./../../../bin/oreapp
LIBA=           ./../../../lib/libore.a
OBJS!=          ls | grep '[.]c$$' 2> /dev/null | sed 's/.c$$/.o/g'

CFLAGS=         -I. -I./../../../include/ -O2 -pipe 

.SUFFIXES:      .o .c

.c.o:
        cc ${CFLAGS} -c $< -o $@

all: ${OBJS}
        cc ${CFLAGS} -o ${BIN} ${OBJS} -L./../../../lib/ -lore

clean:
        rm -f ${BIN} ${OBJS}

BIN= ./../../../bin/oreapp

LIBA= ./../../../lib/libore.a

OBJS!= ls | grep '[.]c$$' 2> /dev/null | sed 's/.c$$/.o/g'

CFLAGS= -I. -I./../../../include/ -O2 -pipe

.SUFFIXES: .o .c

.c.o:

cc ${CFLAGS} -c $< -o $@

all: ${OBJS}

cc ${CFLAGS} -o ${BIN} ${OBJS} -L./../../../lib/ -lore

clean:

rm -f ${BIN} ${OBJS}

% cd libore/
% make
cc -I. -I./../include/ -O2 -pipe -c indent.c -o indent.o
cc -I. -I./../include/ -O2 -pipe -c ore.c -o ore.o
cc -I. -I./../include/ -O2 -pipe -c setmsg.c -o setmsg.o
cc -I. -I./../include/ -O2 -pipe -c usage.c -o usage.o
cc -I. -I./../include/ -O2 -pipe -c version.c -o version.o
ar -crv ./../lib/libore.a indent.o ore.o setmsg.o usage.o version.o
a - indent.o
a - ore.o
a - setmsg.o
a - usage.o
a - version.o
% cd ../src/bin/oreapp/
% make
cc -I. -I./../../../include/ -O2 -pipe -c oreapp.c -o oreapp.o
cc -I. -I./../../../include/ -O2 -pipe -o ./../../../bin/oreapp oreapp.o -L./../../../lib/ -lore
%

% cd libore/

% make

cc -I. -I./../include/ -O2 -pipe -c indent.c -o indent.o

cc -I. -I./../include/ -O2 -pipe -c ore.c -o ore.o

cc -I. -I./../include/ -O2 -pipe -c setmsg.c -o setmsg.o

cc -I. -I./../include/ -O2 -pipe -c usage.c -o usage.o

cc -I. -I./../include/ -O2 -pipe -c version.c -o version.o

ar -crv ./../lib/libore.a indent.o ore.o setmsg.o usage.o version.o

a - indent.o

a - ore.o

a - setmsg.o

a - usage.o

a - version.o

% cd ../src/bin/oreapp/

% make

cc -I. -I./../../../include/ -O2 -pipe -c oreapp.c -o oreapp.o

cc -I. -I./../../../include/ -O2 -pipe -o ./../../../bin/oreapp oreapp.o -L./../../../lib/ -lore

% ./oreapp -v
バージョン: 1.0
% ./oreapp -h
使い方:
        oreapp [-v] [-h] string...
% ./oreapp a b c d
000001 a
000002 b
000003 c
000004 d
%

% ./oreapp -v

バージョン: 1.0

% ./oreapp -h

使い方:

oreapp [-v] [-h] string...

% ./oreapp a b c d

000001 a

000002 b

000003 c

000004 d

% readelf -a oreapp
ELF Header:
  Magic:   7f 45 4c 46 02 01 01 09 00 00 00 00 00 00 00 00
  Class:                             ELF64
  Data:                              2's complement, little endian
  Version:                           1 (current)
  OS/ABI:                            FreeBSD
  ABI Version:                       0
  Type:                              EXEC (Executable file)
  Machine:                           Advanced Micro Devices x86-64
  Version:                           0x1
  Entry point address:               0x4006e0
  Start of program headers:          64 (bytes into file)
  Start of section headers:          4728 (bytes into file)
  Flags:                             0
  Size of this header:               64 (bytes)
  Size of program headers:           56 (bytes)
  Number of program headers:         8
  Size of section headers:           64 (bytes)
  Number of section headers:         29
  Section header string table index: 26

Elf file type is EXEC (Executable file)
Entry point 0x4006e0
There are 8 program headers, starting at offset 64

Program Headers:
  Type           Offset             VirtAddr           PhysAddr
                 FileSiz            MemSiz              Flg    Align
  PHDR           0x0000000000000040 0x0000000000400040 0x0000000000400040
                 0x00000000000001c0 0x00000000000001c0  R E    0x8
  INTERP         0x0000000000000200 0x0000000000400200 0x0000000000400200
                 0x0000000000000015 0x0000000000000015  R      0x1
      [Requesting program interpreter: /libexec/ld-elf.so.1]
  LOAD           0x0000000000000000 0x0000000000400000 0x0000000000400000
                 0x0000000000000d6c 0x0000000000000d6c  R E    0x200000
  LOAD           0x0000000000000d70 0x0000000000600d70 0x0000000000600d70
                 0x0000000000000241 0x0000000000001278  RW     0x200000
  DYNAMIC        0x0000000000000d98 0x0000000000600d98 0x0000000000600d98
                 0x00000000000001a0 0x00000000000001a0  RW     0x8
  NOTE           0x0000000000000218 0x0000000000400218 0x0000000000400218
                 0x0000000000000030 0x0000000000000030  R      0x4
  GNU_EH_FRAME   0x0000000000000c24 0x0000000000400c24 0x0000000000400c24
                 0x0000000000000044 0x0000000000000044  R      0x4
  GNU_STACK      0x0000000000000000 0x0000000000000000 0x0000000000000000
                 0x0000000000000000 0x0000000000000000  RW     0x8


Section to Segment mapping:
  Segment Sections...
   00
   01     .interp
   02     .interp .note.tag .hash .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .plt .text .fini .rodata .eh_frame_hdr .eh_frame
   03     .ctors .dtors .jcr .dynamic .got.plt .data .bss
   04     .dynamic
   05     .note.tag
   06     .eh_frame_hdr
   07
There are 29 section headers, starting at offset 0x1278:
Section Headers:
  [Nr] Name              Type             Address           Offset
       Size              EntSize          Flags  Link  Info  Align
  [ 0] (null)            NULL             0000000000000000  00000000
       0000000000000000  0000000000000000           0     0     0
  [ 1] .interp           PROGBITS         0000000000400200  00000200
       0000000000000015  0000000000000000   A       0     0     1
  [ 2] .note.tag         NOTE             0000000000400218  00000218
       0000000000000030  0000000000000000   A       0     0     4
  [ 3] .hash             HASH             0000000000400248  00000248
       0000000000000054  0000000000000004   A       5     0     8
  [ 4] .gnu.hash         GNU_HASH         00000000004002a0  000002a0
       0000000000000038  0000000000000000   A       5     0     8
  [ 5] .dynsym           DYNSYM           00000000004002d8  000002d8
       0000000000000180  0000000000000018   A       6     1     8
  [ 6] .dynstr           STRTAB           0000000000400458  00000458
       0000000000000087  0000000000000000   A       0     0     1
  [ 7] .gnu.version      SUNW_versym      00000000004004e0  000004e0
       0000000000000020  0000000000000002   A       5     0     2
  [ 8] .gnu.version_r    SUNW_verneed     0000000000400500  00000500
       0000000000000020  0000000000000000   A       6     1     8
  [ 9] .rela.dyn         RELA             0000000000400520  00000520
       0000000000000030  0000000000000018   A       5     0     8
  [10] .rela.plt         RELA             0000000000400550  00000550
       00000000000000d8  0000000000000018   A       5    12     8
  [11] .init             PROGBITS         0000000000400628  00000628
       0000000000000013  0000000000000000  AX       0     0     4
  [12] .plt              PROGBITS         000000000040063c  0000063c
       00000000000000a0  0000000000000010  AX       0     0     4
  [13] .text             PROGBITS         00000000004006e0  000006e0
       00000000000004c8  0000000000000000  AX       0     0     16
  [14] .fini             PROGBITS         0000000000400ba8  00000ba8
       000000000000000e  0000000000000000  AX       0     0     4
  [15] .rodata           PROGBITS         0000000000400bb6  00000bb6
       000000000000006d  0000000000000001 AMS       0     0     1
  [16] .eh_frame_hdr     PROGBITS         0000000000400c24  00000c24
       0000000000000044  0000000000000000   A       0     0     4
  [17] .eh_frame         X86_64_UNWIND    0000000000400c68  00000c68
       0000000000000104  0000000000000000   A       0     0     8
  [18] .ctors            PROGBITS         0000000000600d70  00000d70
       0000000000000010  0000000000000000  WA       0     0     8
  [19] .dtors            PROGBITS         0000000000600d80  00000d80
       0000000000000010  0000000000000000  WA       0     0     8
  [20] .jcr              PROGBITS         0000000000600d90  00000d90
       0000000000000008  0000000000000000  WA       0     0     8
  [21] .dynamic          DYNAMIC          0000000000600d98  00000d98
       00000000000001a0  0000000000000010  WA       6     0     8
  [22] .got.plt          PROGBITS         0000000000600f38  00000f38
       0000000000000060  0000000000000008  WA       0     0     8
  [23] .data             PROGBITS         0000000000600f98  00000f98
       0000000000000019  0000000000000000  WA       0     0     8
  [24] .bss              NOBITS           0000000000600fc0  00000fb1
       0000000000001028  0000000000000000  WA       0     0     16
  [25] .comment          PROGBITS         0000000000000000  00000fb1
       00000000000001e3  0000000000000001  MS       0     0     1
  [26] .shstrtab         STRTAB           0000000000000000  00001194
       00000000000000e2  0000000000000000           0     0     1
  [27] .symtab           SYMTAB           0000000000000000  000019b8
       0000000000000810  0000000000000018          28    58     8
  [28] .strtab           STRTAB           0000000000000000  000021c8
       0000000000000363  0000000000000000           0     0     1
Key to Flags:
  W (write), A (alloc), X (execute), M (merge), S (strings)
  I (info), L (link order), G (group), x (unknown)
  O (extra OS processing required) o (OS specific), p (processor specific)

Dynamic section at offset 0xd98 contains 21 entries:
  Tag                Type                  Name/Value
 0x0000000000000001 NEEDED               Shared library: [libc.so.7]
 0x000000000000000c INIT                 0x400628
 0x000000000000000d FINI                 0x400ba8
 0x0000000000000004 HASH                 0x400248
 0x000000006ffffef5 GNU_HASH             0x4002a0
 0x0000000000000005 STRTAB               0x400458
 0x0000000000000006 SYMTAB               0x4002d8
 0x000000000000000a STRSZ                135 (bytes)
 0x000000000000000b SYMENT               24 (bytes)
 0x0000000000000015 DEBUG                0x0
 0x0000000000000003 PLTGOT               0x600f38
 0x0000000000000002 PLTRELSZ             216 (bytes)
 0x0000000000000014 PLTREL               RELA
 0x0000000000000017 JMPREL               0x400550
 0x0000000000000007 RELA                 0x400520
 0x0000000000000008 RELASZ               48 (bytes)
 0x0000000000000009 RELAENT              24 (bytes)
 0x000000006ffffffe VERNEED              0x400500
 0x000000006fffffff VERNEEDNUM           1
 0x000000006ffffff0 VERSYM               0x4004e0
 0x0000000000000000 NULL                 0x0

Relocation section with addend (.rela.dyn):
r_offset     r_info       r_type              st_value         st_name + r_addend
000000600fc0 000e00000005 R_X86_64_COPY       0000000000600fc0 optind + 0
000000600fc8 000f00000005 R_X86_64_COPY       0000000000600fc8 __stderrp + 0

Relocation section with addend (.rela.plt):
r_offset     r_info       r_type              st_value         st_name + r_addend
000000600f50 000200000007 R_X86_64_JUMP_SLOT  0000000000000000 printf + 0
000000600f58 000300000007 R_X86_64_JUMP_SLOT  0000000000000000 atexit + 0
000000600f60 000400000007 R_X86_64_JUMP_SLOT  0000000000000000 _init_tls + 0
000000600f68 000500000007 R_X86_64_JUMP_SLOT  0000000000000000 fprintf + 0
000000600f70 000600000007 R_X86_64_JUMP_SLOT  0000000000000000 getopt + 0
000000600f78 000700000007 R_X86_64_JUMP_SLOT  0000000000000000 calloc + 0
000000600f80 000800000007 R_X86_64_JUMP_SLOT  0000000000000000 strncpy + 0
000000600f88 000900000007 R_X86_64_JUMP_SLOT  0000000000000000 exit + 0
000000600f90 000a00000007 R_X86_64_JUMP_SLOT  0000000000000000 strcmp + 0
Symbol table (.dynsym) contains 16 entries:
   Num:    Value          Size Type    Bind   Vis      Ndx Name
     0: 0000000000000000     0 NOTYPE  LOCAL  DEFAULT  UND
     1: 0000000000000000     0 NOTYPE  WEAK   DEFAULT  UND _Jv_RegisterClasses
     2: 0000000000000000   188 FUNC    GLOBAL DEFAULT  UND printf@FBSD_1.0 (2)
     3: 0000000000000000    71 FUNC    GLOBAL DEFAULT  UND atexit@FBSD_1.0 (2)
     4: 0000000000000000     6 FUNC    GLOBAL DEFAULT  UND _init_tls@FBSD_1.0 (2)
     5: 0000000000000000   239 FUNC    GLOBAL DEFAULT  UND fprintf@FBSD_1.0 (2)
     6: 0000000000000000   617 FUNC    GLOBAL DEFAULT  UND getopt@FBSD_1.0 (2)
     7: 0000000000000000  3171 FUNC    GLOBAL DEFAULT  UND calloc@FBSD_1.0 (2)
     8: 0000000000000000    76 FUNC    GLOBAL DEFAULT  UND strncpy@FBSD_1.0 (2)
     9: 0000000000000000    54 FUNC    GLOBAL DEFAULT  UND exit@FBSD_1.0 (2)
    10: 0000000000000000   126 FUNC    GLOBAL DEFAULT  UND strcmp@FBSD_1.0 (2)
    11: 0000000000601fd0     8 OBJECT  GLOBAL DEFAULT   24 environ
    12: 0000000000601fe8     0 NOTYPE  GLOBAL DEFAULT  ABS _end
    13: 0000000000600f98     8 OBJECT  GLOBAL DEFAULT   23 __progname
    14: 0000000000600fc0     4 OBJECT  GLOBAL DEFAULT   24 optind@FBSD_1.0 (2)
    15: 0000000000600fc8     8 OBJECT  GLOBAL DEFAULT   24 __stderrp@FBSD_1.0 (2)
Symbol table (.symtab) contains 86 entries:
   Num:    Value          Size Type    Bind   Vis      Ndx Name
     0: 0000000000000000     0 NOTYPE  LOCAL  DEFAULT  UND
     1: 0000000000400200     0 SECTION LOCAL  DEFAULT    1
     2: 0000000000400218     0 SECTION LOCAL  DEFAULT    2
     3: 0000000000400248     0 SECTION LOCAL  DEFAULT    3
     4: 00000000004002a0     0 SECTION LOCAL  DEFAULT    4
     5: 00000000004002d8     0 SECTION LOCAL  DEFAULT    5
     6: 0000000000400458     0 SECTION LOCAL  DEFAULT    6
     7: 00000000004004e0     0 SECTION LOCAL  DEFAULT    7
     8: 0000000000400500     0 SECTION LOCAL  DEFAULT    8
     9: 0000000000400520     0 SECTION LOCAL  DEFAULT    9
    10: 0000000000400550     0 SECTION LOCAL  DEFAULT   10
    11: 0000000000400628     0 SECTION LOCAL  DEFAULT   11
    12: 000000000040063c     0 SECTION LOCAL  DEFAULT   12
    13: 00000000004006e0     0 SECTION LOCAL  DEFAULT   13
    14: 0000000000400ba8     0 SECTION LOCAL  DEFAULT   14
    15: 0000000000400bb6     0 SECTION LOCAL  DEFAULT   15
    16: 0000000000400c24     0 SECTION LOCAL  DEFAULT   16
    17: 0000000000400c68     0 SECTION LOCAL  DEFAULT   17
    18: 0000000000600d70     0 SECTION LOCAL  DEFAULT   18
    19: 0000000000600d80     0 SECTION LOCAL  DEFAULT   19
    20: 0000000000600d90     0 SECTION LOCAL  DEFAULT   20
    21: 0000000000600d98     0 SECTION LOCAL  DEFAULT   21
    22: 0000000000600f38     0 SECTION LOCAL  DEFAULT   22
    23: 0000000000600f98     0 SECTION LOCAL  DEFAULT   23
    24: 0000000000600fc0     0 SECTION LOCAL  DEFAULT   24
    25: 0000000000000000     0 SECTION LOCAL  DEFAULT   25
    26: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS /usr/src/lib/csu/amd64/crt1.c
    27: 0000000000400218    24 OBJECT  LOCAL  DEFAULT    2 abitag
    28: 0000000000400230    24 OBJECT  LOCAL  DEFAULT    2 crt_noinit_tag
    29: 0000000000400870    83 FUNC    LOCAL  DEFAULT   13 finalizer
    30: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS /usr/src/gnu/lib/csu/../../../contrib/gcc/crtstuff.c
    31: 0000000000600d70     8 OBJECT  LOCAL  DEFAULT   18 __CTOR_LIST__
    32: 0000000000600d80     8 OBJECT  LOCAL  DEFAULT   19 __DTOR_LIST__
    33: 0000000000600d90     0 OBJECT  LOCAL  DEFAULT   20 __JCR_LIST__
    34: 00000000004008d0    53 FUNC    LOCAL  DEFAULT   13 __do_global_dtors_aux
    35: 0000000000600fb0     1 OBJECT  LOCAL  DEFAULT   23 __do_global_dtors_aux.completed
    36: 0000000000600fa8     8 OBJECT  LOCAL  DEFAULT   23 __do_global_dtors_aux.p
    37: 0000000000400910    34 FUNC    LOCAL  DEFAULT   13 frame_dummy
    38: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS /usr/src/gnu/lib/csu/../../../contrib/gcc/crtstuff.c
    39: 0000000000600d78     8 OBJECT  LOCAL  DEFAULT   18 __CTOR_END__
    40: 0000000000600d88     8 OBJECT  LOCAL  DEFAULT   19 __DTOR_END__
    41: 0000000000400d68     4 OBJECT  LOCAL  DEFAULT   17 __FRAME_END__
    42: 0000000000600d90     8 OBJECT  LOCAL  DEFAULT   20 __JCR_END__
    43: 0000000000400b70    54 FUNC    LOCAL  DEFAULT   13 __do_global_ctors_aux
    44: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS oreapp.c
    45: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS setmsg.c
    46: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS usage.c
    47: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS version.c
    48: 0000000000000000     0 FILE    LOCAL  DEFAULT  ABS indent.c
    49: 0000000000600fd0  4096 OBJECT  LOCAL  DEFAULT   24 indent.buf
    50: 0000000000600d6c     0 NOTYPE  LOCAL  HIDDEN    18 __preinit_array_start
    51: 0000000000600d6c     0 NOTYPE  LOCAL  HIDDEN    18 __fini_array_end
    52: 0000000000600f38     0 OBJECT  LOCAL  HIDDEN    22 _GLOBAL_OFFSET_TABLE_
    53: 0000000000600d6c     0 NOTYPE  LOCAL  HIDDEN    18 __preinit_array_end
    54: 0000000000600d6c     0 NOTYPE  LOCAL  HIDDEN    18 __fini_array_start
    55: 0000000000600d6c     0 NOTYPE  LOCAL  HIDDEN    18 __init_array_end
    56: 0000000000600d6c     0 NOTYPE  LOCAL  HIDDEN    18 __init_array_start
    57: 0000000000600d98     0 OBJECT  LOCAL  HIDDEN    21 _DYNAMIC
    58: 0000000000600fc0     4 OBJECT  GLOBAL DEFAULT   24 optind@@FBSD_1.0
    59: 00000000004006e0   390 FUNC    GLOBAL DEFAULT   13 _start
    60: 0000000000000000     0 NOTYPE  WEAK   DEFAULT  UND _Jv_RegisterClasses
    61: 0000000000600f98     8 OBJECT  GLOBAL DEFAULT   23 __progname
    62: 0000000000601fd8     8 OBJECT  GLOBAL DEFAULT   24 _usage_msg
    63: 0000000000400ba8     0 FUNC    GLOBAL HIDDEN    14 _fini
    64: 0000000000400a10   160 FUNC    GLOBAL DEFAULT   13 setmsg
    65: 0000000000000000   188 FUNC    GLOBAL DEFAULT  UND printf@@FBSD_1.0
    66: 0000000000000000    71 FUNC    GLOBAL DEFAULT  UND atexit@@FBSD_1.0
    67: 0000000000000000     6 FUNC    GLOBAL DEFAULT  UND _init_tls@@FBSD_1.0
    68: 0000000000000000   239 FUNC    GLOBAL DEFAULT  UND fprintf@@FBSD_1.0
    69: 0000000000000000   617 FUNC    GLOBAL DEFAULT  UND getopt@@FBSD_1.0
    70: 0000000000400b10    90 FUNC    GLOBAL DEFAULT   13 indent
    71: 0000000000600fa0     8 OBJECT  GLOBAL HIDDEN    23 __dso_handle
    72: 0000000000601fe0     8 OBJECT  GLOBAL DEFAULT   24 _version_msg
    73: 0000000000400af0    31 FUNC    GLOBAL DEFAULT   13 version
    74: 0000000000000000  3171 FUNC    GLOBAL DEFAULT  UND calloc@@FBSD_1.0
    75: 0000000000000000    76 FUNC    GLOBAL DEFAULT  UND strncpy@@FBSD_1.0
    76: 0000000000600fb1     0 NOTYPE  GLOBAL DEFAULT  ABS __bss_start
    77: 0000000000601fd0     8 OBJECT  GLOBAL DEFAULT   24 environ
    78: 0000000000601fe8     0 NOTYPE  GLOBAL DEFAULT  ABS _end
    79: 0000000000400ab0    52 FUNC    GLOBAL DEFAULT   13 usage
    80: 0000000000000000    54 FUNC    GLOBAL DEFAULT  UND exit@@FBSD_1.0
    81: 0000000000600fb1     0 NOTYPE  GLOBAL DEFAULT  ABS _edata
    82: 0000000000600fc8     8 OBJECT  GLOBAL DEFAULT   24 __stderrp@@FBSD_1.0
    83: 0000000000000000   126 FUNC    GLOBAL DEFAULT  UND strcmp@@FBSD_1.0
    84: 0000000000400940   196 FUNC    GLOBAL DEFAULT   13 main
    85: 0000000000400628     0 FUNC    GLOBAL HIDDEN    11 _init

Histogram for bucket list length (total of 3 buckets):
 Length Number          % of total      Coverage
      0 0               (  0.0%)          0.0%
      1 0               (  0.0%)          0.0%
      2 1               ( 33.3%)         13.3%
      3 0               (  0.0%)         13.3%
      4 0               (  0.0%)         13.3%
      5 0               (  0.0%)         13.3%
      6 1               ( 33.3%)         53.3%
      7 1               ( 33.3%)        100.0%
Histogram for bucket list length (total of 3 buckets):
 Length Number          % of total      Coverage
      0 0               (  0.0%)          0.0%
      1 1               ( 33.3%)         25.0%
      2 2               ( 66.7%)        125.0%

Version symbol section (.gnu.version):
  000:   0 *local*         0 *local*         2 FBSD_1.0        2 FBSD_1.0
  004:   2 FBSD_1.0        2 FBSD_1.0        2 FBSD_1.0        2 FBSD_1.0
  008:   2 FBSD_1.0        2 FBSD_1.0        2 FBSD_1.0        1 *global*
  00c:   1 *global*        1 *global*        2 FBSD_1.0        2 FBSD_1.0

Version needed section (.gnu.version_r):
  0x0000 vn_version: 1 vn_file: libc.so.7 vn_cnt: 1
  0x0010   vna_name: FBSD_1.0 vna_flags: 0 vna_other: 2
%

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

% readelf -a oreapp

ELF Header:

Magic: 7f 45 4c 46 02 01 01 09 00 00 00 00 00 00 00 00

Class: ELF64

Data: 2's complement, little endian

Version: 1 (current)

OS/ABI: FreeBSD

ABI Version: 0

Type: EXEC (Executable file)

Machine: Advanced Micro Devices x86-64

Version: 0x1

Entry point address: 0x4006e0

Start of program headers: 64 (bytes into file)

Start of section headers: 4728 (bytes into file)

Flags: 0

Size of this header: 64 (bytes)

Size of program headers: 56 (bytes)

Number of program headers: 8

Size of section headers: 64 (bytes)

Number of section headers: 29

Section header string table index: 26

Elf file type is EXEC (Executable file)

Entry point 0x4006e0

There are 8 program headers, starting at offset 64

Program Headers:

Type Offset VirtAddr PhysAddr

FileSiz MemSiz Flg Align

PHDR 0x0000000000000040 0x0000000000400040 0x0000000000400040

0x00000000000001c0 0x00000000000001c0 R E 0x8

INTERP 0x0000000000000200 0x0000000000400200 0x0000000000400200

0x0000000000000015 0x0000000000000015 R 0x1

[Requesting program interpreter: /libexec/ld-elf.so.1]

LOAD 0x0000000000000000 0x0000000000400000 0x0000000000400000

0x0000000000000d6c 0x0000000000000d6c R E 0x200000

LOAD 0x0000000000000d70 0x0000000000600d70 0x0000000000600d70

0x0000000000000241 0x0000000000001278 RW 0x200000

DYNAMIC 0x0000000000000d98 0x0000000000600d98 0x0000000000600d98

0x00000000000001a0 0x00000000000001a0 RW 0x8

NOTE 0x0000000000000218 0x0000000000400218 0x0000000000400218

0x0000000000000030 0x0000000000000030 R 0x4

GNU_EH_FRAME 0x0000000000000c24 0x0000000000400c24 0x0000000000400c24

0x0000000000000044 0x0000000000000044 R 0x4

GNU_STACK 0x0000000000000000 0x0000000000000000 0x0000000000000000

0x0000000000000000 0x0000000000000000 RW 0x8

Section to Segment mapping:

Segment Sections...

01 .interp

02 .interp .note.tag .hash .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.plt .init .plt .text .fini .rodata .eh_frame_hdr .eh_frame

03 .ctors .dtors .jcr .dynamic .got.plt .data .bss

04 .dynamic

05 .note.tag

06 .eh_frame_hdr

There are 29 section headers, starting at offset 0x1278:

Section Headers:

[Nr] Name Type Address Offset

Size EntSize Flags Link Info Align

[ 0] (null) NULL 0000000000000000 00000000

0000000000000000 0000000000000000 0 0 0

[ 1] .interp PROGBITS 0000000000400200 00000200

0000000000000015 0000000000000000 A 0 0 1

[ 2] .note.tag NOTE 0000000000400218 00000218

0000000000000030 0000000000000000 A 0 0 4

[ 3] .hash HASH 0000000000400248 00000248

0000000000000054 0000000000000004 A 5 0 8

[ 4] .gnu.hash GNU_HASH 00000000004002a0 000002a0

0000000000000038 0000000000000000 A 5 0 8

[ 5] .dynsym DYNSYM 00000000004002d8 000002d8

0000000000000180 0000000000000018 A 6 1 8

[ 6] .dynstr STRTAB 0000000000400458 00000458

0000000000000087 0000000000000000 A 0 0 1

[ 7] .gnu.version SUNW_versym 00000000004004e0 000004e0

0000000000000020 0000000000000002 A 5 0 2

[ 8] .gnu.version_r SUNW_verneed 0000000000400500 00000500

0000000000000020 0000000000000000 A 6 1 8

[ 9] .rela.dyn RELA 0000000000400520 00000520

0000000000000030 0000000000000018 A 5 0 8

[10] .rela.plt RELA 0000000000400550 00000550

00000000000000d8 0000000000000018 A 5 12 8

[11] .init PROGBITS 0000000000400628 00000628

0000000000000013 0000000000000000 AX 0 0 4

[12] .plt PROGBITS 000000000040063c 0000063c

00000000000000a0 0000000000000010 AX 0 0 4

[13] .text PROGBITS 00000000004006e0 000006e0

00000000000004c8 0000000000000000 AX 0 0 16

[14] .fini PROGBITS 0000000000400ba8 00000ba8

000000000000000e 0000000000000000 AX 0 0 4

[15] .rodata PROGBITS 0000000000400bb6 00000bb6

000000000000006d 0000000000000001 AMS 0 0 1

[16] .eh_frame_hdr PROGBITS 0000000000400c24 00000c24

0000000000000044 0000000000000000 A 0 0 4

[17] .eh_frame X86_64_UNWIND 0000000000400c68 00000c68

0000000000000104 0000000000000000 A 0 0 8

[18] .ctors PROGBITS 0000000000600d70 00000d70

0000000000000010 0000000000000000 WA 0 0 8

[19] .dtors PROGBITS 0000000000600d80 00000d80

0000000000000010 0000000000000000 WA 0 0 8

[20] .jcr PROGBITS 0000000000600d90 00000d90

0000000000000008 0000000000000000 WA 0 0 8

[21] .dynamic DYNAMIC 0000000000600d98 00000d98

00000000000001a0 0000000000000010 WA 6 0 8

[22] .got.plt PROGBITS 0000000000600f38 00000f38

0000000000000060 0000000000000008 WA 0 0 8

[23] .data PROGBITS 0000000000600f98 00000f98

0000000000000019 0000000000000000 WA 0 0 8

[24] .bss NOBITS 0000000000600fc0 00000fb1

0000000000001028 0000000000000000 WA 0 0 16

[25] .comment PROGBITS 0000000000000000 00000fb1

00000000000001e3 0000000000000001 MS 0 0 1

[26] .shstrtab STRTAB 0000000000000000 00001194

00000000000000e2 0000000000000000 0 0 1

[27] .symtab SYMTAB 0000000000000000 000019b8

0000000000000810 0000000000000018 28 58 8

[28] .strtab STRTAB 0000000000000000 000021c8

0000000000000363 0000000000000000 0 0 1

Key to Flags:

W (write), A (alloc), X (execute), M (merge), S (strings)

I (info), L (link order), G (group), x (unknown)

O (extra OS processing required) o (OS specific), p (processor specific)

Dynamic section at offset 0xd98 contains 21 entries:

Tag Type Name/Value

0x0000000000000001 NEEDED Shared library: [libc.so.7]

0x000000000000000c INIT 0x400628

0x000000000000000d FINI 0x400ba8

0x0000000000000004 HASH 0x400248

0x000000006ffffef5 GNU_HASH 0x4002a0

0x0000000000000005 STRTAB 0x400458

0x0000000000000006 SYMTAB 0x4002d8

0x000000000000000a STRSZ 135 (bytes)

0x000000000000000b SYMENT 24 (bytes)

0x0000000000000015 DEBUG 0x0

0x0000000000000003 PLTGOT 0x600f38

0x0000000000000002 PLTRELSZ 216 (bytes)

0x0000000000000014 PLTREL RELA

0x0000000000000017 JMPREL 0x400550

0x0000000000000007 RELA 0x400520

0x0000000000000008 RELASZ 48 (bytes)

0x0000000000000009 RELAENT 24 (bytes)

0x000000006ffffffe VERNEED 0x400500

0x000000006fffffff VERNEEDNUM 1

0x000000006ffffff0 VERSYM 0x4004e0

0x0000000000000000 NULL 0x0

Relocation section with addend (.rela.dyn):

r_offset r_info r_type st_value st_name + r_addend

000000600fc0 000e00000005 R_X86_64_COPY 0000000000600fc0 optind + 0

000000600fc8 000f00000005 R_X86_64_COPY 0000000000600fc8 __stderrp + 0

Relocation section with addend (.rela.plt):

r_offset r_info r_type st_value st_name + r_addend

000000600f50 000200000007 R_X86_64_JUMP_SLOT 0000000000000000 printf + 0

000000600f58 000300000007 R_X86_64_JUMP_SLOT 0000000000000000 atexit + 0

000000600f60 000400000007 R_X86_64_JUMP_SLOT 0000000000000000 _init_tls + 0

000000600f68 000500000007 R_X86_64_JUMP_SLOT 0000000000000000 fprintf + 0

000000600f70 000600000007 R_X86_64_JUMP_SLOT 0000000000000000 getopt + 0

000000600f78 000700000007 R_X86_64_JUMP_SLOT 0000000000000000 calloc + 0

000000600f80 000800000007 R_X86_64_JUMP_SLOT 0000000000000000 strncpy + 0

000000600f88 000900000007 R_X86_64_JUMP_SLOT 0000000000000000 exit + 0

000000600f90 000a00000007 R_X86_64_JUMP_SLOT 0000000000000000 strcmp + 0

Symbol table (.dynsym) contains 16 entries:

Num: Value Size Type Bind Vis Ndx Name

0: 0000000000000000 0 NOTYPE LOCAL DEFAULT UND

1: 0000000000000000 0 NOTYPE WEAK DEFAULT UND _Jv_RegisterClasses

2: 0000000000000000 188 FUNC GLOBAL DEFAULT UND printf@FBSD_1.0 (2)

3: 0000000000000000 71 FUNC GLOBAL DEFAULT UND atexit@FBSD_1.0 (2)

4: 0000000000000000 6 FUNC GLOBAL DEFAULT UND _init_tls@FBSD_1.0 (2)

5: 0000000000000000 239 FUNC GLOBAL DEFAULT UND fprintf@FBSD_1.0 (2)

6: 0000000000000000 617 FUNC GLOBAL DEFAULT UND getopt@FBSD_1.0 (2)

7: 0000000000000000 3171 FUNC GLOBAL DEFAULT UND calloc@FBSD_1.0 (2)

8: 0000000000000000 76 FUNC GLOBAL DEFAULT UND strncpy@FBSD_1.0 (2)

9: 0000000000000000 54 FUNC GLOBAL DEFAULT UND exit@FBSD_1.0 (2)

10: 0000000000000000 126 FUNC GLOBAL DEFAULT UND strcmp@FBSD_1.0 (2)

11: 0000000000601fd0 8 OBJECT GLOBAL DEFAULT 24 environ

12: 0000000000601fe8 0 NOTYPE GLOBAL DEFAULT ABS _end

13: 0000000000600f98 8 OBJECT GLOBAL DEFAULT 23 __progname

14: 0000000000600fc0 4 OBJECT GLOBAL DEFAULT 24 optind@FBSD_1.0 (2)

15: 0000000000600fc8 8 OBJECT GLOBAL DEFAULT 24 __stderrp@FBSD_1.0 (2)

Symbol table (.symtab) contains 86 entries:

Num: Value Size Type Bind Vis Ndx Name

0: 0000000000000000 0 NOTYPE LOCAL DEFAULT UND

1: 0000000000400200 0 SECTION LOCAL DEFAULT 1

2: 0000000000400218 0 SECTION LOCAL DEFAULT 2

3: 0000000000400248 0 SECTION LOCAL DEFAULT 3

4: 00000000004002a0 0 SECTION LOCAL DEFAULT 4

5: 00000000004002d8 0 SECTION LOCAL DEFAULT 5

6: 0000000000400458 0 SECTION LOCAL DEFAULT 6

7: 00000000004004e0 0 SECTION LOCAL DEFAULT 7

8: 0000000000400500 0 SECTION LOCAL DEFAULT 8

9: 0000000000400520 0 SECTION LOCAL DEFAULT 9

10: 0000000000400550 0 SECTION LOCAL DEFAULT 10

11: 0000000000400628 0 SECTION LOCAL DEFAULT 11

12: 000000000040063c 0 SECTION LOCAL DEFAULT 12

13: 00000000004006e0 0 SECTION LOCAL DEFAULT 13

14: 0000000000400ba8 0 SECTION LOCAL DEFAULT 14

15: 0000000000400bb6 0 SECTION LOCAL DEFAULT 15

16: 0000000000400c24 0 SECTION LOCAL DEFAULT 16

17: 0000000000400c68 0 SECTION LOCAL DEFAULT 17

18: 0000000000600d70 0 SECTION LOCAL DEFAULT 18

19: 0000000000600d80 0 SECTION LOCAL DEFAULT 19

20: 0000000000600d90 0 SECTION LOCAL DEFAULT 20

21: 0000000000600d98 0 SECTION LOCAL DEFAULT 21

22: 0000000000600f38 0 SECTION LOCAL DEFAULT 22

23: 0000000000600f98 0 SECTION LOCAL DEFAULT 23

24: 0000000000600fc0 0 SECTION LOCAL DEFAULT 24

25: 0000000000000000 0 SECTION LOCAL DEFAULT 25

26: 0000000000000000 0 FILE LOCAL DEFAULT ABS /usr/src/lib/csu/amd64/crt1.c

27: 0000000000400218 24 OBJECT LOCAL DEFAULT 2 abitag

28: 0000000000400230 24 OBJECT LOCAL DEFAULT 2 crt_noinit_tag

29: 0000000000400870 83 FUNC LOCAL DEFAULT 13 finalizer

30: 0000000000000000 0 FILE LOCAL DEFAULT ABS /usr/src/gnu/lib/csu/../../../contrib/gcc/crtstuff.c

31: 0000000000600d70 8 OBJECT LOCAL DEFAULT 18 __CTOR_LIST__

32: 0000000000600d80 8 OBJECT LOCAL DEFAULT 19 __DTOR_LIST__

33: 0000000000600d90 0 OBJECT LOCAL DEFAULT 20 __JCR_LIST__

34: 00000000004008d0 53 FUNC LOCAL DEFAULT 13 __do_global_dtors_aux

35: 0000000000600fb0 1 OBJECT LOCAL DEFAULT 23 __do_global_dtors_aux.completed

36: 0000000000600fa8 8 OBJECT LOCAL DEFAULT 23 __do_global_dtors_aux.p

37: 0000000000400910 34 FUNC LOCAL DEFAULT 13 frame_dummy

38: 0000000000000000 0 FILE LOCAL DEFAULT ABS /usr/src/gnu/lib/csu/../../../contrib/gcc/crtstuff.c

39: 0000000000600d78 8 OBJECT LOCAL DEFAULT 18 __CTOR_END__

40: 0000000000600d88 8 OBJECT LOCAL DEFAULT 19 __DTOR_END__

41: 0000000000400d68 4 OBJECT LOCAL DEFAULT 17 __FRAME_END__

42: 0000000000600d90 8 OBJECT LOCAL DEFAULT 20 __JCR_END__

43: 0000000000400b70 54 FUNC LOCAL DEFAULT 13 __do_global_ctors_aux

44: 0000000000000000 0 FILE LOCAL DEFAULT ABS oreapp.c

45: 0000000000000000 0 FILE LOCAL DEFAULT ABS setmsg.c

46: 0000000000000000 0 FILE LOCAL DEFAULT ABS usage.c

47: 0000000000000000 0 FILE LOCAL DEFAULT ABS version.c

48: 0000000000000000 0 FILE LOCAL DEFAULT ABS indent.c

49: 0000000000600fd0 4096 OBJECT LOCAL DEFAULT 24 indent.buf

50: 0000000000600d6c 0 NOTYPE LOCAL HIDDEN 18 __preinit_array_start

51: 0000000000600d6c 0 NOTYPE LOCAL HIDDEN 18 __fini_array_end

52: 0000000000600f38 0 OBJECT LOCAL HIDDEN 22 _GLOBAL_OFFSET_TABLE_

53: 0000000000600d6c 0 NOTYPE LOCAL HIDDEN 18 __preinit_array_end

54: 0000000000600d6c 0 NOTYPE LOCAL HIDDEN 18 __fini_array_start

55: 0000000000600d6c 0 NOTYPE LOCAL HIDDEN 18 __init_array_end

56: 0000000000600d6c 0 NOTYPE LOCAL HIDDEN 18 __init_array_start

57: 0000000000600d98 0 OBJECT LOCAL HIDDEN 21 _DYNAMIC

58: 0000000000600fc0 4 OBJECT GLOBAL DEFAULT 24 optind@@FBSD_1.0

59: 00000000004006e0 390 FUNC GLOBAL DEFAULT 13 _start

60: 0000000000000000 0 NOTYPE WEAK DEFAULT UND _Jv_RegisterClasses

61: 0000000000600f98 8 OBJECT GLOBAL DEFAULT 23 __progname

62: 0000000000601fd8 8 OBJECT GLOBAL DEFAULT 24 _usage_msg

63: 0000000000400ba8 0 FUNC GLOBAL HIDDEN 14 _fini

64: 0000000000400a10 160 FUNC GLOBAL DEFAULT 13 setmsg

65: 0000000000000000 188 FUNC GLOBAL DEFAULT UND printf@@FBSD_1.0

66: 0000000000000000 71 FUNC GLOBAL DEFAULT UND atexit@@FBSD_1.0

67: 0000000000000000 6 FUNC GLOBAL DEFAULT UND _init_tls@@FBSD_1.0

68: 0000000000000000 239 FUNC GLOBAL DEFAULT UND fprintf@@FBSD_1.0

69: 0000000000000000 617 FUNC GLOBAL DEFAULT UND getopt@@FBSD_1.0

70: 0000000000400b10 90 FUNC GLOBAL DEFAULT 13 indent

71: 0000000000600fa0 8 OBJECT GLOBAL HIDDEN 23 __dso_handle

72: 0000000000601fe0 8 OBJECT GLOBAL DEFAULT 24 _version_msg

73: 0000000000400af0 31 FUNC GLOBAL DEFAULT 13 version

74: 0000000000000000 3171 FUNC GLOBAL DEFAULT UND calloc@@FBSD_1.0

75: 0000000000000000 76 FUNC GLOBAL DEFAULT UND strncpy@@FBSD_1.0

76: 0000000000600fb1 0 NOTYPE GLOBAL DEFAULT ABS __bss_start

77: 0000000000601fd0 8 OBJECT GLOBAL DEFAULT 24 environ

78: 0000000000601fe8 0 NOTYPE GLOBAL DEFAULT ABS _end

79: 0000000000400ab0 52 FUNC GLOBAL DEFAULT 13 usage

80: 0000000000000000 54 FUNC GLOBAL DEFAULT UND exit@@FBSD_1.0

81: 0000000000600fb1 0 NOTYPE GLOBAL DEFAULT ABS _edata

82: 0000000000600fc8 8 OBJECT GLOBAL DEFAULT 24 __stderrp@@FBSD_1.0

83: 0000000000000000 126 FUNC GLOBAL DEFAULT UND strcmp@@FBSD_1.0

84: 0000000000400940 196 FUNC GLOBAL DEFAULT 13 main

85: 0000000000400628 0 FUNC GLOBAL HIDDEN 11 _init

Histogram for bucket list length (total of 3 buckets):

Length Number % of total Coverage

0 0 ( 0.0%) 0.0%

1 0 ( 0.0%) 0.0%

2 1 ( 33.3%) 13.3%

3 0 ( 0.0%) 13.3%

4 0 ( 0.0%) 13.3%

5 0 ( 0.0%) 13.3%

6 1 ( 33.3%) 53.3%

7 1 ( 33.3%) 100.0%

Histogram for bucket list length (total of 3 buckets):

Length Number % of total Coverage

0 0 ( 0.0%) 0.0%

1 1 ( 33.3%) 25.0%

2 2 ( 66.7%) 125.0%

Version symbol section (.gnu.version):

000: 0 *local* 0 *local* 2 FBSD_1.0 2 FBSD_1.0

004: 2 FBSD_1.0 2 FBSD_1.0 2 FBSD_1.0 2 FBSD_1.0

008: 2 FBSD_1.0 2 FBSD_1.0 2 FBSD_1.0 1 *global*

00c: 1 *global* 1 *global* 2 FBSD_1.0 2 FBSD_1.0

Version needed section (.gnu.version_r):

0x0000 vn_version: 1 vn_file: libc.so.7 vn_cnt: 1

0x0010 vna_name: FBSD_1.0 vna_flags: 0 vna_other: 2

Vol.47

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

●UNIXコマンド～シェルスクリプトを「データ処理ツール」として使うためのイロハを学べる、新連載「バーティカルバーの極意」
　普段は文系の大学生にデータ処理を教えている中央大学・飯尾先生が、データ処理の理論から実習まで、余すところなく伝授します。

●通信の仕組みをざっくり理解できる新連載、「もし、インターネットの１秒が１年だったら」。
　引き伸ばされた時間軸の上で、擬人化されたクライアントとサーバーによるインターネットの通信を小説仕立てでお届けします。
　
●久しぶりの連載再開となる「スズラボ通信」と「UNIXネイティブの電子工作塾」。
　「スズラボ」ではIFTTTを利用したIoTを、「電子工作塾」ではシェルスクリプトを使った基盤づくりからの電光掲示板製作をとりあげます。

●街のポイ捨てゴミを拾いたい何十万人もの人々をサポートしてきた、ゴミ拾いSNSアプリ「ピリカ」。
　今回の「技術者哲学」では、アプリ開発まで物語や、裏にある哲学、そして環境問題をビジネスにする企業のあり方について、株式会社ピリカにお話を伺ってきました。

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

-->

1 usp Tukubai とは?

2 ユニケージ開発手法とは?

3 Personal Tukubai とは

4 Open usp Tukubai とは

Tukubai 各コマンドの機能の紹介と簡単な解説

1 Open usp Tukubai のインストール方法

2 Open usp Tukubai コマンドの解説

calclock

1 calclock とは

2 calclockを作ってみよう

comma

1 comma とは

2 commaを作ってみよう

getlast

1 getlastとは

2 getlastを作ってみよう

keta

1 keta とは

2 ketaを作ってみよう

1　usp Tukubai とは?

2 　ユニケージ開発手法とは?

3　Personal Tukubai とは

1　Open usp Tukubai のインストール方法

2　Open usp Tukubai コマンドの解説

1　calclock とは

2　calclockを作ってみよう

1　comma とは

2　commaを作ってみよう

1 　getlastとは

2　getlastを作ってみよう

1　keta とは

2　 ketaを作ってみよう