erlang-读取文件-2

最新推荐文章于 2025-01-03 23:02:34 发布

最新推荐文章于 2025-01-03 23:02:34 发布 · 224 阅读

文章标签：

#Erlang #C #C++ #C#

解释语言专栏收录该内容

150 篇文章

订阅专栏

本文介绍了一个使用Erlang语言实现的基本文件操作模块，包括文件加载、读取和关闭等功能，并通过一个解析器实例展示了如何使用这些功能。

1.compile and run

Eshell V5.8.2 (abort with ^G)

1> c(sfile).

./sfile.erl:14: Warning: variable 'Why' is unused

{ok,sfile}

2> c(readfile).

{ok,readfile}

3> readfile:start("../test/test1.po")

3> .

load.....

load ../test/test1.po finished.

list xx

run finished

2.sfile.erl

-module(sfile).
-export([load/1,readline/1,unload/1]). 
-import(io,[get_line/2,atom/0]). 
-import(file,[open/2,close/1]). 
-vsn(0.001).
-author({deepfuture}).
%文件操作
%load加载,readline读取一行，unload关闭文件

load(Sfilename)->
        case open(Sfilename,read) of
             {ok,Sf}->Sf;       
     		 {error,Why}->throw(err)	 
end.



readline(Sf)->get_line(Sf,"").

unload(Sf)->close(Sf).

-module(readfile).  
-export([start/1]).  
-import(io,[fwrite/1,format/2]).
-import(sfile,[load/1,unload/1,readline/1]).
-import(string,[len/1,substr/3,to_lower/1,strip/1]).
-vsn(0.001).
-author({deepfuture}).
%解析器

start(Sfilename)->%开始解析，参数是源文件名
fwrite("load.....~n"),
try load(Sfilename) of
    Sf->format("load ~s finished.~n",[Sfilename]),
         read(Sf),       
         unload(Sf)
catch
    err->format("load ~s error~n",[Sfilename])	
end.


read(Sf)->%分别读取每行
case readline(Sf) of
  eof->format("run finished~n",[]);
  Data->myprint(Data),
        read(Sf)       
end.        
  
myprint(Data)->format("~s",[Data]).