mieki256's diary

#!/usr/bin/perl
# eml2mh.pl
# ActivePerl 5.6.1 build 635 で使用。

my $convert_use = 1;    # 変換処理を行うか              (1=yes/0=no)
my $file_delete = 1;    # 処理後、.eml を削除するか     (1=yes/0=no)
my $file_verbose = 1;   # 処理中のファイル名を表示      (1=yes/0=no)
my $dir_verbose = 1;    # 処理中のディレクトリ名を表示  (1=yes/0=no)

my $allcnt = 0;

&filesearch(".");
exit;

sub filesearch {
    my($dir) = @_;
    my $file;
    my @files;
    my %emlv;
    my $eml;

    opendir(DIR,"$dir");
    @files = sort grep(!/^\./, readdir(DIR));
    closedir(DIR);

    my @emls = ();
    foreach (@files) {
        my $file = "$dir/$_";
        if (-d $file ) {
            &filesearch("$file");
        } elsif ( -f $file && $file =~ /\.eml$/ ) {
            push(@emls,$file);
        }
    }

    foreach $eml (@emls) {
        $eml =~ /^.*\/(\d+)\.eml$/;
        $emlv{$eml} = $1;
    }
    my @emlsort = sort { $emlv{$a} <=> $emlv{$b} } keys %emlv;

    my $cnt = 0;
    foreach $eml (@emlsort) {
        $eml =~ /^(.*\/)(\d+)\.eml$/;
        my $p = $1;
        my $i = $2;

        $allcnt++;
        # my $newfn = $p . sprintf("%04d", $i);
        # my $newfn = $p . $i;
        my $newfn = $p . $allcnt;
        print "$newfn <- $eml\n" if $file_verbose;
        $cnt++;

        if ( $convert_use ) {
            my @lines = ();
            open(IN,$eml) || die "Can't open $eml";
            binmode(IN);
            @lines = <IN>;
            close(IN);

            open(OUT,">$newfn") || die "Can't open $newfn";
            binmode(OUT);
            foreach(@lines) {
                s/\r\n/\n/;
                print OUT $_;
            }
            close(OUT);

            if ( $file_delete ) {
                unlink($eml) || die "Can't delete $eml";
            }
        }
    }
    print "[$dir]\t... convert .eml file = $cnt\n" if $dir_verbose;
}

 cd 該当フォルダ
 perl c:\〜\eml2mh.pl

• 各ファイル名を、「連番.eml」から「連番」に変更。
• ファイル中のWindows改行コード(\r\n)をUNIX改行コード(\n)に変換。
• サブディレクトリを再帰的に辿って処理する。

1. 1Z を入力して、フォルダリストを更新。
2. g を入力して、フォルダ名を選択。
3. s を入力して、allと打って、サマリを更新。（ ~/.mew.el等を修正してサマリ表示形式を変更した場合）
4. 読みたいメールの上で、spc を押せば、内容が見れる。

◎ アーカイブフォルダとやらはたしかに魅力的なんだけど :

◎ マウスに慣れちゃってた事を痛感 :

◎ Windows圏とUNIX圏の違いかもしれないな :

◎ といいつつも実際にはそんなに悲惨な状況では無いし :