周末在看otp的时候,自己做了一个小的module应用
利用gen_server实现读写文件,其中日志用的log4erl,如果有朋友要玩的话可以去他的svn上down一下,附件是源代码及log4erl配置文件,注意改一下路径,这个module简单readme如下,希望这个example对初学的人有帮助,也希望大家指点
介绍
module: rw_file 读写文件控制
原理
在state中 一个资源文件作为一个key 对应 valueList ==请求他的所有目标文件
从该key读入的data将会依次写入他的valueList,该读写是一个进程每隔1秒时间读写2kb数据[大小可在程序中修改],
所以state中有多少个key就会有多少个进程,当该key被读完关闭后,state将移除该key及其valueList且其对应
进程会退出。
主要函数功能介绍
start()
启动log4erl,gen_server。
request(Sour,Dest) ->
{response,request_exist}|
{response,request_success} |
{response,request_faild}
Sour 为请求的资源文件, 如"f:/test.txt"
Dest 为要写入的目的文件 如"f:/test1.txt"
{response,request_exist} :该类型请求已经存在队列中且正在执行读写,所以将被忽视
{response,request_success} :该请求成功将会被加入队列,服务器将执行此次读写任务
{response,request_faild} :在请求的过程中遇到错误,如系统错误,资源不存在等,请求不会被加入队列
example:
rw_file:request("d:/log.txt","f:/gg0.dat") --> {response,request_success} f盘会新建gg0.dat
rw_file:request("d:/log.txt","f:/gg0.dat") --> {response,request_exist}
rw_file:request("d:/log.txt","e:/gg0.dat") --> {response,request_success} e盘会新建gg0.dat
rw_file:request("d:","f:/gg0.dat") --> {response,request_faild}
stop()
停止log4erl,server。
利用gen_server实现读写文件,其中日志用的log4erl,如果有朋友要玩的话可以去他的svn上down一下,附件是源代码及log4erl配置文件,注意改一下路径,这个module简单readme如下,希望这个example对初学的人有帮助,也希望大家指点
介绍
module: rw_file 读写文件控制
原理
在state中 一个资源文件作为一个key 对应 valueList ==请求他的所有目标文件
从该key读入的data将会依次写入他的valueList,该读写是一个进程每隔1秒时间读写2kb数据[大小可在程序中修改],
所以state中有多少个key就会有多少个进程,当该key被读完关闭后,state将移除该key及其valueList且其对应
进程会退出。
主要函数功能介绍
start()
启动log4erl,gen_server。
request(Sour,Dest) ->
{response,request_exist}|
{response,request_success} |
{response,request_faild}
Sour 为请求的资源文件, 如"f:/test.txt"
Dest 为要写入的目的文件 如"f:/test1.txt"
{response,request_exist} :该类型请求已经存在队列中且正在执行读写,所以将被忽视
{response,request_success} :该请求成功将会被加入队列,服务器将执行此次读写任务
{response,request_faild} :在请求的过程中遇到错误,如系统错误,资源不存在等,请求不会被加入队列
example:
rw_file:request("d:/log.txt","f:/gg0.dat") --> {response,request_success} f盘会新建gg0.dat
rw_file:request("d:/log.txt","f:/gg0.dat") --> {response,request_exist}
rw_file:request("d:/log.txt","e:/gg0.dat") --> {response,request_success} e盘会新建gg0.dat
rw_file:request("d:","f:/gg0.dat") --> {response,request_faild}
stop()
停止log4erl,server。