[Moscow.pm] аналоги File::Magic
Ruslan Zakirov
ruslan.zakirov на gmail.com
Ср Дек 23 10:30:44 PST 2009
Привет, Алексей.
Есть у нас в 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
>
--
Best regards, Ruslan.
Подробная информация о списке рассылки Moscow-pm