view release on metacpan or  search on metacpan

lib/App/chot/Util.pm  view on Meta::CPAN

package App::chot;
use v5.14;
use warnings;

sub is_binary {
    my $file = shift // die;
    open my $fh, '<', $file or die "$file: $!\n";
    binmode $fh, ':raw';
    $fh->read(local $_, 512);
    /[\0\377]/ || (tr/\000-\007\013\016-\032\034-\037/./ * 10 > length);
}

1;