Erlang逐行比较两个二进制文件

我试图比较两个二进制文件的差异，但是在读取文件的时候会比较容易混淆逐行比较。就像读了这两个文件的第一行，然后进行比较，然后阅读这两个文件的第二行比较Erlang逐行比较两个二进制文件

read(B1,B2) -> 
    {ok, Binary} = file:read_file(B1), 
    X=[binary_to_list(Bin)||Bin<-binary:split(Binary, [<<"\n">>], [global])], 
    {ok, Data} = file:read_file(B2), 
    Y=[binary_to_list(Bin)||Bin<-binary:split(Data, [<<"\n">>], [global])], 
    compare(X,Y). 

compare(X,Y)-> 
    C3=lists:subtract(F1, F2), 
    io:format("~p~p",[C3,length(C3)]).

来源

2017-04-13 Daniel Xu

您可以使用模式匹配来比较两个二进制文件。 –

但我还需要显示不同的值 –

您是否想要显示两个二进制文件之间的差异？ –

您可以使用列表：ZIP（）的两个列表连接成的{Xn, Yn}双一个列表（检查它们的长度是否相同），然后在结果中列出：foreach（）。

来源

2017-04-14 07:57:16 RichardC

你应该提供更多关于你想要做什么以及到目前为止尝试过的细节。

我加入一个执行比较的代码示例，用行号打印不同的行，如果一个文件更长，则打印剩余的行。

我不会将二进制文件转换为列表，这是不必要的和低效的。

-module (comp). 

-export ([compare/2]). 

compare(F1,F2) -> 
    {ok,B1} = file:read_file(F1), 
    {ok,B2} = file:read_file(F2), 
    io:format("compare file 1: ~s to file 2 ~s~n",[F1,F2]), 
    compare(binary:split(B1, [<<"\n">>], [global]), 
      binary:split(B2, [<<"\n">>], [global]), 
      1). 

compare([],[],_) -> 
    io:format("the 2 files have the same length~n"), 
    done(); 
compare([],L,N) -> 
    io:format("----> file 2 is longer:\n"), 
    print(L,N); 
compare(L,[],N) -> 
    io:format("----> file 1 is longer:\n"), 
    print(L,N); 
compare([X|T1],[X|T2],N) -> compare(T1,T2,N+1); 
compare([X1|T1],[X2|T2],N) -> 
    io:format("at line ~p,~nfile 1 is: ~s~nfile 2 is: ~s~n",[N,X1,X2]), 
    compare(T1,T2,N+1). 

print([],_) -> done(); 
print([X|T],N) -> 
    io:format("line ~p: ~s~n",[N,X]), 
    print(T,N+1). 

done() -> io:format("end of comparison~n").

一个小测试：

1> c(comp).             
{ok,comp} 
2> comp:compare("../doc/sample.txt","../doc/sample_mod.txt"). 
compare file 1: ../doc/sample.txt to file 2 ../doc/sample_mod.txt 
at line 9, 
file 1 is: Here's an example: 
file 2 is: Here's an example (modified): 
at line 22, 
file 1 is: ``` 
file 2 is: ``` 
----> file 2 is longer: 
line 23: 
line 24: Extra text... 
line 25: 
end of comparison 
ok 
3> comp:compare("../doc/sample.txt","../doc/sample.txt").  
compare file 1: ../doc/sample.txt to file 2 ../doc/sample.txt 
the 2 files have the same length 
end of comparison 
ok 
4>

来源

2017-04-18 11:14:27 Pascal

Erlang逐行比较两个二进制文件

回答

相关问题