たつをの ChangeLog : 2014-02-04

2014年2月4日のヲハニュースをお届けします。



▼インタビューサイトはどうして流行る？ - トゥギャッチ

茂みから石を投げるのは卑劣だけど、チヤホヤされたいし誰の悪意も受けたくないという願望も、掃き溜めと化した今日のインターネットではムシがよすぎるのよ。

ああ。

没個性、興味を持たれる機会が少ない、言いたいことも別にない…。そんな人たちに「聞かれたのだから仕方ない」と自分語りをする言い訳を与えてくれるのが「質問」という体裁だったの。

あああ。

▼小保方さん、熱意違った…共同研究の若山教授 : 科学 : YOMIURI ONLINE（読売新聞）

世紀の大発見をするには誰もがあり得ないと思うことにチャレンジすることが必要だ。でもそれは、若い研究者が長期間、成果を出せなくなる可能性があり、その後の研究者人生を考えればとても危険なこと。

ハイリスク・ハイリターン。

▼嫌われる覚悟のある人間は強い - まつたけのブログ
「異論を述べて嫌われる覚悟」なら良いけど、嫌われる人の多くは「相手を尊重しない」「間違いを訂正しない」「不利になったら罵倒する」とか人としてアレなレベルで、そこを省みずに覚悟だけあっても危険。

▼【画像集】日本中の書店が「愛国・反アジア本」だらけになっているとネットで話題 - NAVER まとめ
ブームとしての愛国本。韓流ブームや中国ビジネスブームなどの反動か。なお、反アジアではなく反中韓。あと少なくとも「ラーメンと愛国」は愛国本ではない。

▼ＮＨＫ経営委員の百田氏が応援演説　都知事選：朝日新聞デジタル
これはダメでしょ。中立なんだからこれと整合性とるべき。(ref. [2014-01-30-1])

▼予測と希望をごっちゃにすること。 : ひろゆき＠オープンSNS
これは同意。元のスライドで否定されてた「密接な対話」が不要な案件なら安い海外になるよなあ。

▼マグカップに卵を溶いて、ほんだしと水を入れてかき混ぜて、あとはレンジでチンするだけの「全然めんどくさくない茶碗蒸し」にハマり中。: 料理勉強家ヤスナリオのブログ
なかなかうまくいかないよね。見栄え（と舌触り）を気にしないならよいかと。

▼年収１０００万で許される贅沢 : 生活・身近な話題 : 発言小町 : 大手小町 : YOMIURI ONLINE（読売新聞）
発言小町といえば、夫の年収1000万、世帯年収2000万。重要です。

▼「そっ閉じメソッド」で平和なBlog生活を - 斗比主閲子の姑日記
そっと閉じる。

▼After iOS 7 icons
個人的な好みとしては影とグラデーションもない方がいいな。

現在、マクドナルドのハッピーセットのおまけでトミカ（ミニカー）がついてきます。1月24日スタートで、なくなったら終了。

- ハッピーセット『トミカ／こえだちゃん』 | McDonald's
http://www.mcdonalds.co.jp/happyset/hs/index.html


家庭の方針としてハッピーセットは子供には食べさせないことにしているので、親がときどき食べてトミカをゲットしております。



以下、ゲットしたトミカの写真を貼っていきます。随時追加。

よくやるタスクなので参照用にメモしておく。

■Case1: 指定したカラムの単語にIDをふる。
 
t1.txt :

ABB	123	あいう
ABA	124	えおか
ABA	125	かき 
BBA	130	くけこ
ABA	125	かき 

 

% perl -F"\t" -anle '$t=$F[2];if(!$s{$t}){$s{$t}=++$i;print"$i\t$t"}' t1.txt
1	あいう
2	えおか
3	かき 
4	くけこ

 
■Case2: 2カラム目以降の単語にIDをふる。
 
t2.txt :

P	かっこいい	人	登場
N	ひどい	食事	幻滅
-	こんにちは	よろしく
P	素敵	かっこいい	自転車
N	まったく	ゆるせない	ひどい

 

% perl -F"\t" -anle 'for(@F[1..$#F]){if(!$s{$_}){$s{$_}=++$i;print"$i\t$_"}}' t2.txt
1	かっこいい
2	人
3	登場
4	ひどい
5	食事
6	幻滅
7	こんにちは
8	よろしく
9	素敵
10	自転車
11	まったく
12	ゆるせない

ついでに頻度も数える。

% perl -F"\t" -anle 'for(@F[1..$#F]){$s{$_}=++$i if!$s{$_};$n{$_}++};
END{for(keys%s){print"$s{$_}\t$_\t$n{$_}"}}' t2.txt | sort -n
1	かっこいい	2
2	人	1
3	登場	1
4	ひどい	2
5	食事	1
6	幻滅	1
7	こんにちは	1
8	よろしく	1
9	素敵	1
10	自転車	1
11	まったく	1
12	ゆるせない	1

 
■IDを元の単語に戻す

IDを元の単語に戻すには下記を参照されたい。
- [を] Perl ワンライナーで join する（辞書引き結果を行データに追加するときに便利）[2013-12-23-1]

Case2の最初のやつの出力(t2.dic)を辞書として使った例：

t2.dic : 辞書 (ID to 単語)

1	かっこいい
2	人
3	登場
4	ひどい
5	食事
6	幻滅
7	こんにちは
8	よろしく
9	素敵
10	自転車
11	まったく
12	ゆるせない

b.txt : 何かの処理結果

1	P
4	N
6	N
8	P
9	P
12	N

第1カラムの数字IDを元の単語に戻す：

% perl -F"\t" -anle 'BEGIN{open(h,shift);while(<h>){chomp;@x=split;
$d[$x[0]]=$x[1]}} print"$d[$F[0]]\t$_"if$d[$F[0]]' t2.dic b.txt
かっこいい	1	P
ひどい	4	N
幻滅	6	N
よろしく	8	P
素敵	9	P
ゆるせない	12	N

夕方ごろ東京で雪が降りました。少しだけ積もったけど一瞬でとけました。



ムービーもどうぞ。

2012-2013年の雪メモ

- [を] 2012年1月23日の深夜から翌朝にかけての雪[2012-01-24-3]
- [を] 2012年2月29日の雪[2012-02-29-4]
- [を] 2013年1月14日の雪[2013-01-14-1]
- [を] 2013年2月6日の雪[2013-02-06-2]
- [を] 2013年2月19日の雪[2013-02-19-1]