perl tools 查询服务器信息

最新推荐文章于 2024-09-24 23:38:45 发布

firecat_perl

最新推荐文章于 2024-09-24 23:38:45 发布

阅读量333

点赞数

分类专栏： perl tools 文章标签： perl tools 渗透

本文链接：https://blog.csdn.net/firecat_perl/article/details/51491348

版权

perl tools 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

use warnings;
use strict;
use LWP::Simple;
print "----  By: http://www.linux-info.org    ----\n";
print "Input a url: ";
chomp(my $targeturl = <STDIN>);

if($targeturl !~ m#^http#){
	$targeturl = 'http://'.$targeturl;
}
print "--------------------------------------------\n";
print "Web: $targeturl\n";
my (undef, undef, undef, undef, $web_server) = head($targeturl);
if(!defined($web_server)){$web_server = 'Null'}
print "Server: $web_server\n";
print "--------------------------------------------\n";
print "Done, Press any key to continue......\n";
getc;