2013年12月12日

Perl 应用实例

摘要： 第一次Perl项目中经常用到脚本①创建目录#@ARGV传入要创建的目录&create_directory(shift); sub create_directory(){ my $directory= shift; my $mask=0755; #权限--Windows可以不用 unless(-e $directory){ mkdir($directory); }}#函数定义mkdir(FILENAME, MODE); (UNIX)mkdir(FILENAME); (Windows)②获取当前文件相关目录信息 ◆获取当前文件名：　__FILE__ ※... 阅读全文

posted @ 2013-12-12 20:35 ZKLDUP 阅读(383) 评论(0) 推荐(0)

使用EmEditor去除重复

摘要： 前段时间做文本解析项目时，利用EmEditor编辑器去除重复文本的脚本：var s = document.selection.Text;var ss = s.split("\r\n");var Out = "";var i = 0, j = 0, FindIt = false;var OutArray = new Object();for ( i=0; i<ss.length; i++ ) { OutArray[ss[i]] = "";}for ( var key in OutArray ) { Out += key + &qu 阅读全文

posted @ 2013-12-12 19:11 ZKLDUP 阅读(2096) 评论(0) 推荐(2)

导航