黑色海岸线论坛 - Powered by Discuz! Board

标题: 用perl 写的小东西！ [打印本页]

作者: 豆石 时间: 2003-5-10 12:38 标题: 用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 ，各位见笑了！

作者: damnyou 时间: 2003-5-10 12:47 标题: 用perl 写的小东西！

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

作者: 豆石 时间: 2003-5-10 15:59 标题: 用perl 写的小东西！

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

作者: Yuki 时间: 2003-5-19 15:23 标题: 用perl 写的小东西！

哦,多谢以上各位了

作者: cndijkstra 时间: 2003-6-4 16:21 标题: 用perl 写的小东西！

下载中。。。。

作者: zhangqian 时间: 2003-6-22 11:12 标题: 用perl 写的小东西！

哥哥教我装木马

欢迎光临黑色海岸线论坛 (http://bbs.thysea.com/)