Namazu-users-ja(旧)

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

Re: *.Z file

>                                            千葉市中央区長洲
>                                                    藤原  誠
  さふ言へば、直接関係はありませんが、以前に *.html なのに一行目
に <html> と書いてないものを text/plain と言はれたので、
次のような perl を作って試したことがあります。もう少しきれいに
書くものでしょうが。どなたか添削して下さい。

そうして次のように試します。
makoto@harry ■20:29:13/001103(~/perl/practice)> ./file-mmagic file-mmagic
: file-mmagic: x-system/x-unix;  executable /usr/local/bin/perl script text 
: text/plain 

菅さん、これを該当のものに対して実行すると何と言われますか ?
---
(藤原)
#!/usr/local/bin/perl

     use File::MMagic;
     use FileHandle;

#         $mm = new File::MMagic; # use internal magic file
#         # $mm = File::MMagic::new('/etc/magic'); # use external magic file
#         $res = $mm->checktype_filename("/somewhere/unknown/file");

#         $fh = new FileHandle "< /somewhere/unknown/file2";
#         $res = $mm->checktype_filehandle($fh);

#         $fh->read($data, 0x8564);
#         $res = $mm->checktype_contents($data);

@list = @ARGV;


$mm = new File::MMagic; # use internal magic file

foreach $file   ( @ARGV ) {

    $fh = new FileHandle "< $file";
    $res = $mm->checktype_filename("$file");
    print "$filename: $file: $res \n";
    $res =  $mm-> checktype_filehandle($fh);
    print "$filehandle: $res \n";
}