Chinaunix

标题: 用perl怎么区分一个文件是dos格式还是unix格式 [打印本页]

作者: 程序猿zy 时间: 2015-08-06 23:49
标题: 用perl怎么区分一个文件是dos格式还是unix格式
具体情况是这样的，文件中存的是一个表的字段信息，字段中就存在回车换行，试着用file命令的方法来看的话，会把字段中的回车换行误认为是一条记录的结束，导致判断不准确。请问还有没有别的办法？？？？

作者: sunzhiguolu 时间: 2016-09-09 13:52
用正则匹配的方式不就可以吗?

作者: hztj2005 时间: 2016-09-23 00:16
\r\n 0D0A就是DOS格式。
\n 0A就是UNIX格式。

作者: fcl21721 时间: 2016-09-23 22:14
open(my $fh, '<', "c:/utf8.txt");

binmode($fh);
my $buf = '';
while (read($fh, $buf, 1024, length($buf))) {
if($buf =~ /\x0D\x0A/) {
print "windows";
}elsif($buf =~ /\x0A/) {
print "unix";
}
$buf = substr($buf, -1);
}

作者: hztj2005 时间: 2016-09-23 22:23

fcl21721 发表于 2016-09-23 22:14
open(my $fh, '

$buf = substr($buf, -1);
起什么作用？

作者: fcl21721 时间: 2016-09-23 23:30
回复 5# hztj2005

碰巧一次只取到\d为结尾的buffer，那每次结束会保留最后一个字节，不管他是什么。如果没有这步，可能一个windows文件被误判为unix文件。

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)