Data::Binary - Simple detection of binary versus text in strings
use Data::Binary qw(is_text is_binary); my $text = File::Slurp::read_file("test1.doc"); my $is_text = is_text($text); # equivalent to -T "test1.doc" my $is_binary = is_binary($text); # equivalent to -B "test1.doc"
This simple module provides string equivalents to the -T / -B operators. Since these only work on file names and file handles, this module provides the same functions but on strings.
Note that the actual implementation is currently different, basically because the -T / -B functions are in C/XS, and this module is written in pure Perl. For now, anyway.
Uses the same kind of heuristics in -T, but applies them to a string. Returns true if the string is basically text.
Uses the same kind of heuristics in -B, but applies them to a string. Returns true if the string is basically binary.
Stuart Watt, email@example.com
Copyright (c) 2014 Stuart Watt. All rights reserved.