質問: substr($a,128,$length); #macバイナリだった場合の除去終了 }else{ #macバイナリは含まれていない } と記述してみましたが、 macから入力しても、 macバイナリファイルは含まれていない と判断してしまうらしいのです。 サイトや書籍の情報等でも結構です。 よろしくお願い申し上げます。
回答: macバイナリについての解説は http://homepage1.nifty.com/glass/tom_neko/web/web_02.html#macbinary モジュールを使うなら cpan(perlモジュールアーカイブ)にmac-macbinaryというのがありますよ 以下これを使った例です use cgi; use mac::macbinary; $q = new cgi; $filename = $q->param('uploaded_file'); $type = $q->uploadinfo($filename)->{'content-type'}; if ($type eq 'application/x-macbinary') { $mb = mac::macbinary->new($q->upload('uploaded_file')); # now, you can get data via $mb->data; } 詳細は、モジュールのドキュメントか http://search.cpan.org/src/miyagawa/mac-macbinary-0.04/readme 参考url:http://search.cpan.org/~miyagawa/mac-macbinary-0.04/