よくわからなくて買えてない。なんかセオリー本みたいのないんだろうか。

原理的な知識より、現実的な回路を例にして、どんなときにどんなパターンで設計するか？というのが一通り書いてある本がほしい。定数の決めかた (数式) とか、その定数が結果にどれぐらい影響を及ぼして何とトレードオフにあるかとか。この回路のときは能動素子のこのパラメータに気をつけろとか。

複数の選択肢がある場合、何をどう計って設計を検討するかとか、そういうノウハウって絶対あると思うんだけどなあ。回路同士の選択肢もそうだけど、オペアンプとか死ぬほど種類があるわけで、選ぶのがつらい。

1. トップ
2. tech
3. アナログ回路でよさそうな本

最近まで知らなくていちいちコピペして git merge foobarbranch とかやっていたが、

git checkout foobarbranch
.... なんか作業
git checkout master
git merge @{-1}

みたいに、@{-1} を使うと直前に触っていたブランチを示すことができ、これですぐに merge が実行できることを知った。

1. トップ
2. tech
3. git で直前にいたブランチをマージ

滅多にないことだと思うが、非常に大きな zip ファイルを動的に生成してダウンロードさせるみたいなことをしたいことがあるかもしれない。

Archive::Zip だとストリーム生成できないので、Archive::Zip::SimpleZip を使う。Archive::Zip::SimpleZip だとストリーム出力で file handle などに書き出せる。

これで一度ファイルに書いてから、そのファイルを sendfile 的にレスポンスしてもいいのだけれど、書いている間はクライアントからしてみれば完全に無反応になるので、場合によってはタイムアウトになってしまうことがある。そこでストリーム出力をそのままクライアントにストリームしたくなる。

簡単なコードにすると以下のようになった。Archive::Zip::SimpleZip にコールバックかオブジェクトを渡せたらいいが、渡せないようなので、文字列リファレンスをいちいちクリアしながら出力するキモいコードになっている。

#!plackup
use strict;
use warnings;

use Archive::Zip::SimpleZip qw($SimpleZipError :zip_method);

sub {
    my $env = shift;

    # Return streaming response
    sub {
        my $respond = shift;
        my $writer = $respond->([
            200,
            [
                'Content-Type' => 'application/zip',
                'Content-Disposition' => 'attachment; filename="dekai.zip"',
            ],
        ]);

        my $_buf = "";
        my $buf = \$_buf;
        my $zip = Archive::Zip::SimpleZip->new($buf, Stream => 1) or die "Failed to create zip file";

        for my $n (1..1000) {
            warn $n;
            $zip->addString("$n" x 100, Name => sprintf('%04d.txt', $n), Method => ZIP_CM_STORE) or die "SimpleZipError : $SimpleZipError";
            $writer->write($$buf); $$buf = "";
            select(undef, undef, undef, 0.01);
        }

        $zip->close or die "SimpleZipError : $SimpleZipError";

        $writer->write($$buf);
        $writer->close();
    };
}

1. トップ
2. tech
3. Perl (PSGI) で zip ファイルを動的に作りつつ順次クライアントに送りつける