如何 让Perl脚本同时只运行一个实例 最简单自然的想法，在脚本中检查并创建一个空的lock文件，脚本结束时再删除。通过判断文件是否存在的方式来判断脚本是否已经运行。不过这样做有个bug，如果脚本运行过程中异常终止，lock文件没有正常删除，就会导致脚本无法再运行。空的lock文件不行，那么考虑在lock文件中加入一点内容，比如进程的PID号，然后通过检查该PID号的进程是否还在运行，就能避免上述bug了。在CPAN上有很多现成的模块能够完成上述功能，如File：Lockfile，File：Pid，Proc：PID：File 等。
Perl脚本实现将附件（等下我会粘贴）中的日志中成功匹配解析 usr/bin/perlopen(IN，\"$ARGV[0]\")|die\"$。open(OUT，\">；$ARGV[1]\")|die\"$。print OUT\"User\\tip\\tport\\tlogin\\n；while(){chomp；next if。sshd.*ssh2$/)；my($fh，$user，$ip，$port)=$_=~/^sshd\\[\\d+\\]：(.+)password for(.+)from(.+)port(\\d+)ssh2$/；print OUT\"$user\\t$ip\\t$port\\t$fh\\n；}close IN；close OUT；
windows下perl的安装和脚本的运行 下载地址：http：//pan.baidu.com/s/1i3GLKAp 下载后的文件如下图所示。2 perl的安装。直接双击运行下载的文件，首先会出现perl版本等等信息的介绍，不要理，直接next就会。
