なかのにっき

#!/bin/sh
env LANG=C date > datafile
(なんかの処理)
env LANG=C date >> datafile

とかして時刻を記録しておく。 date が日本語ロケールで動いてるとうまくいかないので注意。

この datafile を perl の Time::ParseDate モジュールを使って処理。 debian なら libtime-modules-perl を apt-get install する。

#!/usr/bin/perl
use Time::ParseDate;

$file = $ARGV[0];

open DF, "head -1 $file |";
  $stime_str = <DF>;
  chomp $stime_str;
  $stime = parsedate($stime_str, NO_RELATIVE);
close DF;

open DF, "tail -1 $file |";
  $etime_str = <DF>;
  chomp $etime_str;
  $etime = parsedate($etime_str, NO_RELATIVE);
close DF;

print "start:   $stime_str\n";
print "end:     $etime_str\n";
$elapsed = $etime - $stime;
print "elapsed: $elapsed (s)\n";

というようなスクリプトを meastime.pl とかいう名前で作り、

./meastime.pl datafile

で OK。

＠ 本来は:

今日は順調に 17:00 頃終了。

• binutils 2.11

  Changes: This release includes improved ARM support, improved DOS file
  system support, improved MIPS support, and the documentation is now under
  the GNU Free Documentation License.
  

カンマの含まれるフィールドだけ "" でクォートしてある。 libtext-csv-perl の Text:CSV_XS でいけるかと思ったが、 日本語が入ってるとだめ。

呻いていたら野首さんに教わる。

$csv = Text::CSV_XS->new({'binary' => 1});
$str = '日本語,fugahoge,mugemoge'
$csv->parse($str);

のように、new するときに binary 属性を追加するといいようだ。

しかし stdin からの入力を chomp してから parse すると、なぜか失敗する。

謎は深まるばかりなのであった(わら

第２弾。履修日程のせいなんだが、 もう一回やらなきゃいかんのが切ないな。 ~/data/01exp2/schedule/ 以下。

＠ ぐへ: