[mew-dist 19200] Re: mew-mime-content-type

[Kazumasa Utashiro]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-dist 19196] Re: mew-mime-content-type
Date: Fri, 05 Oct 2001 15:54:46 +0900 (JST)

> ぼくは byte 単位の値を検査して text か binary か 100% 決定するの
> は無理だと思っています。1% でも判定が狂うなら、ユーザに決定して
> 貰った方が良いということです。
> 
> # 0x00, 0xff を含まない binary な file なんていくらでも作れるで
> # しょ？ 例えば、binary な PGM/PPM な画像で真っ黒と真っ白が無い、
> # とか。

あまり参考にはならないと思いますが、mg で使っている判断ルーチンです。
Perl の -T と同様な方式を日本語に対応させています。

% mg -T -de foo /dev/null
...
sub binary {
        return 1 if $_[0] =~ /[\0\377]/;
        local($_) = substr($_[0], 0, 512);
        tr/\000-\007\013\016-\032\034-\037/./*10>length;
    }

--utashiro