Re: Checking about gif

Sat, 21 Feb 2004 12:11:42 -0800

I'm going to top post because it is too long. No need to read the whole thing.

I see what you're saying..

I'm sorry for my reaction..

I've written quite a few scripts since reading Randal's article and I can assure you that it works as well as file does under UNIX

Give it a try, modify my original script and you'll love it...


#!/usr/bin/perl -w

use strict;

die "Usage: $0 directory\n" unless @ARGV > 0;

use File::Find;
use File::MMagic;

my $mm = File::MMagic->new;
find sub {
     return if -d $_ or -l $_;
     my $type = $mm->checktype_filename($_);
     return unless $type =~ /gif/i;
     print "$File::Find::name: $type\n";
}, @ARGV;

Jerry


On 21 Feb 2004, at 20:43, John wrote:

NAME
    File::MMagic - Guess file type

SYNOPSIS
      use File::MMagic;
      use FileHandle;

$mm = new File::MMagic; # use internal magic file
# $mm = File::MMagic::new('/etc/magic'); # use external magic file
# $mm = File::MMagic::new('/usr/share/etc/magic'); # if you use Debian
$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);

ABSTRACT
This perl library uses perl5 objects to guess file type from filename
and/or filehandle.

DESCRIPTION
    checktype_filename(), checktype_filehandle() and checktype_contents
    returns string contains file type with MIME mediatype format.

METHODS
File::MMagic->new()
File::MMagic->new( $filename )
Initializes the module. If no filename is given, the magic numbers
stored in File::MMagic are used.

$mm->addSpecials
If a filetype cannot be determined by magic numbers, extra checks
are done based on extra regular expressions which can be defined
here. The first argument should be the filetype, the remaining
arguments should be one or more regular expressions.

        By default, checks are done for message/news, message/rfc822,
        text/html, text/x-roff.

$mm->removeSpecials
Removes special regular expressions. Specify one or more filetypes.
If no filetypes are specified, all special regexps are removed.

Returns a hash containing the removed entries.

$mm->addFileExts
If a filetype cannot be determined by magic numbers, extra checks
can be done based on the file extension (actually, a regexp). Two
arguments should be geiven: the filename pattern and the
corresponding filetype.

        By default, checks are done for application/x-compress,
        application/x-bzip2, application/x-gzip, text/html, text/plain

$mm->removeFileExts
Removes filename pattern checks. Specify one or more patterns. If no
pattern is specified, all are removed.
----- Original Message -----
From: "Jerry Rocteur" <[EMAIL PROTECTED]>
To: "John" <[EMAIL PROTECTED]>
Sent: Saturday, February 21, 2004 9:37 PM
Subject: Re: Checking about gif


Ridiculous post your POD..

On 21 Feb 2004, at 20:25, John wrote:

Does File::MMagic checks the file headers?

I read in the POD that checks the file from the filename :) not deep
checking :)


----- Original Message -----
From: "MAC OS [EMAIL PROTECTED]" <[EMAIL PROTECTED]>
To: "John" <[EMAIL PROTECTED]>
Cc: "Perl Beginners" <[EMAIL PROTECTED]>
Sent: Saturday, February 21, 2004 9:09 PM
Subject: Re: Checking about gif



On 21 Feb 2004, at 19:03, John wrote:

I want to test if a file is a gif image or not.

Is it practicable using a module?

perldoc File::MMagic

#!/usr/bin/perl -w

use strict;

die "Usage: $0 directory\n" unless @ARGV > 0;

use File::Find;
use File::MMagic;

my $mm = File::MMagic->new;
find sub {
     return if -d $_ or -l $_;
     my $type = $mm->checktype_filename($_);
     return unless $type =~ /gif/i;
     print "$File::Find::name: $type\n";
}, @ARGV;

I just happen to be reading an excellent series of articles by Randal
... You should read them as well...

http://www.google.com/search?
site=swr&q=site%3Astonehenge.com&as_q=File%3A%3AFind&btnG=Search+sto ne
he
nge.com+with+Google

Jerry






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Reply via email to