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

[Alexey Kolpakov]

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

Кто из них быстрее?
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 <kolpak на stack.net>:
>> Привет!
>> Какие модули посоветуете использовать для определения типа файла
>> (расположенного на локальном диске)?
>>
>> Спасибо.
>> --
>> Moscow.pm mailing list
>> moscow-pm на pm.org | http://moscow.pm.org
>>
> 
> 
>