返回列表 发帖

用perl 写的小东西!

用superscan 扫描端口80生成的文件是这样的 * + 218.0.25.12 |___ 80 World Wide Web HTTP |___ HTTP/1.0 * + 218.0.25.17 |___ 80 World Wide Web HTTP |___ HTTP/1.0 。。。。。。 把他导入到 xscan 就要修改一下! 自己试着用perl 写了一下,可以实现单单导出ip: print "Usage: OUTIP.PL INFILEname OUTFILEname\n\n"; if ($#ARGV<1) { print "缺少参数"; exit ; } open (INFILE,"$ARGV[0]") || die "$! 输入的文件不存在!"; open (OUTFILE,">>$ARGV[1]")||die "$!"; while(){ if (m/\*.+/){ s/\*//; s/\+//; s/\s*//; print OUTFILE $_; } close (INFILE); close (OUTFILE); print "生成的文件在 $ARGV[1]!"; 由于是刚刚学perl ,各位见笑了!

用perl 写的小东西!


    好!
    就要学着用脚本和程序提高工作效率。
    如果不介意的话。能不能编译好了给我一个?
    谢谢!

TOP

用perl 写的小东西!

只要装个activeperl  就可以用的 : http://downloads.activestate.com/ActivePerl/Windows/5.6/ActivePerl-5.6.1.635-MSWin32-x86.msi   这里有下载的
不需要编译的!

TOP

用perl 写的小东西!

哦,多谢以上各位了

TOP

用perl 写的小东西!

下载中。。。。

TOP

用perl 写的小东西!

哥哥教我装木马

TOP

返回列表 回复 发帖