我想请你帮忙写下程序SYNAuth,用Perl
此程序首先要输入三个参数:
SYNAuth.pl %1 %2 %3
%1 : Path
%2 : User Name
%3 : Temp File
而SYNAuth会读取一个设定档,
设定文件范例:
Auth.ini
[Add_Allow]
Path = user1,user2…
[Del_Allow]
Path = user1,user2…
当SYNAuth运行时,会开启Temp File,并寻找是否有删除或新增档案,
如果没有新增与删除,则返回 0,
如果有,则检查Path 与User 是否符合设定文件信息,符合则返回 0,否则返回 1。
Temp File 内容范例如下:
A trunk/vendors/deli/
U trunk/vendors/deli/chips.txt
A trunk/vendors/deli/sandwich.txt
D trunk/vendors/deli/pickle.txt
ini 文件处理 CPAN 上有现成的模块处理吧。
自己上CPAN搜索一下多方便。