Perl识别网站指纹

其实这就是在LWP模块上。那天在论坛提了一下，因为没有思路。

现在找到解决问题的模块，就把案例代码贴出来。

这个也是一个很重要的东西。后面会添加到模块里面去。

#!/usr/bin/perl

use LWP::Simple;

$url="http://www.163.com";
$doc=+(head $url)[-1];
print "$doc\n";

执行结果：

root@smart:~# perl test.pl 
nginx

 

转载于:https://www.cnblogs.com/xiaoCon/archive/2013/05/07/3065460.html