たつをの ChangeLog : 2013-08-05

2013年8月5日のヲハニュースをお届けします。



▼一般解・特殊解・特異解
「地球が完全な球形とするときに、ある点から南へ100km、西へ100km、次に北へ100km進むと元の地点に戻る。このような点はどこか？」
あそこ以外の答えについて。

▼「ライフハック」はくたばらないといけない | Lifehacking.jp
本末転倒系ライフハックに気をつけねば！

▼ブログのコメント欄を用意しない〜ブログ運営と一般意思2.0 - 情報学の情緒的な私試論β
今となってはそういうのはSNSでいいよねえ

▼ヤフー流のマルチビッグデータ戦略--データサイエンティストに聞く - CNET Japan
ヤフーのビッグデータの話。

▼バカッター従業員くらいで会社を叩いてやるなよ - やたすんのお話
ほんとそう。

▼【朗報】iOS 6のSafariがGoogle検索のリファラーを送信するようになる | 海外SEO情報ブログ
おお。

▼Wordの履歴機能で、自民党が変えた憲法を見てみる | editorium
これはわかりやすい。

▼爵位受けた人の財産没収は合憲　韓国、対日協力の清算強化 - 47NEWS（よんななニュース）
これはやばい。

▼松浦勝人 - こんな僕でさえ富裕層といわれるならば・・ ・・・・・・・・・・・・・・・・・・・・・... | Facebook
まあ話は分かるけど、そもそもほとんどが日本国内で稼いだお金ですよねえ。海外での稼ぎが多いのに日本にたくさん税金払わねばならない、というのなら説得力があるけど。

▼Keijiweb ver 丙 - 密造酒の作り方。

※この文章はフィクションなので実際には酒とか全然作ってませんってば本当ですってば。よろしくお願いします。写真はリンゴサイダーを写した物ですよ？

▼[SUNTORY公式ブログ] 【参加者募集】ブロガーイベント「登美の丘ワイナリー 技師長が語る 特別ワイナリーツアー2013 秋篇」/ワイン - サントリートピックス
一昨年行ったけど、楽しかったよ！ 興味のある方はぜひぜひ！

▼なんだこれは。クッピーのミルクプリン | RouxRil Mom
こ、これは！！！

全行の列ごとの合計値を出すこういう Perl ワンライナー。

perl -F"\s+" -aple 'map{$s[$_]+=$F[$_]}0..$#F;END{print@s}'

以下のように alias して使っています(zsh)。

alias gok='perl -F"\s+" -aple '\''map{$s[$_]+=$F[$_]}0..$#F;END{print@s}'\'

実行例：

perl -le 'for(1..100){print int(rand(10))}' | sort -n | uniq -c | gok
   7 0
   9 1
   7 2
   9 3
   9 4
  16 5
   9 6
  11 7
   8 8
  15 9
#0,100,45

perl -le 'for(1..100){print chr(50+rand(40))." ".int(rand(100))}' | gok | tail
2 68
< 8
S 7
J 9
T 25
A 2
? 22
H 17
X 28
#93,4742

最後の行に各列の合計値がスペース区切りで出ます。数字じゃないものは0と見なされます。とにかく文字列カラムでも数値カラムでも気にせずに合計値を出しちゃいます。表題に「ざっくりと」とあるのはそのため。

ref.
- 行単位のデータをカウントしてランキングする手順[2011-02-09-2]
- gok - 各コラムの合計を計算するだけ[2003-07-10-1]
（ワンライナーにする前のバージョン）

大したものではないんだけどメモとして残しておきます。昔から使っている「*~」ファイル削除の alias。

alias nyorokesi='find . \( -name "*~" -o -name ".*~" \) -print -exec /bin/rm {} \;'

Emacs を使っていると「*~」ファイルができて安心感があるものの、鬱陶しいのは確か。で、もういらないと分かっている状態で能動的に削除したいので、これをときどき実行しています。何日かに一度はホームディレクトリで実行したりしてます。オールドタイプかもしれないですけど、これだけは自動化はしたくないですね。

ref.
- [を] find でディレクトリ中のファイルを指定された更新日時条件で削除[2011-11-17-2]
- [を] find と xargs を使い多数のファイルをまとめて処理する[2012-08-30-2]
- [を] 指定されたファイルよりも更新日時が古いファイルを全部消す find レシピ[2008-09-15-6]
- [を] キャッシュディレクトリの中身を定期的に削除する find レシピ[2007-10-11-2]