unknownplace.org

おわんねー。3時間くらいかかって約4000通くらい。cat で渡してるのが遅い？

とりあえずどこまで進んだのかわかんないのでいったん終了して、下記のようなスクリプトかいて import 状況わかるようにしてリトライ。

#!/usr/bin/perl

use strict;
use warnings;
use Readonly;

use Time::Progress;
use File::Find;

Readonly my $Maildir => '/home/typester/Maildir/cur';

my $count    = qx{ find $Maildir | wc -l };
my $progress = Time::Progress->new;

$count =~ s/\s*//gs;

$progress->attr( min => 1, max => $count );

my $i = 0;

my $find = sub {
    $i++;
    return unless -f $File::Find::name;
    qx{ cat $File::Find::name | ximapd --import };
    print $progress->report( "done $i/$count(%p) elapsed: %L (%l sec), ETA %E (%e sec)\r", $i );
};

$progress->restart;
find( $find, $Maildir );