[求助][急！]如何判断一个文件是不是UNIX格式的呢？[完结]

YTHTdeWo

WINDOWS下面应该怎么办呢。。。。。

cobrawgl

唉，google 在那里放着，你怎么就不用涅？

http://www.technocage.com/~caskey/dos2unix/

YTHTdeWo

谢谢大哥，我看看去

YTHTdeWo

恐怕还是不行

要我做的只是检查，不能去修改文件的

不知道这样行不？

dos文件的换行符16进制代码是“0D0A”
unix文件的换行符16进制代码是“0A”
通过这个差别应该可以区别

只是如何取得16进制代码呢？

YTHTdeWo

本来想用匹配的方式做，可是结果不对。。。

#!/usr/bin/perl -W
use strict;
use warnings;
use IO::File;

&test("DOS.txt");
&test("UNIX.txt");

sub test {
my $file = shift;
print "========$file===========\n";
my $read_file = IO::File->new();
$read_file->open($file,O_RDONLY) or die('unable to open $file ": ', $!, "\n");
while (defined(my $line=$read_file->getline())) {

if ( $line =~ /\r\n/ ){
  print "UNIX\n";
}else{
  print "DOS\n";
}

}
$read_file->close();
}

结果不管哪个文件都认为是DOS格式

========DOS.txt===========
DOS
DOS
DOS
DOS
========UNIX.txt===========
DOS
DOS
DOS

YTHTdeWo

原帖由 hfahe 于 2008-7-25 09:55 发表
unix格式是什么意思呢？

看到一段解释，呵呵

Under DOS (Windows/PC) the end of a line of text is signalled using the ASCII code sequence CarriageReturn,LineFeed. Alternately written as CR,LF or the bytes 0x0D,0x0A. On the Macintosh platform, only the CR character is used. Under UNIX, the opposite is true and only the LF character is used.

YTHTdeWo

刚才看到有个地方说Python的内置函数

hex(),转换为16进制。 hex(12) = 0xc

发现perl也有这样的函数，可是只能把原来的数字当作16进制数字转换成10进制的数字。。。

[ 本帖最后由 YTHTdeWo 于 2008-7-25 13:46 编辑 ]

YTHTdeWo

原帖由 YTHTdeWo 于 2008-7-25 13:16 发表
恐怕还是不行

要我做的只是检查，不能去修改文件的

不知道这样行不？

dos文件的换行符16进制代码是“0D0A”
unix文件的换行符16进制代码是“0A”
通过这个差别应该可以区别

只是如何取得16进制代 ...

问题基本解决
要用到binmode和unpack，以及dos文件和unix文件换行符的差别

YTHTdeWo

试了下 http://www.technocage.com/~caskey/dos2unix/ 的代码，好像在windows下执行是没用的。。。。