./c0de/perl/webserv.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
 
#!/usr/bin/perl
 
use IO::Socket;
 
if(@ARGV<1)
{
usage();
}
 
my $sock = new IO::Socket::INET (
PeerAddr => $ARGV[0],
PeerPort => 80,
Proto => 'tcp',
)or die "Couldn't connect the host";
 
print $sock "HEAD / HTTP/1.0\n\n";
 
 
while ($line=<$sock>)
{
 
if($line =~/^Server/)
{
 
 
@arr=split("Server: ", $line);
print"\r\n$ARGV[0] runs $arr[1]";
exit(1);
 
    }
}
 
 
 
 
close($sock);
 
sub usage
{
 
print"HTTP Server Checker version 1.0\n";
print"Coded by squall\n";
print"usage: <host name>";
exit(0);
 
}

Back