たつをの ChangeLog : 2017-02-02

【ヲハニュース 2017年2月2日号】牛丼某松屋の防犯カメラは偽物のことも、待機児童を保留児童と呼んで待機児童ゼロを達成、ウィンナー休憩で寿命が縮む、など

2017-02-02-1 [WohaNews]
2017年2月2日のヲハニュースをお届けします。

欧州四大セレクション ウィンナー （サッポロ）

▼自分が使っているカメラのこと(1)｜恵比寿新聞編集長｜note
恵比寿にある某有名チェーンの松屋という牛丼屋にうっかりカメラを忘れ、1時間後に気づき急いで戻った頃には時すでに遅し。カメラバッグごとなくなっていたのだ。店内には防犯カメラがついていたので誰が持って行ったのか検証してほしいと松屋本社に掛け合ったら「この防犯カメラ。偽物なんです」と言われてそれ以来、某松屋の牛丼は牛じゃないのかもしれないと思うほどショックに打ちひしがれた。
これは……

▼【大本営発表】待機児童ゼロゼロ詐欺で全国の親たちが激怒 - ピコシムのブログ
待機児童を保留児童と呼んで待機児童ゼロを達成！
ひどいな、こりゃ。
全国で同じようなことあるらしい。

▼「成績のよい子」は、だいたい何時に寝るのか | 睡眠 | 東洋経済オンライン | 経済ニュースの新基準
睡眠時間が（略）長くなるにつれて、成績が上がることがわかりました。ただし10時間以上寝ると、成績が下がりました。この調査では、7時間以上10時間未満の睡眠時間が良い成績をとるためにはベストだったようです。
9〜10時間をキープするよう頑張る。

▼ウィンナー1本で寿命が25秒縮む!? 新基準「損失余命」って何だ　なんと、ひじきの煮物はタバコより危険 （現代ビジネス） - Yahoo!ニュース
無意味な比較。
タバコ吸う頻度でウインナーやヒジキ食べないだろ。
1時間に1回ウインナー休憩とかないし。

▼「路上禁煙区域」で吸う人の論理：日経ビジネスオンライン
渋谷区もエリア内は路上喫煙禁止なんだけど歩きながら吸ってる人たくさんいて、禁止なの知らないだけかなと思ってたんだけど、そんなことはないと最近考えを改めた。

▼「まちがった薬物報道はもうやめて」 専門家、当事者は声をあげる
やめてー

▼香山リカ、在日ドクター金剛先生に論破される - Togetterまとめ
70年代に北朝鮮に渡った私の祖母と叔父は、ほどなくして消息が判らなくなり、その後ある筋から「精神病院」に入院したという消息が伝えられた。その「精神病院」にはきっと貴方のような「精神科医」がいたのだろう
ううむ、重い。

▼「電子書籍の購入は作家の応援にならない」は本当？ 現役編集者に聞いた - KAI-YOU.net
紙媒体の場合、実は一冊も本が売れなくても刷り部数（10,000部分）のお金が入って来るのに対して、電子書籍は実売数の分しか入ってこない
もうこれやめようよ。不健全だよ。
（契約によるらしい）

▼Kindle月替わりセールの一覧表
月替わりセール
昨日から、キンドル本の月替わりセールの2月分がスタートしましたよ。
など、百数十冊、40%以上割り引き。

【Perl】TSVの指定カラムの数値を手軽に棒グラフにして分かりやすくする

2017-02-02-2 [Perl][Programming]
コマンドラインで簡単に棒グラフを表示するやつ。
TSVを入力として、指定のカラムの数値を棒グラフ化。
棒はTSVの最後に追加して出力。
よくワンライナーでやってるんだけど、スクリプト版もあった（発掘した）ので公開。
Perl です。

入力データ(2009.tsv)： 空白のところはタブです。
2009-01	439	69305
2009-02	336	45463
2009-03	373	45845
2009-04	430	46441
2009-05	306	49709
2009-06	407	66057
2009-07	551	88944
2009-08	402	60289
2009-09	442	52836
2009-10	505	59128
2009-11	557	71414
2009-12	525	81157

実行例：第3カラム（5桁の数値の列）を指定(-k 3)、長さはマックス30文字(-w 30)、使う文字はピリオド(-c .)。
$ ./tsv2bargraph.pl -k 3 -c . -w 30 2009.tsv
2009-01	439	69305	.......................
2009-02	336	45463	...............
2009-03	373	45845	...............
2009-04	430	46441	...............
2009-05	306	49709	................
2009-06	407	66057	......................
2009-07	551	88944	..............................
2009-08	402	60289	....................
2009-09	442	52836	.................
2009-10	505	59128	...................
2009-11	557	71414	........................
2009-12	525	81157	...........................
ちょっと見やすく：
$ ./tsv2bargraph.pl -k 3 -c x -w 50 2009.tsv | cut -f1,4
2009-01	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-02	xxxxxxxxxxxxxxxxxxxxxxxxx
2009-03	xxxxxxxxxxxxxxxxxxxxxxxxx
2009-04	xxxxxxxxxxxxxxxxxxxxxxxxxx
2009-05	xxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-06	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-07	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-08	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-09	xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-10	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-11	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2009-12	xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

コード(tsv2bargraph.pl)：
#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw(max);
use Getopt::Long;
my $key = 1;
my $width = 50;
my $ch = "|";
GetOptions(
    "key=s" => \$key,
    "width=s" => \$width,
    "char=s" => \$ch,
    );
$key-- if $key;
my @lines = map {chomp; [split(/\t/, $_)]} <>;
my $max = max(map {$_->[$key]} @lines);
foreach my $lr (@lines) {
    my $len = int($lr->[$key] / $max * $width);
    print join("\t", @$lr, ($ch x $len))."\n";
}

関連記事


たつをの ChangeLog
Powered by chalow