Re: [Moscow.pm] аналоги File::Magic

Wed, 23 Dec 2009 12:52:41 -0800 

Понял, спасибо!

Кто из них быстрее?
Internal чем отличается от остальных?

Ruslan Zakirov пишет:

Привет, Алексей.

Есть у нас в SVK вот такой вот скрипт для бенчмарка четырех вариантов:

use strict;
use warnings;

use Benchmark qw( cmpthese );

my %modules = map {
    eval "require $_" if $_ ne 'Internal';
    $@ ? () : ( $_ => make_sub($_) )
} qw( File::LibMagic File::MMagic File::Type Internal );

my $filename = 'data.sample';
open my $fh, '>', $filename;
print $fh 'Some sample ASCII data for mime detecting';
close $fh;

cmpthese( 9_000, \%modules );

sub make_sub {
    ( my $module = shift ) =~ s/:://g;
    $module = "SVK::MimeDetect::$module";
    eval "require $module";
    die "Couldn't load $module\n" if $@;
    my $object = $module->new();
    return sub { $object->checktype_filename($filename) };
}


2009/12/23 Alexey Kolpakov <[email protected]>:

Привет!
Какие модули посоветуете использовать для определения типа файла
(расположенного на локальном диске)?

Спасибо.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org






--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить