たつをの ChangeLog : 2016-03-18

2016年3月18日、アマゾンのキンドルストアに、『Kindleアーカイブ フリーマガジン「KindleArchive Selection」』という国立国会図書館デジタルコレクションをテーマにした無料電子雑誌が登場していました。

  • Kindleアーカイブ フリーマガジン
    その道に精通したエキスパートの方々が関連書を紹介。「Kindle アーカイブ」は、国立国会図書館デジタルコレクションで公開されている明治・大正・昭和前期の資料作品を電子書籍として手軽に楽しめるサービスです。

第一弾はこちら。読書ガイド的な内容。これは良い試みですね。

文楽の水脈 - 日本文化の源流を読み解く11冊 (KindleArchiveSelection)

「Kindle Archive Selection」は、これらの貴重な歴史的書物について知見を深めるために、その道に精通したエキスパートの方々が関連書を紹介する読書ガイドです。
第1弾として、「文楽の水脈 - 日本文化の源流を読み解く11冊」をご紹介します。

紹介著者一覧
日本人作家: 竹本 住太夫 / 岡鬼 太郎 / 水谷 弓彦 / 長谷川 小信 /加藤 周一 / 谷崎 潤一郎 / 橋本 治
海外作家: フランソワ・ビゼ / ロラン・バルト / モーリス・パンゲ

よくやってるどうってことのない処理のエッセンスだけサンプルプログラムにまとめて、未来の自分のために載せておく。1行目がラベル行になっている、ものすごくカラムが多いTSVについてプログラム中で処理するときに、カラム指定を文字列(ラベル)で行う例。

■コード (read-tsv-label.pl):
#!/usr/bin/env perl
# -*- coding: utf-8 -*-
use strict;
use warnings;
my @lines;
my %dat;
my @lbs; # ラベル行のラベルたち
while (<>) {
    chomp;
    my @F = split(/\t/, $_);
    if ($. == 1) { # 1行目がラベル行
        @lbs = @F;
        next;
    }
    my %v = map { $lbs[$_] => $F[$_] } (0..$#F);
    { # 処理いろいろ
        # 行番号を追加する(必要に応じて)
        $v{LineNumber} = $. - 1;
        # ハッシュリファレンスをリストに格納する方式
        push @lines, \%v;
        # 最初のカラムの内容をキーにハッシュに格納する方式
        $dat{$F[0]} = \%v;
    }
}
foreach my $r (@lines) { # 出力例1
    print join(",", map {"$_:$r->{$_}"} sort keys %$r)."\n";
}
foreach my $k (sort keys %dat) { # 出力例2
    my $r = $dat{$k};
    print join(" ", $k, map {"$_:$r->{$_}"} sort keys %$r)."\n";
}

■テストデータ (read-tsv-label-test.txt):
Date	Id	Num	Title
2016-03-14	24511	421	foobar
2016-03-15	24621	12	test
2016-03-16	24714	5	helloworld
2016-03-17	24852	360	www

■実行例:
% ./read-tsv-label.pl read-tsv-label-test.txt
Date:2016-03-14,Id:24511,LineNumber:1,Num:421,Title:foobar
Date:2016-03-15,Id:24621,LineNumber:2,Num:12,Title:test
Date:2016-03-16,Id:24714,LineNumber:3,Num:5,Title:helloworld
Date:2016-03-17,Id:24852,LineNumber:4,Num:360,Title:www
2016-03-14 Date:2016-03-14 Id:24511 LineNumber:1 Num:421 Title:foobar
2016-03-15 Date:2016-03-15 Id:24621 LineNumber:2 Num:12 Title:test
2016-03-16 Date:2016-03-16 Id:24714 LineNumber:3 Num:5 Title:helloworld
2016-03-17 Date:2016-03-17 Id:24852 LineNumber:4 Num:360 Title:www

関連記事

この記事に言及しているこのブログ内の記事

2016年3月18日のヲハニュースをお届けします。



今日開始のセール「メタボ対策・ダイエット」「ウルトラヒーロー超全集」「小学館版学習まんが日本の歴史」「学研リレーセール」 (2016.3.18)
金曜恒例の新キンドル公式セールが4つスタートしましたよ。
「メタボ対策・ダイエット」は0時から、他は正午から。
そのうちの一つ「学研リレーセール」とは、キンドルストア以外の電子書籍サービスで開催されているセールのようです。キンドル初登場なのかな。
学研グループから発売されている特定のジャンル10~40タイトルの値引きキャンペーンを原則2週間ごとに、継続的にお届けするSALE企画です。
2016年1月22日のプレスリリースより)
なお、「Kindleセールのリスト(キンセリ)」では水曜日に予告が出ていましたよ。

今日開始のセール「集英社 春マンキャンペーン」 (2016.3.17)
先週、間違えて「セール開始」と紹介してしまった「集英社 春マンキャンペーン」ですが、本当のスタートは昨日(3/17)でした。すいませんでした……。

データえっせい: 大学受験の50年史
大学側が自らの維持存続のために,大学進学率の上昇を煽るようなことはすべきではないでしょう。18歳時に大学への進学が社会的に強制されるような社会は,健全とはいえますまい。顧客にすべきは,青少年ではなく大人です。まもなく人口が「子ども1:大人9」の社会になりますが,少なくなった子どもを奪い合うというのは,いかにも見苦しい。青年期の教育機関から,大人の学びのセンターとしての存在に自己を変革できるか。
ふむふむ。

今どきの入力フォームはこう書く! HTMLコーダーが抑えるべきinputタグの書き方まとめ - ICS MEDIA
なるほど。

SEO対策として最低限押さえておきたいHTML/HTML5マークアップの大事な6つのポイント | Creive【クリーブ】
基本的な話。

Twitterのタイムラインに表示されたmixiの広告にモヤモヤ | Flickr - Photo Sharing!
広告に対する論評です。
Twitterのタイムラインに表示されたmixiの広告にモヤモヤ
Twitterのタイムラインにでてきたmixiの広告。
黒歴史を発見できた楽しい人と困る人の会話。
これって、「早くアカウント(またはアルバム)消さなきゃ」となって逆効果なのでは?
一時的には数値は良くなるのかもしれないけど、焼畑農業感が強いです。

Amazon.co.jp: あなたの1日は27時間になる。 eBook: 木村 聡子: Kindleストア

あなたの毎日に、誰にも邪魔されない「自由な3時間」を生み出す方法、公開!
「仕事が忙しくて、時間が足りない!」
「今日終わらせたい仕事が、全然終わらなかった」。
こうしたご経験はありませんか?
終電族で、毎日疲弊し、心身ともに疲れ果てた著者は、
なぜ「年収倍増&残業ゼロ」を実現できたのか?
キムタックスさんによる著書。今日スタートのキンドルのセレクト25(週替わりセールに相当)に登場しています。ポイント還元中。

今週の平日のランチの記録。

平日ランチ

■3/14(月) カレー

ココイチでチキン煮込みカレーとヤサイサラダ。
いつものことですが、株主優待券使用。

■3/15(火) サンドイッチ

コンビニで買ったサンドイッチなど。

■3/16(水) カツカレー

社員食堂「BASE6」[2014-01-31-1]で「チキンカツカレー」。

■3/17(木) ハンバーガー

社員食堂「BASE6」[2014-01-31-1]で「チーズバーガー」。

■3/18(金) パン

社内カフェでカレーパンなど。

たつをの ChangeLog
Powered by chalow