用perl怎么区分一个文件是dos格式还是unix格式

程序猿zy

具体情况是这样的，文件中存的是一个表的字段信息，字段中就存在回车换行，试着用file命令的方法来看的话，会把字段中的回车换行误认为是一条记录的结束，导致判断不准确。请问还有没有别的办法？？？？  

sunzhiguolu

用 正则匹配的方式不就可以吗?

hztj2005

\r\n  0D0A就是DOS格式。
\n 0A就是UNIX格式。

fcl21721

   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

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

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

fcl21721

回复 5# hztj2005

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