Namazu-devel-ja(旧)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

File-MMagic (Re: ichitaro)



knok@xxxxxxxxxxxxx (NOKUBI Takatsugu) wrote:

>> のパッチをあてれば解決します。問題がなければ修正してください
>> ませ。 > 野首さん
>
>  修正して commit しました。excel/word8 の問題にも対処しました。以下の
>ような entry で動作するようになっています。

最新の File::MMagic を試しました。が、動作がおかしいようです。 
word/excel ともに text/plain として認識されています。

  % cat =File
  #! /usr/local/bin/perl -w
  use strict;
  use File::MMagic;

  my $magic = new File::MMagic;

  for my $file (@ARGV) {
      my $mtype = $magic->checktype_filename($file);
      printf "$file: $mtype\n";
  }

  % File *(.)
  Makefile: text/plain
  Makefile.am: text/plain
  Makefile.in: text/plain
  acrobat3.pdf: application/pdf
  acrobat4.pdf: application/pdf
  d20000220.hnf: text/plain
  excel97.xls: text/plain
  foo.html: text/html
  html.html: text/html
  mail-multipart.txt: message/rfc822
  mail.txt: message/rfc822
  man.1: text/x-roff
  msg00000.html: text/html
  pdf.pdf: application/pdf
  plain.txt: text/plain
  plain.txt.Z: application/x-compress
  plain.txt.bz2: application/x-bzip2
  plain.txt.gz: application/x-gzip
  rfc0000.txt: text/plain
  tex.tex: text/plain
  word6.doc: text/plain
  word95.doc: text/plain
  word97.doc: text/plain
  word98.doc: text/plain

-- Satoru Takabayashi