变量的前 1000 个字节

Question

如果我想用变量前 1000 个字节尝试这个猜测子例程，unpack 的用法是否正确？

#!/usr/bin/env perl
use warnings;
use 5.10.1;

my $var = ...;
my $part = unpack( 'b1000', $var ) ;

sub is_binary_data {
    local $_ = shift;
    (   tr/ -~//c / length  ) >= .3;
}

if ( is_binary_data( $part ) ) {
    say "Binary";
}
else {
    say "Text";
}

Answer 1

不是，因为 unpack 会创建一个由 0 和 1 组成的字符串（最多 1000 个），这肯定会通过 ascii 测试（我相信 tr, -~,,c / length 是）

我建议只使用substr ($var, 0, 1000)。

另外，\r 和 \n 可能应该出现在 tr// 中。