GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
File::Type::Builder(3) User Contributed Perl Documentation File::Type::Builder(3)

File::Type::Builder - parse mime-magic and generate code

    my $build = File::Type::Builder->new();
    
    while (<magic>) {
      chomp;
      my $parsed = $build->parse_magic($_);
      
      my $code   = $build->string_start($parsed);
      (or string_offset or beshort)
    }

Reads in the mime-magic file format and translates it to code. (This documentation would be longer if I really expected anyone other than me to run the code.)

Creates a new File::Type::Builder object.

Pulls apart a line of a mime-magic file using a string of regular expressions.

An example mime-magic file can be found in cleancode CVS at <http://cleancode.org/cgi-bin/viewcvs.cgi/email/mime-magic.mime?rev=1.1.1.1>

Builds code to match magic that's of type string.

Has to do some cleverness to make the regular expression work properly.

Builds code to match 'beshort' and 'belong' magic (eg audio/mpeg, image/jpeg).

Sometimes the data is smaller than the offset we're looking for in the file. If this is the case, then the file is obviously not of that type, and furthermore we should avoid issuing a couple of warnings that Perl would otherwise emit.

This subroutine generates this code.

Returns a reference to a hash defining characters that should not be escaped.

* Add handlers for other magic types (bedate, byte, etc)

* Make verbosity/logging nicer.

* Find more edge cases.

* Remove redundant 'if (length $data > 0)' check.

Longer term:

* Fix for multiple magic format types?

Incomplete. Some known issues with odd entries in mime-magic. Skips some mime-magic lines.

File::Type, which is partially generated by this module.

Paul Mison <pmison@fotango.com>

Copyright 2003 Fotango Ltd.

Licensed under the same terms as Perl itself.
2004-05-06 perl v5.32.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.