pdf_header

shijiang1130

1. -module(pdf_header).
   
2. -compile(export_all).
   
3. 
   
4. dir()->
   
5.         Files = filelib:wildcard("*.pdf"),
   
6.         L1 = lists:map(fun(I) ->
   
7.                         {I, (catch read_pdf_head(I))}
   
8.                 end, Files),
   
9.         lists:flatten(io_lib:format("~p~n",[L1])).
   
10. 
    
11. read_pdf_head(File)->
    
12.         case file:open(File,[read,binary,raw]) of
    
13.                 {ok,S} ->
    
14.                         {ok,B2} = file:pread(S,0,8),
    
15.                         Result = parse_version(B2),
    
16.                         file:close(S),
    
17.                         Result;
    
18.                 _Error ->
    
19.                         error
    
20.         end.
    
21. 
    
22. parse_version(<<$%,$P,$D,$F,$-,Version_num:3/binary>>)->
    
23.         {version,Version_num}.
    

复制代码

shijiang1130

arserangel

读取 pdf 文件的头信息？