たつをの ChangeLog : 2016-03-23

• オールフリーコラーゲン2000mg 製品情報｜オールフリー サントリー ノンアルコールビールテイスト飲料

ノンアルコールビールです。
飲んでみましたが、普通のオールフリーとあまり違いがないかな。
コラーゲンを経口摂取してもアレだとは思いますが、ピンク色の缶がかわいいのでまあいいか。

■サントリー オールフリー コラーゲン 350ml×24本 (ノンアルコール)

ログの処理でよくやるやつを未来の自分のためにメモ。

ファイルリストからファイル中のあるIDが最初に登場したファイルと最後に登場したファイルを得る。つまりは、滞在期間・活動期間を取り出すタスク。

• 入力
  • ファイルリストを入力とする
  • ファイルは時間順に並べられている
  • ファイルフォーマットはTSV形式で各行の第一カラムをIDとする
• 出力
  • IDごとに初登場と最終出現のファイル名を出力
  • ファイルリストの最後のファイルに出現している場合は今後も続く可能性があるのでフラグを立てる

■コード (lifespan.pl):

#!/usr/bin/env perl
# -*- coding: utf-8 -*-
use strict;
use warnings;

# ファイルリストを受け取る
my @fns;
while (<>) {
    chomp;
    next if not -e $_;
    push @fns, $_;
}
@fns = sort @fns; # 生成時間（＝ファイル名）の順にソート

my %items;
for (my $i = 0; $i < @fns; $i++) {
    open(my $fh, "<", $fns[$i]) or die;
    my %cur;
    while (<$fh>) {
        chomp;
        my ($id, @c) = split(/\t/, $_);
        $items{$id}{first} ||= $fns[$i];
        $items{$id}{last} = $fns[$i];
        $items{$id}{content} = [$id, @c];
        $cur{$id} = 1;
    }
    close($fh);
}

foreach my $id (sort keys %items) {
    my $first = $items{$id}{first}; # 初めてみたとき
    my $last = $items{$id}{last}; # 最後にみたとき
    my $alive = $last eq  $fns[-1] ? 1 : 0; # まだ生きてる？
    print join(" ",
               $id, $alive, $first, $last,
               #@{$items{$id}{content}}
        )."\n";
}

■テストデータと実行例:

% ls -1 log/*
log/20160315.txt
log/20160316.txt
log/20160317.txt
log/20160318.txt
log/20160319.txt
log/20160320.txt
log/20160321.txt

% head log/*.txt
==> log/20160315.txt <==
B0184BHSQU	1250
B012CIAZ34	1260

==> log/20160316.txt <==
B0184BHSQU	1250
B012CIAZ34	599

==> log/20160317.txt <==
B012CIAZ34	648

==> log/20160318.txt <==
B00KMRKDTY	702

==> log/20160319.txt <==
B00KMRKDTY	702

==> log/20160320.txt <==
B00KMRKDTY	702

==> log/20160321.txt <==
B00KMRKDTY	702

% ls log/*.txt |./lifespan.pl
B00KMRKDTY 1 log/20160318.txt log/20160321.txt
B012CIAZ34 0 log/20160315.txt log/20160317.txt
B0184BHSQU 0 log/20160315.txt log/20160316.txt

追記160901: 全面改訂。前の版はウェブ魚拓で。

海苔と御飯を入れて縦にフリフリするだけでのり巻きができちゃうという小道具。100円ショップ「ダイソー」で買いました。



ゴハンを入れて具を入れてまたゴハンを入れてフタをしめて20-30回ほど縦に振ると円柱状態になります。スリットから海苔を奥まで入れてまた縦に振るとどんどん海苔が吸い込まれていって、できあがりです。言葉では伝わりにくいのですが、そういう感じです。気になる方は動画検索！



使った感想としては、確かにこれは良いです。子供も喜んでいます。久しぶりの100均ヒットかも。

巻きがゆるめになるが欠点だけど、巻き簀より手軽で便利。

コクヨの株主優待でもらった文房具セットに入っていた文具を紹介するシリーズ！
（といっても、去年の株主優待品です。今年のも届いていますが、それは後日。）



携帯タイプのハサミ、「ホソミ hosomi」です。
この手のコンパクトなハサミの中ではダントツに扱いやすいです。
ちょっと斜めになったリングで指がぴったりはまり、シャカシャカと調子よく切れるのですよ。
筆箱に入れてもうっとうしくならないのでありがたいです。

■コクヨ ハサミ ホソミ 緑 ハサ-310G

●ペンケースに収納しやすいスリムボディは、ペンスタンドに入れてもかさばりません。
●刃渡り60mmでスイスイ切れます。
●特徴的な立体ハンドルにより、携帯できるサイズではさみの握りやすさを実現しました。
●キャップ付きで収納時も安心です。

コクヨ株主優待 2015

- コクヨの株主優待セットが届きました2015[2015-03-19-2]
- ポイントカードの整理に便利！「カードホルダー＜ノビータ＞ ミニタイプ」[2015-03-29-1]