如何检查文件是否为文本文件？
如何检查文件是否为文本文件？
提问于 2019-04-15 14:42:28
Perl6有没有像Perl5 -T file test这样的东西来判断文件是否是文本文件？
回答 3
Stack Overflow用户
回答已采纳
发布于 2019-04-15 15:48:48
没有内置任何东西，但是有一个模块Data::TextOrBinary可以做到这一点。
use Data::TextOrBinary;
say is-text('/bin/bash'.IO); # False
say is-text('/usr/share/dict/words'.IO); # TrueStack Overflow用户
发布于 2019-04-15 14:54:44
这是一个启发式的has not been translated to Perl 6。您可以简单地在UTF8 (或ASCII码)中读取它来执行相同的操作：
given slurp("read-utf8.p6", enc => 'utf8') -> $f {
say "UTF8";
}(将read-utf8.p6替换为要检查的文件的名称)
Stack Overflow用户
发布于 2019-04-17 14:48:44
我们可以通过以下代码使用File::Type。
use strict;
use warnings;
use File::Type;
my $file = '/path/to/file.ext';
my $ft = File::Type->new();
my $file_type = $ft->mime_type($file);
if ( $file_type eq 'application/octet-stream' ) {
# possibly a text file
}
elsif ( $file_type eq 'application/zip' ) {
# file is a zip archive
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55683746
复制相关文章
相似问题
腾讯云开发者
