たつをの ChangeLog : 2013-01-17

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



▼け、けしからん!!　ストリートビューで露天風呂の中が丸見え : ギズモード・ジャパン

なんと、混浴露天風呂の中が丸見えになっているのだ。これはいいのだろうか......。

▼[SEO] 寄稿記事（全文転載）を行う時のベストプラクティス（SEO観点） ::SEM R (#SEMR)
なるほど。

▼良いアイデアは死なない！ アイデアを批判にさらすことを恐れずに : ライフハッカー［日本版］

問題なのは悪いアイデアを長く持ちすぎることだ

▼高広さんの記事とKickstarterのトラブルからクラウドファンドはどうあるべきか考えてみる | Film Goes with Net
とても納得。

▼読者の側に立たない書き手やメディアは先がない :: Parsleyの「添え物は添え物らしく」｜yaplog!（ヤプログ！）byGMO

どのメディアもまず考えるべきなのは、「読者に有益な情報を提供すること」。良い部分だけでなく、難点があればそれを伝えるのがレビュアーとして取るべき態度だろう。

▼エンジニアだからなんとか - naoyaのはてなダイアリー
はてな村だからなんとか

▼LINEボタンに対応いたしました - Zenbackブログ
zenback update。さっそく設定しました。

▼サントリー「ストーンズバー」販売終了へ　若者に浸透せず…売り上げ目標半分 (1/2ページ) - SankeiBiz（サンケイビズ）
うーん、終了かあ。

▼朝日新聞が小野寺防衛大臣の発言を捏造、「信号射撃で警告」の事実無し : 週刊オブイェクト

小野寺防衛大臣は香港メディアの記者の質問に、国際的な基準に合わせて対応を取ると述べただけです。従来通り見解に過ぎません。何か新しい方向性を示したというわけではないのです。

本日のデマ大賞！

いまさらな Perl メモ。
Perl で指定ディレクトリ中の条件にあうファイルだけ取得する処理のサンプル。
ファイルを一つ一つ処理するタスクで、ファイル数が多くてコマンドラインでエラーが出る場合や xargs では挙動が変わっちゃって対処できない場合に。

雛形：

#!/usr/bin/perl
use strict;
use warnings;

my $dir = shift @ARGV;
opendir(my $dh, $dir) or die;
my @fns = grep {/.txt$/} readdir($dh);
close($dh);

foreach my $fn (@fns) {
    open(my $fh, "<", "$dir/$fn") or die;
    while (<$fh>) {
        print "$fn> $_";
    }
    close($fh);
}

その場しのぎプログラミング用の ad hoc な日付計算方法。
超非推奨なのでまともなプログラムには使わないように（Date::Calc や DataTime 等の専用モジュール使うべき）。

例として、中二日あける計算スクリプト：

#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;

my @ds = qw(20121230 20121231 20130101 20130102 20130104 20130107);

my $pre = 0;
foreach my $d (@ds) {
    die if not $d =~ /^(\d{4})(\d{2})(\d{2})/;
    my $cur = timegm(0, 0, 0, $3, $2-1, $1);
    print "$d";
    if ($cur - $pre <= 86400 * 2) {
        print " - skip\n";
        next;
    }
    print "\n";
    $pre = $cur;
}

実行結果：

20121230
20121231 - skip
20130101 - skip
20130102
20130104 - skip
20130107